28,391
社区成员
发帖
与我相关
我的任务
分享
<!--#include file="ls_Conn.asp"-->
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from info ",conn,1,1
if rs.eof and rs.bof then
response.write "<p><font color=red>没有数据!</font></p>"
end if
if not (rs.eof And rs.bof) then
dim ttxt,file,filepath,writefile
ttxt="excel/shujubao.csv" '为要写入的文件取个文件名,后缀可以是txt,xls,这里我用csv,这种文件打开也是excel表
Set file = CreateObject("Scripting.FileSystemObject")
Application.lock
'写入文件的存放路径,一定要开放这个路径下的读写权限
filepath=Server.MapPath(ttxt)
Set Writefile = file.CreateTextFile(filepath,true)
'在表格中写入第一行,字段描述,这个根据你实际的数据表字段来写
'Writefile.WriteLine ""&BWS_title&"物品维修汇总表"
'Writefile.WriteLine "表单生成时间:"&now()&""
Writefile.WriteLine "宝贝名称,宝贝价格,宝贝数量,新图片,商家编码,银卡折扣,金卡折扣,贵宾卡折扣,超级会员卡折扣,购买积分"
do while not rs.eof
Writefile.WriteLine rs("title")&","&rs("scprice")&","&rs("kucun")&","&rs("pic")&","&rs("huohao")&","&rs("yinka")&","&rs("jinka")&","&rs("guibka")&","&rs("chaojika")&","&rs("jifen")
rs.movenext
loop
'以上三行作用是逐行将数据写入表中
Writefile.close
Application.unlock
rs.close
set rs=nothing
response.write "<p><font color=red>表单已生成!</font><a href='"&ttxt&"'>点击下载</a></p>"
response.write "<p><font color=red><strong>注意事项:</strong></font>您所下载的表单为*.csv格式,如果非*.csv格式,请保存为*.csv格式。<br>如果您的电脑中已安装EXCEL,则默认打开方式为EXCEL</p>"
response.end
end if%>