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
%>

...全文