-asp 导出 excel 文件,asp导出数据到excel文件

<%rs.open "select * from [table]",conn,1,1
if not rs.eof then
set fso=server.createObject("scripting.fileSystemObject")
filename=Server.MapPath("online.xls")
if fso.FileExists(filename) then
fso.DeleteFile(filename)
end if
set myfile = fso.CreateTextFile(filename,true)
dim strLine,responsestr
For each x in rs.fields
strLine= strLine & x.name & chr(9)
Next
myfile.writeline strLine
Do while Not rs.EOF
for each x in rs.Fields
strLine= strLine & x.value & chr(9)
next
myfile.writeline strLine
rs.MoveNext
loop
myfile.writeline ()
end if
rs.close
response.redirect "online.xls"%>