< %@Language = VBScript% >
< html >
< head >
< metahttp - 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;PersistSecurityInfo=True;UserID=sa;Password=;InitialCatalog=Info;DataSource=127.0.0.1 "
Conn.OpenConnStr
Sql = " SELECT*FROMINFO "
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.WriteData & Chr ( 13 )
Data = ""
Rs.MoveNext: Loop
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
Response.Flush
Response.End
% >
</ body >
</ html >