<% Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("./counter/counter.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath SET rs = Server.CreateObject("ADODB.Recordset") Rs.Open "Select * From counters" , conn,1,3 LASTIP = RS("LASTIP") NEWIP = REQUEST.servervariables("REMOTE_ADDR") IF CSTR(RS("DATE")) <> CSTR(DATE()) THEN ' 如果日期已過了一天 RS("DATE") = DATE() ' 將日期改為今天 RS("YESTERDAY") = RS("TODAY") ' 將今日人數與昨日人數交換 RS("TODAY") = 1 ' 重新計算今日登入人數 RS.Update ' 儲存資料 END IF IF LASTIP <> NEWIP THEN ' 比對 IP ,不使用灌水式 RS("TOTAL") = RS("TOTAL") + 1 ' 總數加一 RS("TODAY") = RS("TODAY") + 1 ' 重新計算今日登入人數 RS("LASTIP") = NEWIP ' 將新登入者的 IP 寫入 RS.Update ' 儲存資料 END IF Function GCounter( counter ) Dim S, i, G S = CStr( counter ) ' 先將數值轉成字串 S ' 逐一取出字串 S 的每一個字元，然後串成 的圖形標示 For i = 1 to Len(S) G = G & "" Next response.write G End Function %> 專業維修 製造 販賣 負責 認真