一、变量定义
代码如下：
Dim 变量名 '名字自己起一下吧，本人最不会起名字了。
IF Request.QueryString("参数") = "" Then
变量名 = Now()
Else
变量名 = Request.QueryString("参数")
End If
二、判断日期格式是否正确
这个程序做好以后我才考虑到，现在觉得以他的重要性应该放在这里
（知识点：IsDate函数）
以下是引用片段：
If Not IsDate(变量名) Then
变量名 = now()
End If
三、数据库查询
（知识点：这里用到一个datediff时间函数）
以下是用片段：
Sql = "Select * From [表] where datediff('d',数据库时间,'"&变量名&"')=0 Order By id Desc"
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024