62,271
社区成员
发帖
与我相关
我的任务
分享
Public Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
Response.Clear()
Response.Buffer = True
Response.Charset = "GB2312"
Dim header As String = DropDownList1.Text.ToString
Response.AppendHeader("Content-Disposition", "attachment;filename=aaa.xls")
Response.ContentEncoding = System.Text.Encoding.UTF7
Response.ContentType = "application/ms-excel"
Dim oStringWriter As System.IO.StringWriter = New System.IO.StringWriter
Dim oHtmlTextWriter As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(oStringWriter)
Me.GridView1.RenderControl(oHtmlTextWriter)
Response.Output.Write(oStringWriter.ToString)
Response.Flush()
Response.End()
End Sub
Response.AppendHeader("Content-Disposition", "inline;filename=aaa.xls")