ASP页面中怎么导出Excel文档

发布网友发布时间：2022-04-20 21:16

共1个回答

热心网友时间：2023-09-06 06:10

<%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"%>

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com