导出SQLServer数据到Excel中

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