遍历获得两个日期区间的所有日期

1. Dim rstTime,strSQL
   
2. Dim strTime
   
3. Dim newDate,stopDate
   
4.    
   
5. set objDict= Server.CreateObject("Scripting.Dictionary")   ' 字典对象
   
6. 
   
7. strSQL="SELECT addtime,eddtime FROM Stardate"
   
8. set rstTime=Conn.Execute(strSQL)
   
9. While not rstTime.eof
   
10. 
    
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
    
20. 
    
21. rstTime.movenext
    
22. Wend
    
23. rstTime.Close
    
24. set rstTime=Nothing
    
25. 
    
26. strTime=Join(objDict.keys,",")
    
27. 
    
28. 
    
29. Set objDict=nothing

复制代码