开启辅助访问
切换到宽版

天天ASP家园官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园»论坛 › 技术交流 › ASP技术 › ASP通过条件查询记录并保存下载
返回列表 发新帖
查看: 868|回复: 5

[问与答] ASP通过条件查询记录并保存下载

[复制链接]
伏地魔 发表于 2024-3-6 18:19:22 | 显示全部楼层 |阅读模式
本帖最后由 伏地魔 于 2024-3-6 18:26 编辑

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

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

【页面2】
以下为【页面2】的原代码
  1. <!--#include file="conn.asp"-->
  2. <%
  3. time1=request("time1")
  4. time2=request("time2")
  5. time3=request("time3")
  6. time4=request("time4")

  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

  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)&"处理时间"

  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

  43. response.redirect "download.xls"
  44. link="<A HREF="&filename&"><font color=red><b>导出excel文件</b></font></a>"
  45. Response.write link

  47. rs.Close
  48. set rs = nothing
  49. '返回【页面1】
  50. response.write("window.top.location.href='download.asp';")

  52. %>
复制代码

评分

1

查看全部评分

ASP币如何冲？请看这里
回复

使用道具 举报

xuanxiao 发表于 2024-3-6 23:21:48 | 显示全部楼层
也不用后端，纯前端就可以实现。
ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

 楼主| 伏地魔 发表于 2024-3-7 08:48:31 | 显示全部楼层
xuanxiao 发表于 2024-3-6 23:21
也不用后端，纯前端就可以实现。

那我这个是哪出问题了，请大神指导一下，谢谢
ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

xuanxiao 发表于 2024-3-7 17:21:10 | 显示全部楼层
伏地魔 发表于 2024-3-7 08:48
那我这个是哪出问题了，请大神指导一下，谢谢


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

  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内容就可以了。
1.png

生成的效果
2.png
ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

一往情僧 发表于 2024-3-19 18:42:59 | 显示全部楼层
也可以先查询到页面，加个存为EXCEL的代码就行。
ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

xuanxiao 发表于 2024-3-20 10:17:03 | 显示全部楼层
一往情僧 发表于 2024-3-19 18:42
也可以先查询到页面，加个存为EXCEL的代码就行。

对 ，这个思路是可以的
ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号