利用ASP生成EXECL文档
2018-09-06 10:31
阅读：740
<%
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:xml(标准化越来越近了)lover.xls,true)
myfile.close
%>
已生成xml(标准化越来越近了)lover.xls!!!!
下一篇：收藏的ASP常用的函数集
评论
亲，登录后才可以留言！