开启辅助访问
切换到宽版

天天ASP家园官方Q群

天天ASP家园网友互动群

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

群2: 47598123(进阶应用群)

天天ASP家园»论坛 › 技术交流 › ASP技术 › 遍历获得两个日期区间的所有日期
返回列表 发新帖
查看: 316|回复: 0

[文章教程] 遍历获得两个日期区间的所有日期

[复制链接]
xuanxiao 发表于 2023-3-21 18:16:22 | 显示全部楼层 |阅读模式
  1. Dim rstTime,strSQL
  2. Dim strTime
  3. Dim newDate,stopDate
  4.    
  5. set objDict= Server.CreateObject("Scripting.Dictionary")   ' 字典对象

  7. strSQL="SELECT addtime,eddtime FROM Stardate"
  8. set rstTime=Conn.Execute(strSQL)
  9. While not rstTime.eof

  11.            newdate =Cdate(rstTime(0))
  12.            stopDate =Cdate(rstTime(1))
  13.                        
  14.                        
  15.               do
  16.                   'response.write(newdate & "<br />")
  17.                   objDict.Add """"&newdate&"""",true  
  18.                   newdate = newdate + 1
  19.               loop until newdate > stopdate

  21. rstTime.movenext
  22. Wend
  23. rstTime.Close
  24. set rstTime=Nothing

  26. strTime=Join(objDict.keys,",")


  29. Set objDict=nothing
复制代码


QQ图片20230321181605.png
ASP币如何冲？请看这里
回复

使用道具 举报

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

本版积分规则

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

在线客服

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