基础编程
高手们，帮忙看看ASP生成EXECL吧，帮帮忙，完事给分
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区解释一下每行的意思？我知道很麻烦。。大家帮帮啊。ASP那个版块里没人了。只有到PHP里来看看
Set ExcelApp =CreateObject("Excel.Application")
ExcelApp.Application.Visible = false
on error resume next
Set ExcelBook = ExcelApp.Workbooks.add
award=cint(award)
ExcelBook.WorkSheets(1).cells(1,10).value =award&"等奖抽奖结果"
ExcelBook.WorkSheets(1).cells(2,1).value = "客户ID"
ExcelBook.WorkSheets(1).cells(2,2).value = "姓名"
ExcelBook.WorkSheets(1).cells(2,3).value = "性别"
ExcelBook.WorkSheets(1).cells(2,4).value = "手机号码"
'ExcelBook.WorkSheets(1).cells(2,5).value = "邮编"
ExcelBook.WorkSheets(1).cells(2,5).value = "地址"
cnt=3
content = content & "<tr><td>客户ID</td><td>姓名</td><td>性别</td><td>手机号码</td><td>地址</td></tr>"
if rs.eof and rs.bof then
response.Write("<script>alert('资源有限哦！');window.location='awardnew.asp';</script>")
response.end()
end if
do while not rs.eof
content = content & "<tr><td>"&rs("customerid")&"</td><td>"&rs("name")
'if rs("sex")=1 then content = content & "</td><td>" & "男"
'if rs("sex")=2 then content = content & "</td><td>" & "女"
'if rs("sex")=0 then content = content & "</td><td>" & "未知"
content =content & "</td><td>" & rs("sex")&"</td><td>" & rs("mobile") & "</td><td>" & rs("address")&"</td></tr>"
ExcelBook.WorkSheets(1).cells(cnt,1).value = rs("customerid")
ExcelBook.WorkSheets(1).cells(cnt,2).value = rs("name")
ExcelBook.WorkSheets(1).cells(cnt,3).value = rs("sex")
ExcelBook.WorkSheets(1).cells(cnt,4).value = rs("mobile")
'ExcelBook.WorkSheets(1).cells(cnt,5).value = rs("postcode")
ExcelBook.WorkSheets(1).cells(cnt,5).value = rs("address")
customerid=rs("customerid")
sql="delete from awardnew2 where customerid='"&customerid&"'"
'response.Write(sql)
'response.End()
conn.execute(sql)
rs.movenext
cnt = cint(cnt) + 1
loop
'names="E:\调查问卷\EOS2010\awards\" & year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & ".xls"
'C:\mytestsite\canonvoiedcdv\dc\back\asp\Excel
names=server.MapPath("awards/" & year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & ".xls")
Excelbook.SaveAS names '这个是数据导出完毕以后在D盘存成文件
' Excelbook.SaveAS(server.mappath("/") & "eos最新版\award.xls")
ExcelApp.Application.Quit '导出以后退出Excel
Set ExcelApp = Nothing '注销Excel对象
Set ExcelApp =CreateObject("Excel.Application")
ExcelApp.Application.Visible = false
on error resume next
Set ExcelBook = ExcelApp.Workbooks.add
award=cint(award)
ExcelBook.WorkSheets(1).cells(1,10).value =award&"等奖抽奖结果"
ExcelBook.WorkSheets(1).cells(2,1).value = "客户ID"
ExcelBook.WorkSheets(1).cells(2,2).value = "姓名"
ExcelBook.WorkSheets(1).cells(2,3).value = "性别"
ExcelBook.WorkSheets(1).cells(2,4).value = "手机号码"
'ExcelBook.WorkSheets(1).cells(2,5).value = "邮编"
ExcelBook.WorkSheets(1).cells(2,5).value = "地址"
cnt=3
content = content & "<tr><td>客户ID</td><td>姓名</td><td>性别</td><td>手机号码</td><td>地址</td></tr>"
if rs.eof and rs.bof then
response.Write("<script>alert('资源有限哦！');window.location='awardnew.asp';</script>")
response.end()
end if
do while not rs.eof
content = content & "<tr><td>"&rs("customerid")&"</td><td>"&rs("name")
'if rs("sex")=1 then content = content & "</td><td>" & "男"
'if rs("sex")=2 then content = content & "</td><td>" & "女"
'if rs("sex")=0 then content = content & "</td><td>" & "未知"
content =content & "</td><td>" & rs("sex")&"</td><td>" & rs("mobile") & "</td><td>" & rs("address")&"</td></tr>"
ExcelBook.WorkSheets(1).cells(cnt,1).value = rs("customerid")
ExcelBook.WorkSheets(1).cells(cnt,2).value = rs("name")
ExcelBook.WorkSheets(1).cells(cnt,3).value = rs("sex")
ExcelBook.WorkSheets(1).cells(cnt,4).value = rs("mobile")
'ExcelBook.WorkSheets(1).cells(cnt,5).value = rs("postcode")
ExcelBook.WorkSheets(1).cells(cnt,5).value = rs("address")
customerid=rs("customerid")
sql="delete from awardnew2 where customerid='"&customerid&"'"
'response.Write(sql)
'response.End()
conn.execute(sql)
rs.movenext
cnt = cint(cnt) + 1
loop
'names="E:\调查问卷\EOS2010\awards\" & year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & ".xls"
'C:\mytestsite\canonvoiedcdv\dc\back\asp\Excel
names=server.MapPath("awards/" & year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & ".xls")
Excelbook.SaveAS names '这个是数据导出完毕以后在D盘存成文件
' Excelbook.SaveAS(server.mappath("/") & "eos最新版\award.xls")
ExcelApp.Application.Quit '导出以后退出Excel
Set ExcelApp = Nothing '注销Excel对象
...全文
