ASP导出数据到excel
最近做一个用asp做的网站后台的数据导出功能时,google,baidu了很多,但是多数都是转载,代码大概都一样,但是就是报错,最后有人说通过设置MIME类型和建立模板,最后整理,测试问题终于解决.关键的地方有以下几点:
1):MIME类型要设置正确,如要把DB中表(或表中指定字段)的数据导出成exel格式时,头部的MEMI类型的设置是:
<%
Response.Expires = 0
Response.ContentType="application/vnd.ms-excel"
Response.AddHeader "content-disposition","inline; filename=exportDataName.xls"
%>
尾部的MIME类型的设置:
<%
Response.ContentType="application/vnd.ms-excel"
Response.AddHeader "content-disposition","attachment filename=exportDataName.xls"
rs.close
set rs=nothing
%>
注::exportDataName为导出exel时要保存的文件名,自己可以自定义,比如以yyyy-MM-dd形式保存,以上头部信息的设置,即MIME类型的设置和JAVA代码中的文件下载设置一样,其它的类型如法炮制.
2)模板的字段设置一定要和从表中读出的要迭代的一致.
xls.asp代码如下：
<!--#include file="../Inc/Conn.asp"-->
<!--#include file="../Inc/Function.asp"-->
<%
function times_gs(times)
dim years,months,days
years=year(times)
months=month(times)
if len(months)=1 then
months="0"&months
end if
days=day(times)
if len(days)=1 then
days="0"&days
end if
times_gs=years&"-"&months&"-"&days
end function
'用于查询记过的导出，当然可以通过各种方式传递值到这个页面，我是通过button的onlick：表单名.action='xls.asp?action=srh<%=strpage%>，strpage用于搜索时的项
源码如下：
riqi = trim(request("riqi"))
riqi2 = trim(request("riqi2"))
danhao = trim(request("danhao"))
wuliu = trim(request("wuliu"))
kehu = trim(request("kehu"))
jbr = trim(request("jingbanren"))
if riqi<>"" and riqi2<>"" then
sql_riqi = "and riqi between #"&riqi&"# and #"&riqi2&"#"
end if
if danhao<>"" then
sql_danhao = " and danhao='"&danhao&"'"
end if
if wuliu<>"" then
sql_wuliu = " and wuliu like '%"&wuliu&"%'"
end if
if kehu<>"" then
sql_kehu = " and kehu like '%"&kehu&a
相关文档：
在特定条件下，您可能需要避开验证。例如，您可能具有一个页面，即使用户没有正确填写所有验证字段，也应该可以发送页。您可以设置 ASP.NET 服务器控件来避开客户端和服务器的验证，而不只是客户端验证。
安全说明： 默认情况下，ASP.NET 网页执行请求验证以确保用户输入内容不包含脚本� ......
默认情况下，在页回发到服务器时、页初始化之后（即视图状态和回发数据已处理之后）和调用事件处理代码之前，ASP.NET 验证控件将自动执行验证。如果浏览器支持客户端脚本，控件也可以在浏览器中执行验证。
但是，有时您可能需要以编程方式执行验证。在以下情况下，您可能需要通过编程来� ......
本演练通过使用代码协调同一页上的两个菜单，演示如何以编程方式使用 ASP.NET Menu 控件。
可以使用 ASP.NET Menu 控件为网站创建导航菜单。在本演练中，将考察 ASP.NET Menu 控件的编程方面，并创建两个协同工作的菜单，它们都绑定到同一个 Web.sitemap 文件。第一个菜单是静态显示的类别（如产品、服务和支持）菜单。� ......
dataurl=Server.MapPath("menutree.mdb")'数据库地址
dim conn,strQuery,rs
set conn = server.CreateObject("adodb.connection")
conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&dataurl
strQuery="select * from menufun"
set rs=server.createobject("adodb.recordset")
rs.open strQuery,conn,1 ......
以win2003操作系统，硬盘采用NTFS文件系统。网站的权限设置包含两部分：主要是网站文件夹与文件的访问权限，其次是IIS中的internet匿名用户的访问权限。
一、网站文件夹与文件访问权限的设置
假设ASP网站在以下文件夹中：web 、bbs，我们称其为网站根文件夹。
1、相同的设置
（1）本地用户一般都要对站点内的文件夹和文 ......
