📄 counter.asp

📁 此程序为网上下载
💻 ASP
字号:
<%@ codepage ="936" %>
<%Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
dim s(23)
sql="SELECT name,value FROM counthour"
rs.open sql,conn,1,1
Do while Not rs.Eof
 Select Case rs("name")
  Case "0"
   s(0)=rs("value")
  Case "1"
   s(1)=rs("value")
  Case "2"
   s(2)=rs("value")
  Case "3"
   s(3)=rs("value")
  Case "4"
   s(4)=rs("value")
  Case "5"
   s(5)=rs("value")
  Case "6"
   s(6)=rs("value")
  Case "7"
   s(7)=rs("value")
  Case "8"
   s(8)=rs("value")
  Case "9"
   s(9)=rs("value")
  Case "10"
   s(10)=rs("value")
  Case "11"
   s(11)=rs("value")
  Case "12"
   s(12)=rs("value")
  Case "13"
   s(13)=rs("value")
  Case "14"
   s(14)=rs("value")
  Case "15"
   s(15)=rs("value")
  Case "16"
   s(16)=rs("value")
  Case "17"
   s(17)=rs("value")
  Case "18"
   s(18)=rs("value")
  Case "19"
   s(19)=rs("value")
  Case "20"
   s(20)=rs("value")
  Case "21"
   s(21)=rs("value")
  Case "22"
   s(22)=rs("value")
  Case "23"
   s(23)=rs("value")
 End Select
rs.MoveNext
Loop
rs.close
conn.close
set rs=nothing
set conn=nothing
zzz=-1
zfw=0
for i=0 to 23
 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
chatroombgimage=Application("wsaxhxf_c_chatroombgimage")
chatroombgcolor=Application("wsaxhxf_c_chatroombgcolor")%><html>
<head>
<title><%=Application("wsaxhxf_c_chatroomname")%>24小时流量统计</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
td{font-size:9pt;line-height:140%}
a{color:white; text-decoration:none}
a:hover{color:black; text-decoration:none}
</style>
</head>
<body oncontextmenu=self.event.returnValue=false bgcolor=<%=chatroombgcolor%> background=<%=chatroombgimage%>>
<div align=center style="font-size:20pt"></div>
<table border="0" cellspacing="0" cellpadding="1" bgcolor="#009900" align="center">
<tr>
<td>
<table width="100%" border="0">
<tr>
<td><font color="#FFFFFF" style="font-size:10.5pt"><b>二十四小时流量分析</b></font><font color=FFFFFF>　　Total: <b><font color=FFFF00><%=zfw %></font></b></font></td>
<td align="right"><font color="#FFFFFF"><%=now()%>　　<a href=javascript:history.go(0)>刷新<b>⊿</b></a>　　<a href="javascript:window.close()">关闭 <b>×</b></a></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td> 
<table width="100%" border="0" bgcolor="<%=chatroombgcolor%>" cellspacing="0">
<tr>
<td>
<table border="0" align="center" cellspacing="1" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF" cellpadding="1">
<tr align="center" valign="bottom"><%for i=hbegin to 23%>
<td height=230 width=18><%=s(i)%><% if s(i) > 0 then %><br><img src=readonly/cbg.gif width=18 height=<%=int(200*s(i)/zzz) %>><%end if%></td><% next
if h < 23 then
for i = 0 to h %>
<td height=230 width=18><%=s(i)%><% if s(i) > 0 then %><br><img src=readonly/cbg.gif width=18 height=<%=int(200*s(i)/zzz)%>><%end if%></td><% next
end if %>
</tr>
<tr align="center" bgcolor="009900"><% for i = hbegin to 23 %>
<td><font color=white><%=i %></font></td><% next
if h < 23 then
for i = 0 to h - 1 %>
<td><font color=white><%=i %></font></td><% next %>
<td><font color=FFFF00><b><%=h %></b></font></td>
<% end if %></tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<div id="Layer1" style="position:absolute; left:-800px; top:-800px; width:0px; height:0px; z-index:1">
<input type=button name=btc value='关闭(Q)' accesskey='q' onClick="top.window.close();">
</div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -