Response.Clear()
Response.Write("<HTML>")
Response.Write("<HEAD>")
Response.Write("<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>")
Response.Write("<meta name='ProgId' content='Excel.Sheet'>")
Response.Write("<meta name='Generator' content='Microsoft Excel 11'>")
Response.Write("<style>.xl24 { mso-style-parent: style0; mso-number-format: '@' }")
Response.Write("</style>")
Response.Write("</HEAD>")
Response.Write("<body>")
Response.Buffer = True
Response.Charset = "GB2312" '设置了类型为中文防止乱码的出现
Response.AppendHeader("Content-Disposition", "attachment;filename=OutExcel.xls") '定义输出文件和文件名
Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312") ';//设置输出流为简体中文
Response.ContentType = "application/ms-excel" ';//设置输出文件类型为excel文件。
Page.EnableViewState = False
Dim myCItrad As New System.Globalization.CultureInfo("ZH-CN", True)
Dim oStringWriter As New System.IO.StringWriter(myCItrad)
Dim oHtmlTextWriter As New System.Web.UI.HtmlTextWriter(oStringWriter)
DataGrid1.RenderControl(oHtmlTextWriter) '//设置输出源
Response.Write(oStringWriter.ToString())
Response.Write("</HEAD>")
Response.Write("</HTML>")
Response.End()