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