ASP从数据库查找数据并导出到EXCEL的方法：
注意：这个方法导出的excel表格在当前asp文件所在的目录下
Set ors = Server.CreateObject("ADODB.RecordSet")
v_sql="select * from ###### order by id desc"
ors.Open v_sql,oconn,3,1
dim s,filename,fs,myfile,x
set fs = server.CreateObject("scripting.filesystemobject")
filename = server.MapPath("exp.xls")
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
set myfile = fs.CreateTextFile(filename,true)
StartTime = Request("StartTime")
EndTime = Request("EndTime")
StartEndTime = "AddTime between #"& StartTime &" 00:00:00# and #"& EndTime &" 23:59:59#"
set rstData = oconn.execute(v_sql)
if not rstData.eof and not rstData.bof then
strLine = ""
strLine = "字段1" & chr(9) & "字段2" & chr(9) & "字段3" & chr(9) & "字段4" & chr(9) &"字段5" & chr(9)
myfile.writeline strLine
do while not rstData.eof
strLine = ""
for each x in rstData.fields
strLine = strLine & x.value & chr(9)
next
myfile.writeline strLine
rstData.MoveNext
loop
end if
另外：如果遇到只要求导出查询结果的某几个字段，可以使用ratData(i).value
strLine = strLine & rstData(1).value & chr(9) & rstData(10).value & chr(9) & rstData(14).value & chr(9)
myfile.writeline.strLine //接着写入文件
