asp导出excel文件方法
分类：程序开发 Tags： asp excel 评论：0 浏览：4917 最近更新时间：2019/4/2 10:29:37
由于excel软件能识别table格式的数据，所以asp只需要输出table格式的html代码，同时设置好contenttype，增加保存为附件的响应头即可将输出的html代码保存为xls文件。
<% Response.ContentType = "application/excel" Response.AddHeader "Content-Disposition", "attachment;filename=""文件名.xls""" %> <table> <%while not rs.eof %> <tr><td>你的excel单元格内容，有多个自己增加td</td></tr> <% rs.movenext wend %> </table>
另外代码
< %
set rs=server.createobject("adodb.recordset")
sql="select * from mkusers"
rs.open sql,objconn,1,1
Set ExcelApp =CreateObject("Excel.Application")
ExcelApp.Application.Visible = True
Set ExcelBook = ExcelApp.Workbooks.Add
ExcelBook.WorkSheets(1).cells(1,1).value ="用户表"
ExcelBook.WorkSheets(1).cells(2,1).value = "用户编号"
ExcelBook.WorkSheets(1).cells(2,2).value = "登陆名"
ExcelBook.WorkSheets(1).cells(2,3).value = "真实姓名"
ExcelBook.WorkSheets(1).cells(2,4).value = "密码"
cnt =3
do while not rs.eof
ExcelBook.WorkSheets(1).cells(cnt,1).value = rs("provinceid")
ExcelBook.WorkSheets(1).cells(cnt,2).value = rs("province")
ExcelBook.WorkSheets(1).cells(cnt,3).value = rs("flag")
ExcelBook.WorkSheets(1).cells(cnt,4).value = rs("id")
rs.movenext
cnt = cint(cnt) + 1
loop
Excelbook.SaveAs "d:\yourfile.xls" '这个是数据导出完毕以后在D盘存成文件
ExcelApp.Application.Quit '导出以后退出Excel
Set ExcelApp = Nothing '注销Excel对象
%>-
• asp执行出错，直接忽略错误代码
• 利用ASP显示当前网站在线人数代码
• ASP编程中经常用到的ASP代码，很有用的哦
• 网页加密攻略:使用ASP程序密码锁
• 兼容ie,火狐,chrome,safari,360,qq,遨游,搜狗等浏览器的设为首页和加入收藏代码
• fckeditor报错FCKLang undefined(fcklang未定义)的解决方法
• JS、ASP、PHP自动检测浏览器语言并转到相关URL
• ASP禁止站外提交表单(不允许从外部提交数据)
• 兼容IE和Firefox火狐的上下、左右循环滚动JS代码
• 在文章内容中随机插入网站版权文字，防止采集
