|
系統更新日期：2004-10-25 |
|
|
|
建議使用 Microsoft Internet Explorer V4.0以上版本, 以 800×600以上解析度瀏覽本網頁 |
||
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("bookdata.mdb")
SET rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From 計數器" , conn,1,3
IF CSTR(Rs("DATE")) <> CSTR(DATE()) THEN ' 如果日期已過了一天
Rs("DATE") = DATE() ' 將日期改為今天
Rs("YESTERDAY") = Rs("TODAY") ' 將今日人數與昨日人數交換
Rs("TODAY") = 0 ' 重新計算今日登入人數
Rs.Update ' 儲存資料
END IF
Rs("TOTAL") = Rs("TOTAL") + 1 ' 總數加一
Rs("TODAY") = Rs("TODAY") + 1 ' 重新計算今日登入人數
Rs.Update ' 儲存資料
%>
