ASP页面下载ACCESS查询出来的结果无果

西部-伏地魔 2024-02-04 18:10:56

通过ASP页面下载ACCESS中查询出来的结果,但最终不显示下载页,我也看不出是那的问题了,请大神帮着给看看,谢谢!

【页面1】

查询条件输入页面,通过FORM方式获取time1、time2、time3、time4的值(页面截图如下)

【页面2】

以下全为从【页面1】取值到【页面2】的原代码:

1、引入数据库存并取值

<!--#include file="conn.asp"-->
<%
a=request("guzhanghao")
b=request("sp")
c=request("chuli")
d=request("exitname")
time1=request("time1")
time2=request("time2")
time3=request("time3")
time4=request("time4")

2、生成的EXCEL文件并存放

filename="Regist_Exhi"&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&".xls"
filename1="EXECL/"&filename
filename=Server.MapPath(filename1)

3、创建EXCEL文件与列名,并将列名写入EXCEL

Set fs = server.CreateObject("scripting.filesystemobject")
set myfile = fs.CreateTextFile(filename,true)
dim strLine,responsestr
strLine=""

strLine = strLine & "序号"& chr(9)
strLine = strLine & "受理工号"& chr(9)
strLine = strLine & "用户名"& chr(9)
strLine = strLine & "办理号"& chr(9)
strLine = strLine & "联系号"& chr(9)
strLine = strLine & "是否弹窗"& chr(9)
strLine = strLine & "分类1"& chr(9)
strLine = strLine & "分类2"& chr(9)
strLine = strLine & "用户需求"& chr(9)
strLine = strLine & "登记时间"& chr(9)
strLine = strLine & "处理结果"& chr(9)
strLine = strLine & "处理人"& chr(9)
strLine = strLine & "处理备注"& chr(9)
strLine = strLine & "处理时间"& chr(9)

myfile.writeline strLine
Set rs = Server.CreateObject("ADODB.Recordset")

 4、根据条件值,从数据库查询结果并放入EXCEL中

if time1<>"" and time2<>"" then
	sql = "SELECT * from sp where time>=#"&time1&"# and time<=#"&time2&"# order by id desc"
else
	if time3<>"" and time4<>"" then
		sql = "SELECT * from sp where exittime>=#"&time3&"# and exittime<=#"&time4&"# order by id desc"
	else
		sql = "select * from sp order by id desc"
	end if
end if

rs.Open sql,db
if Not rs.EOF then
Do while Not rs.EOF

strLine = strLine & Rs("id") & chr(9)
strLine = strLine & Rs("tijiaogonghao") & chr(9)
strLine = strLine & Rs("yonghuming") & chr(9)
strLine = strLine & Rs("guzhanghao") & chr(9)
strLine = strLine & Rs("lianxidianhua") & chr(9)
strLine = strLine & Rs("sp") & chr(9)
strLine = strLine & Rs("sp1") & chr(9)
strLine = strLine & Rs("sp2") & chr(9)
strLine = strLine & Rs("beizhu") & chr(9)
strLine = strLine & Rs("time") & chr(9)
strLine = strLine & Rs("chuli") & chr(9)
strLine = strLine & Rs("exitname") & chr(9)
strLine = strLine & Rs("exitbeizhu") & chr(9)
strLine = strLine & Rs("exittime") & chr(9)

5、将表的数据写入EXCEL并进行下载

myfile.writeline strLine
rs.MoveNext
loop
end if

rs.Close
set rs=nothing
set conn = nothing
set myfile = nothing
Set fs=Nothing
Response.Redirect filename1
%>
...全文
3115 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复

看你数据表 是否包含数据 代码看不出具体问题

28,398

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧