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
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