% Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("../../nicecounterdatav1.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=con123;dbq=" & DBPath SET rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From counters where id=26 " , 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("bmonth") = rs("month") rs("month") = 1 rs("today") = 1 rs.Update END IF IF lastip <> newIP THEN rs("total") = rs("total") + 1 rs("TODAY") = rs("today") + 1 rs("month") = rs("month") + 1 rs("lastip") = newIP rs.Update END IF %>
![]() ![]() ![]() |
|||||||||||||||||||||||||||||||||
![]() ![]() |
|||||||||||||||||||||||||||||||||
| R E G I O N A L C O N T A C T S | |||||||||||||||||||||||||||||||||
|
|
|
||||||||||||||||||||||||||||||||
POLYTRONICS
TECHNOLOGY CORPORATION
6F-3, No.9 Prosperity RD. I,
SBIP,Hsin-Chu, Taiwan, 300
TEL: 886-3-5643931 FAX: 886-3-5644624