<%
mode = LCASE(Request("mode"))
gif = Request("gif")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("..\..\home\wcounter.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
response.write " 歡迎!歡迎!閣下是第 "
GCounter( RS("TOTAL") )
response.write " 位貴賓到來參觀本網頁"
CONN.CLOSE ' 關閉資料庫
Function GCounter( counter )
Dim S, i, G
S = CStr( counter ) ' 先將數值轉成字串 S
' 逐一取出字串 S 的每一個字元，然後串成 
的圖形標示
For i = 1 to Len(S)
G = G & "![](./wedding/count/")
"
Next
response.write G
End Function
%>
Frances
& Samuel
百威友情?接:
百家?建?
百老???
新豪???城
新西???
金沙???城
喜?登??网
澳?新濠天地
皇冠投注站
?都??城
澳??花??
不夜城??
金海岸??城
威客百家?
淡然??城
真人??平台
百苑????
云?????
外?足球??
皇家足球官网
皇冠足球网站
威鑫棋牌??
?榕庄??网
真人真?骰?
百盛??城
永隆?上??
三?真人??
翡翠??城
富豪??城
新濠?上??
?金城??
福布斯??城
?洲通??城
百家??博机
波音??城
星河??城
同???城
大?皇冠??
?九??城
三?真人博彩
久久???
KK?上??
上虞棋牌??
大都?博彩
????城
?可波???
?????
易???城
网投??城
皇?足球投注
大???城
金成??网
?元??平台
帝王???
新加坡??
澳?永利??
博客多??城
?江??城
大?家百家?
金鑫??城
非????城
?天堂博彩
博彩体?金
泰姬??城
利高??网
天天???
嘉年?博彩
?太??网
?庄??城
澳??桂坊
澳???真人
美高梅??城
天猴??城
尊??上??
天王??城
曼哈???
正?皇冠??
立博博彩公司
新???平台
新皇冠?金
尊???城
万???网
?金网注?
?九??城
在???城
网上的??
百姓??城
一???上??
真人斗地主
怡彩??网
嘉年?博彩
多?多??
?奇??城
E起???
海立方??
波音博彩排名
博狗bodog
大?扑克官网
新???城
星河??平台
豪???棋牌