今天群裡一個朋友瀏覽了我的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%>
有關這個鏈接,(*^__^*),本人試了很多方法都得不到正確的結果所以用了最笨的方法,就是把年月日一一讀出來,然後在天的地方進行加減。各位朋友如果有更好的方法請聯繫我哦! QQ:3277121,或者到我的網站http:www.asp98.cn聯繫我。
具體實例請看本站的http://asp98.cn/Arclist.asp 頁面!