<%
set conn=server.createobject("adodb.connection")
conn.open applicatio("connstring")
set rs=server.createobject("Adodb.recordset")
sql="select * from table order by id desc"
rs.open sql,conn
do while not rs.eof
   msg=msg & rs("字段1") & chr(9) & rs("字段2) & vbcrlf
   rs.movenext
loop
set f=server.createobject("scripting.filesystem")
set myfile=f.createotextfile(mappath.server(xmllover.xls),true)
%>
已生成xmllover.xls!!!!