%Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("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
%>
台灣醫學儀器網
|
|
本區管球廠牌、種類繁多,請直接與本公司聯絡,報價。同時本公司皆可提供安裝報價。
本區產品代理商:寰亞國際股份有限公司
聯絡電話:02-86302641
E-mail:service@medicalsystem.com.tw
|
|
|
Copyright©2000
台灣醫學儀器網【美達康有限公司】 電話:02-8630-2641 傳真專線:02-8630-4110 |