?? cnt.asp
字號(hào):
<!--#include file=CHY.CNT -->
<%
dim LASTIP,NEWIP
set rs=server.CreateObject("ADODB.RecordSet")
Rs.Open "Select * From counters" ,conn,1,3
LASTIP = RS("LASTIP")
NEWIP = REQUEST.servervariables("REMOTE_ADDR")
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("TOTAL") = RS("TOTAL") + 1
RS("TODAY") = RS("TODAY") + 1
RS("MONTH") = RS("MONTH") + 1
RS("LASTIP") = NEWIP
RS.Update
session("IsFirst")=true
ELSE
IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN
RS("DATE") = DATE()
RS("YESTERDAY") = RS("TODAY")
RS("TODAY") = 0
RS("TOTAL") = RS("TOTAL") + 1
RS("TODAY") = RS("TODAY") + 1
RS("MONTH") = RS("MONTH") + 1
RS("LASTIP") = NEWIP
RS.Update
session("IsFirst")=true
END IF
END IF
if session("IsFirst")="" then '判斷是否是第一次登陸，如果是則計(jì)數(shù)器加一
RS("TOTAL") = RS("TOTAL") + 1
RS("TODAY") = RS("TODAY") + 1
RS("MONTH") = RS("MONTH") + 1
RS("LASTIP") = NEWIP
RS.Update
session("IsFirst")=true
end if
%>
document.write(' ○- 昨日訪問：<font color=red><%=rs("YESTERDAY")%></font><br>');
document.write(' ○- 今日訪問：<font color=red><%=rs("TODAY")%></font><br>');
document.write(' ○- 上月訪問：<font color=red><%=rs("BMONTH")%></font><br>');
document.write(' ○- 本月訪問：<font color=red><%=rs("MONTH")%></font><br>');
document.write(' ○- 訪問總數(shù)：<font color=red><%=rs("TOTAL")%></font> ');
<%rs.Close
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -