导出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 >
       
       

      
      
      
      

       
       
1.
       
       
2.
       
       
3.
       
       
4.
       
       
5.
       
       
6.
       
       
7.
       
       
8.
       
       
9.
       
       
10.
       
       
11.
       
       
12.
       
       
13.
       
       
14.
       
       
15.
       
       
16.
       
       
17.
       
       
18.
       
       
19.
       
       
20.
       
       
21.
       
       
22.
       
       
23.
       
       
24.
       
       
25.
       
       
26.
       
       
27.
       
       
28.
       
       
29.
       
       
30.
       
       
31.
       
       
32.
       
       
33.
       
       
34.
       
       
35.
       
       
36.
       
       
37.