利用ASP生成EXECL文档

 1   
 2set conn=server.createobject("adodb.connection")   
 3conn.open application("connstring")   
 4set rs=server.createobject("Adodb.recordset")   
 5sql="select * from xxloginteachers order by jsid desc"   
 6rs.open sql,conn   
 7do while not rs.eof   
 8msg=msg & rs("jsid") & chr(9) & rs("jsxm") & vbcrlf   
 9rs.movenext   
10loop   
11set f=server.createobject("scripting.filesystemobject")   
12set myfile=f.createtextfile("d:\xmllover.xls",true)   
13myfile.close