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