ASP通过条件查询记录并保存下载

我是一个ASP半调子爱好者，自己做了个程序想实现条件查询后的下载，试了好多次都没实现！请大神帮着给看看，谢谢！

【页面1】
查询条件输入页面，通过FORM方式获取time1、time2、time3、time4的值（页面截图如下）


【页面2】
以下为【页面2】的原代码

1. <!--#include file="conn.asp"-->
   
2. <%
   
3. time1=request("time1")
   
4. time2=request("time2")
   
5. time3=request("time3")
   
6. time4=request("time4")
   
7. 
   
8. dim filename,fs,myfile,s,x  
   
9. Set fs = server.CreateObject("scripting.filesystemobject")
   
10. '--假设你想让生成的EXCEL文件做如下的存放  
    
11. filename = Server.MapPath("download.xls")
    
12. '--如果原来的EXCEL文件存在的话删除它
    
13. if fs.FileExists(filename) then
    
14. fs.DeleteFile(filename)
    
15. end if
    
16. 
    
17. '--创建EXCEL文件  
    
18. set myfile = fs.CreateTextFile(filename,true)  
    
19. if time1<>"" and time2<>"" then
    
20.         sql = "SELECT * FROM sp WHERE time>=#"&time1&" 00:00:00# and time<=#"&time2&" 23:59:59# order by id desc"
    
21. else
    
22.         if time3<>"" and time4<>"" then
    
23.                 sql = "SELECT * FROM sp WHERE exittime>=#"&time3&" 00:00:00# and exittime<=#"&time4&" 23:59:59# order by id desc"
    
24.         else
    
25.                 sql = "select * from sp order by gdbj asc, id desc"
    
26.         end if
    
27. end if
    
28. Set rs=server.createobject("adodb.recordset")
    
29. rs.open sql,db,3,1
    
30. if not rs.EOF and not rs.BOF then  
    
31. dim trLine,responsestr  
    
32. strLine="序号"&chr(9)&"受理工号"&chr(9)&"用户名"&chr(9)&"办理号"&chr(9)&"联系号"&chr(9)&"是否弹窗"&chr(9)&"分类1"&chr(9)&"分类2"&chr(9)&"用户需求"&chr(9)&"登记时间"&chr(9)&"处理结果"&chr(9)&"处理人"&chr(9)&"处理备注"&chr(9)&"处理时间"
    
33. 
    
34. '--将表的列名先写入EXCEL
    
35. myfile.writeline strLine
    
36. Do while Not rs.EOF
    
37. strLine=id&chr(9)&tijiaogonghao&chr(9)&yonghuming&chr(9)&guzhanghao&chr(9)&lianxidianhua&chr(9)&sp&chr(9)&sp1&chr(9)&sp2&chr(9)&beizhu&chr(9)&time&chr(9)&chuli&chr(9)&exitname&chr(9)&exitbeizhu&chr(9)&exittime
    
38. myfile.writeline strLine
    
39. rs.MoveNext
    
40. loop
    
41. end if
    
42. 
    
43. response.redirect "download.xls"
    
44. link="<A HREF="&filename&"><font color=red><b>导出excel文件</b></font></a>"
    
45. Response.write link
    
46. 
    
47. rs.Close
    
48. set rs = nothing
    
49. '返回【页面1】
    
50. response.write("window.top.location.href='download.asp';")
    
51. 
    
52. %>

复制代码

也不用后端，纯前端就可以实现。

xuanxiao 发表于 2024-3-6 23:21
也不用后端，纯前端就可以实现。

那我这个是哪出问题了，请大神指导一下，谢谢

伏地魔 发表于 2024-3-7 08:48
那我这个是哪出问题了，请大神指导一下，谢谢

ASP导出EXCEL.rar (33 KB, 下载次数: 0, 售价: 5 个ASP币)

2024-3-7 17:23 上传

点击文件名下载附件

1.     <script>
   
2.             function ExportToExcel() {        
   
3.                  $("#myTable").table2excel({
   
4.                   name: "Backup file for HTML content",              
   
5.                   filename: "表格.xls",                                  
   
6.                                 exclude_img: true,
   
7.                                 exclude_links: true,
   
8.                                 exclude_inputs: true,
   
9.                                 preserveColors: false
   
10.                                   
    
11.               });         
    
12.          
    
13.             }
    
14.        
    
15.     </script>

复制代码

参考代码，替换掉table内容就可以了。


生成的效果

也可以先查询到页面，加个存为EXCEL的代码就行。

一往情僧 发表于 2024-3-19 18:42
也可以先查询到页面，加个存为EXCEL的代码就行。

对 ，这个思路是可以的