系統更新日期:2001-12-31

系統維護:卓眾圖書館自動化

 建議使用 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 ' 儲存資料 %>