利用ASP生成EXECL文档
程序员文章站
2022-05-25 12:15:05
<%set conn=server.createobject("adodb.connection")conn.open application("connstring")se...
<%
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:xml(标准化越来越近了)lover.xls",true)
myfile.close
%>
已生成xml(标准化越来越近了)lover.xls!!!!
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:xml(标准化越来越近了)lover.xls",true)
myfile.close
%>
已生成xml(标准化越来越近了)lover.xls!!!!