时间: 2021-07-31 作者:daque
<%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,conndo while not rs.eof msg=msg & rs("jsid") & chr(9) & rs("jsxm") & vbcrlf rs.movenextloopset f=server.createobject("scripting.filesystemobject")set myfile=f.createtextfile("d:\xmllover.xls",true)myfile.close%>已天生xmllover.xls!!!!