<% mode = LCASE(Request("mode")) gif = Request("gif") Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("/travel_view/2005/03/9403_1314/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(Month(RS("DATE"))) <> CSTR(Month(DATE())) THEN RS("DATE") = DATE() RS("YESTERDAY") = RS("TODAY") RS("BMONTH") = RS("MONTH") RS("MONTH") = 0 RS("TODAY") = 0 RS.Update ELSE IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN RS("DATE") = DATE() RS("YESTERDAY") = RS("TODAY") RS("TODAY") = 0 RS.Update END IF END IF //IF LASTIP <> NEWIP THEN ' 比對 IP ,不使用灌水式 RS("TOTAL") = RS("TOTAL") + 1 ' 總數加一 RS("TODAY") = RS("TODAY") + 1 ' 重新計算今日登入人數 RS("MONTH") = RS("MONTH") + 1 ' 加總當月登入人數 RS("LASTIP") = NEWIP ' 將新登入者的 IP 寫入 RS.Update ' 儲存資料 //END IF response.write "今日人數：" GCounter( RS("TODAY") ) response.write " / " response.write "人氣指數：" GCounter( RS("TOTAL") ) response.write " " N = Now D2 = DateValue(N) D1 = #03/18/2005# ' 開始統計日期(月/日/年) CONN.CLOSE Function GCounter( counter ) Dim S, i, G S = CStr( counter ) For i = 1 to Len(S) G = G & "" Next response.write G End Function %>