<%
Set DBConn = AccessConn("./db/db.mdb")
SQL1 = " Select * from 計數器"
Set rsNt = openRs(DBConn,SQL1,1,3)
if session("a") <> "1" then
LASTIP = rsNt("LASTIP")
NEWIP = REQUEST.servervariables("REMOTE_ADDR")
IF CSTR(rsNt("DATEES")) <> CSTR(DATE()) THEN ' 如果日期已過了一天
rsNt("DATEES").Value = DATE() ' 將日期改為今天
rsNt("YESTERDAY").Value = rsNt("TODAY") ' 將今日人數與昨日人數交換
rsNt("TODAY").Value = 0 ' 重新計算今日登入人數
rsNt.Update ' 儲存資料
END IF
IF LASTIP <> NEWIP THEN ' 比對 IP ,不使用灌水式
rsNt("TOTAL").Value = rsNt("TOTAL") + 1 ' 總數加一
rsNt("TODAY").Value = rsNt("TODAY") + 1 ' 重新計算今日登入人數
rsNt("LASTIP") = NEWIP ' 將新登入者的 IP 寫入
rsNt.Update ' 儲存資料
END IF
session("a") = 1
end if
%>
Juan Nan produces clamp carriers, finger jointing machines and glue spreaders.
<%=rsNt("TOTAL")%>