|
|
This text is replaced by the Flash movie.
|
|
出一點力，發一分光」
本會提倡互助互勉精神，歡迎閣下加入本會義工行列，改善本會服務。
招募對象：柏金遜症患者，照顧者、家屬或朋友
>> 詳情
下載報名表格：
>> PDF 版本表格 (適用於電郵方式遞交)
>> WORD 版本表格
|
|
| |
<%
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
RS("TOTAL") = RS("TOTAL") + 1
RS("TODAY") = RS("TODAY") + 1
RS("LASTIP") = NEWIP
RS.Update
END IF
response.write RS("TOTAL")
CONN.CLOSE
%>
|
|
|
|
|
|
| Copyright 2006 Hong Kong Parkinson's Disease Association. All Rights Reserved. |
|
