<%@ 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>