利用ASP生成EXECL文档 |
文章来源:腾飞电脑学校 发布时间:2008-08-08 阅读次数:3768次
|
<% set conn=server.createobject("adodb.connection") conn.open application("connstring") set rs=server.createobject("Adodb.recordset") sql="select * from xxloginteachers order by jsid desc" rs.open sql,conn do while not rs.eof msg=msg & rs("jsid") & chr(9) & rs("jsxm") & vbcrlf rs.movenext loop set f=server.createobject("scripting.filesystemobject") set myfile=f.createtextfile("d:\xmllover.xls",true) myfile.close %> 已生成xmllover.xls!!!! |
|
|
|
|
|
|