Ó£Ö®»¨

    Private Sub Export(ByVal FileType As String, ByVal FileName As String)
        Response.Charset = "GB2312"
        Response.ContentEncoding = System.Text.Encoding.UTF7
        Response.AppendHeader("Content-Disposition", "attachment;filename=" + HttpUtility.UrlEncode(FileName, Encoding.UTF8).ToString())
        Response.ContentType = FileType
        Me.EnableViewState = False
        Dim tw As StringWriter = New StringWriter()
        Dim hw As HtmlTextWriter = New HtmlTextWriter(tw)
        GridView1.RenderControl(hw)
        Response.Write(tw.ToString())
        Response.End()
    End Sub

    'Õâ¸ö·½·¨²»Ð´µÄ»°¿ÉÄܱ¨´íÀàÐÍ¡°GridView¡±µÄ¿Ø¼þ¡°GridView1¡±±ØÐë·ÅÔÚ¾ßÓÐ runat=server µÄ´°Ìå±ê¼ÇÄÚ¡£
    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
    End Sub

aspxÖÐÍ·²¿ÐÞ¸ÄΪ£º

<%@ Page Language="VB" EnableEventValidation="false" AutoEventWireup="false" CodeFile="CustList.aspx.vb" Inherits="CustList" %>