< %@ Language = VBScript% > < html > < head > < meta http - equiv = " Content-Type " content = " text/html; charset=gb2312 " > < title > 导出SQLServer数据到Excel中 </ title > </ head > < body > < % Response.Clear Response.ContentType = " text/xls " Response.AddHeader " content-disposition " , " attachment;filename=Excel.xls " ' 生成Excel Response.Write " 编号 " & Chr ( 9 ) & " 姓名 " & Chr ( 9 ) & " 性别 " & Chr ( 9 ) & " 年龄 " & Chr ( 13 ) Set Conn = Server.CreateObject( " Adodb.Connection " ) ConnStr = " Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=;Initial Catalog=Info;Data Source=127.0.0.1 " Conn.Open ConnStr Sql = " SELECT * FROM INFO " Set Rs = Conn.Execute(Sql) Num = Rs.Fields.Count Do While Not Rs.Eof MM = 0 While MM < CInt (Num) Data = Data & Rs(MM) & Chr ( 9 ) MM = MM + 1 Wend Response.Write Data & Chr ( 13 ) Data = "" Rs.MoveNext: Loop Set Rs = Nothing Conn.Close Set Conn = Nothing Response.Flush Response.End% > </ body > </ html >