Protected Sub Btn_input_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn_input.Click
Response.Clear()
Response.AddHeader("content-disposition", "attachment;filename=FileName.xls")
Response.Charset = "gb2312"
Response.ContentType = "application/vnd.xls"
Dim stringWrite As IO.StringWriter = New System.IO.StringWriter()
Dim htmlWrite As Web.UI.HtmlTextWriter = New HtmlTextWriter(stringWrite)
GridView1.AllowPaging = False
GridView1.DataSource = objdb.myds("select * from total")
GridView1.DataBind()
GridView1.RenderControl(htmlWrite)
Response.Write(stringWrite.ToString())
Response.End()
End Sub
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
End Sub