% if Request.Cookies("IsFirst")=fail then LASTIP = RS("LASTIP") NEWIP = REQUEST.servervariables("REMOTE_ADDR") mode = LCASE(Request("mode")) gif = Request("gif") SET rs = Server.CreateObject("ADODB.Recordset") Rs.Open "Select * From counters" ,conn,1,3 IF CSTR(Month(RS("DATE"))) <> CSTR(Month(DATE())) THEN RS("DATE") = DATE() RS("YESTERDAY") = RS("TODAY") RS("BMONTH") = RS("MONTH") RS("MONTH") = 0 RS("TODAY") = 0 RS.Update ELSE IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN RS("DATE") = DATE() RS("YESTERDAY") = RS("TODAY") RS("TODAY") = 0 RS.update END IF response.Cookies("IsFirst")=true END IF RS("TOTAL") = RS("TOTAL") + 1 RS("TODAY") = RS("TODAY") + 1 RS("MONTH") = RS("MONTH") + 1 RS.Update end if %>
|
|
|
|||||||||
|
|
|
|
|
|
|
|
|
|
|
|
![]() |
|
| ||||||
| ||||||||
|
|
![]() |
| |||||||||