<%

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。