📄 counter.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="Check.asp"-->
<HTML>
<HEAD>
<TITLE> main </TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE>BODY {
FONT-SIZE: 10pt
}
TD {
FONT-SIZE: 10pt; LINE-HEIGHT: 150%
}
A {
TEXT-DECORATION: none
}
A:hover {
TEXT-DECORATION: underline
}
</STYLE></HEAD>
<BODY background="../pic/user/bg.jpg">
<br>
<br>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<%
mode = LCASE(Request("mode"))
gif = Request("gif")
SET rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counters" ,conn,1,3
if request("up")="upda" then
rs("total")=0
rs("today")=0
rs("yesterday")=0
rs("month")=0
rs("bmonth")=0
rs("date")=now()
rs("inputdate")=now()-1
rs.update
response.write"<script>window.location.href='counter.asp';</script>"
end if
response.write "本站总访问："
GCounter( RS("TOTAL") )
response.write " 人<br>"
response.write "今日访问量："
GCounter( RS("TODAY") )
response.write " 人<br>"
response.write "昨日访问量："
GCounter( RS("YESTERDAY") )
response.write " 人<br>"
response.write "本月访问量："
GCounter( RS("MONTH") )
response.write " 人<br>"
response.write "上月访问量："
GCounter( RS("BMONTH") )
response.write " 人<br>"
N = Now
D2 = DateValue(N)
D1 = rs("inputdate") ' 开始统计日期(月/日/年)
response.write "本站已运行："
GCounter( DateDiff("d", D1, D2) )
response.write " 天<br>"
D3 = DateDiff("d", D1, D2)
response.write "平均访问量："
GCounter( RS("TOTAL")\D3 )
response.write " 人<br>"
rs.Close
response.write "当前有 <img src='../counter/OnlineCount.asp'> 人在线<br>"
Function GCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & "<IMG SRC=../counter/" & Mid(S, i, 1) & ".gif Align=middle>"
Next
response.write G
End Function
%>
</td>
</tr>
<tr>
<td><form name="form1" method="post" action="counter.asp?up=upda">
<br>
<input type="submit" name="Submit" value="计数统计重置" onClick="return confirm('重置后将把所有访问统计设置为0,你确认重置吗？')">
</form>
</td>
<br>
</tr>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -