以文本方式查看主题

-  智睿软件_技术交流论坛  (http://zhirui.net/bbs/index.asp)
--  Web程序开发  (http://zhirui.net/bbs/list.asp?boardid=22)
----  Asp获取当日文章并支持前一天后一天的方法  (http://zhirui.net/bbs/dispbbs.asp?boardid=22&id=191)
--  作者：zhirui
--  发布时间：2009-12-05 17:21:13
--  Asp获取当日文章并支持前一天后一天的方法

今天群里一个朋友浏览了我的asp98.cn网站，她说最好做一个当日内容的列表，用户一般都懒得往下去看的。感觉非常有道理，这就是所谓的用户体验了，呵呵！说搞就搞！所以搞到半夜一点半...... - - #

内容列表非常简单，这里就不多说了，首先思路，定义一个变量获取值来查询数据库。如果为空就等于当前时间。

  一、变量定义 

代码如下：
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"
...............
...........

 

四、最后加上一个链接

以下是引用片段：
前一天 后一天

后一天处可以加一个判断

<%IF datediff("d",变量名,now())>0 then%>显示后一天的链接<%end if%>

有关这个链接，(*^__^*)，本人试了很多方法都得不到正确的结果 所以用了最笨的方法，就是把年月日一一读出来，然后在天的地方进行加减。