📄 counter.asp

📁 聊天室源码呵呵你好用~~~~~~2.0版本

💻 ASP

字号:

<%dim s(23)
zzz=-1
zfw=0
for i=0 to 23
 s(i)=Application("a_c_chat_count"&i)
 zfw=zfw+s(i)
 if s(i)="" then s(i)=0
 if s(i)>zzz then zzz=s(i)
next
h=Hour(time())
if h+1>=24 then
 hbegin=0
else
 hbegin=h+1
end if%><html>
<head>
<title><%=Application("a_c_chatroom_name")%>24小时流量统计</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td {font-size: 9pt; line-height: 140%}
-->
</style>
<script language="javaScript">
function load()
{var name=navigator.appName
var vers=navigator.appVersion
if(name=="Netscape")
{window.location.reload()
}else
{history.go(0)
}}</script>
</head>
<body bgcolor="#FFFFFF">
<div align=center style="font-size:28pt"><font color="#FF0000" face="楷体_GB2312"><%=Application("a_c_chatroom_name")%><font face="Times New Roman, Times, serif">24</font>小时流量分析</font></div>
<table border="1" align="center" bordercolorlight="#000000" bordercolordark="#000000">
<tr>
<td>
<table border="1" align="center" cellspacing="0" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF">
<tr align="center" valign="bottom"><%for i=hbegin to 23%>
<td height="230"><font size="1"><%=s(i)%></font><br><img src="read/cbg.gif" width="18" height="<%=int(200*s(i)/zzz)%>"></td>
<%next
if h<23 then
for i=0 to h%>
<td height="230"><font size="1"><%=s(i)%></font><br><img src="read/cbg.gif" width="18" height="<%=int(200*s(i)/zzz)%>"></td>
<%next
end if%> </tr>
<tr align="center" bgcolor="#0066FF"><%for i=hbegin to 23%>
<td><font color="FFFFFF"><%=i%></font></td>
<%next
if h<23 then
for i=0 to h%>
<td><font color="FFFFFF"><%=i%></font></td>
<%next
end if%></tr>
</table>
</td>
</tr>
</table>
<div align="center">
<table border="0">
<tr>
<td><a href="javascript:load()">最近24小时总访问量：<font color=FF0000><%=zfw%></font>　刷新于：<font color=FF0000><%=now%></font>　点击此处更新数据</a></td>
</tr>
</table>
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -