我做一个ASP人员信息表单提交系统，我想在后台查询出来的信息可以导出EXCEL来？求导出代码！ 非常感谢！！
发布网友
发布时间：2023-03-17 22:50
共2个回答
热心网友
时间：2023-11-05 21:36
' 链接数据库的代码省略,其他的代码你自己修改下；字段什么的 ,不懂的再联系我吧
if request("action")="goto" then
dbpath="../"
dim filename,fs,myfile,x,m,n,o,link
Set fs = server.CreateObject("scripting.filesystemobject")
Set rs = Server.CreateObject("ADODB.Recordset")
session("sql") = "select model,ph,fz,changs,num,danwei,s_price,huobi,gongying,shui,S_content,S_time from In_SearchPrice where 1=1 order by S_time desc,id desc"
rs.Open session("sql"),conn,1,1
n=1
'==================================================================
'==============================================================建立excel文件系统
filename = Server.MapPath("excel/询价记录"&n&".xls") '这个是为了方便，新建一个CAR的文件夹，这个可以自己设啦
if fs.FileExists(filename) then'如果文件存在，覆盖它。
fs.DeleteFile(filename)
end if
set myfile = fs.CreateTextFile(filename,true)
'========================================================================
dim strLine,responsestr
strLine=""
dim work,j,i
str="型号|批号|封装|厂商|数量|单位|询价|货币类型|供应商|含税|描述|日期"
work=split(str,"|")
j=ubound(work)
i=0
o=0
do while not i>j
strLine= strLine & work(i) & chr(9)
i=i+1
loop
myfile.writeline strLine
Do while Not rs.EOF
o=o+1
m=20000
strLine=""
for each x in rs.Fields
strLine= strLine & x.value & chr(9)
if o>=m*n then
n=n+1
filename = Server.MapPath("car/CarTable"&n&".xls") '这个可以自己设啦
if fs.FileExists(filename) then'如果文件存在，覆盖它。
fs.DeleteFile(filename)
end if
set myfile = fs.CreateTextFile(filename,true)
end if
next
myfile.writeline strLine
rs.MoveNext
loop
rs.Close
set rs = nothing
conn.close
set conn = nothing
set myfile = nothing
Set fs=Nothing
ExcelPath="excel/询价记录"&n&".xls"
response.Write "导出成功 "
response.write("<a href='" & server.URLEncode(ExcelPath) & "'><font=red>下载</font></a>")
end if
%>
热心网友
时间：2023-11-05 21:36
