net outexcel(2)

   Public Overloads Overrides Sub verifyrenderinginserverform(ByVal control As Control)
    End Sub
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Response.Clear()
        Response.Buffer = True
        Response.Charset = "GB2312"
        Response.AppendHeader("Content-Disposition", "attachment;filename=FileName.xls")
        'VerifyRenderingInServerForm经测试如果设置为 GetEncoding("GB2312"),导出的文件将会出现乱码。
        Response.ContentEncoding = System.Text.Encoding.UTF7

        '设置输出文件类型为excel文件。 
        Response.ContentType = "application/ms-excel"
        Dim ostringwriter As StringWriter = New StringWriter
        Dim ohtmltextwriter As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(ostringwriter)
        GridView3.RenderControl(ohtmltextwriter)
        Response.Output.Write(ostringwriter.ToString())
        Response.Flush()
        Response.End()
    End Sub