利用ASP生成EXECL文档（修正）

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

http://www.itcnw.com/

• 打印文档
• 推荐好友
• 
• 返回顶部
• 增大字体
• 减少字体

• 上一篇文章：ASP 0115 Error的解决方案
• 下一篇文章：随机产生N位由数字和字母组成的密码