asp导出excel文件方法
分类：程序开发 Tags： asp excel 评论：0 浏览：4421 最近更新时间：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对象
%>-
• 忽略JS错误代码,网页屏蔽js错误代码
• ASP如何获取当前网站地址，网页地址代码及div+css菜单应用
• ASP输出26个英文字母的方法代码
• ASP几种常见分页代码
• 1小时ASP入门，教你简单学会ASP
• asp执行出错，直接忽略错误代码
• asp导出excel文件方法
• 一个表单中如何实现多个按钮提交的方法代码
• 通用ASP生成HTML代码，无需读取模版
• 兼容ie,火狐,chrome,safari,360,qq,遨游,搜狗等浏览器的设为首页和加入收藏代码
