首先思路,定义一个变量获取值来查询数据库。如果为空就等于当前时间。
一、变量定义
代码如下:
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"
……………
………..
http:\\www.xuyuanqiang.cn
四、最后加上一个链接
以下是引用片段:
前一天 后一天
后一天处可以加一个判断
<%IF datediff("d",变量名,now())>0 then%>显示后一天的链接<%end if%>
评论前必须登录!
注册