<!--#include file="inc_const.asp"-->
<%
Response.Expires = 20
Response.CacheControl = "Private"
s = split(application(ConstStr & "_hour24"), ",")
zzz = -1
total_num = 0
for i = 0 to 23
 s(i) = int(s(i))
 total_num = total_num + s(i)
 if s(i) > zzz then zzz=s(i)
next
h = Hour(time())
if h + 1 >= 24 then
 first_h = 0
else
 first_h = h+1
end if
room_array=split(Application(ConstStr & "_room_list"),"$>")
room_name=room_array(1)
%>
<html>
<head>
<title><%=room_name%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="chat.css">
<style>a {color:white}</style>
<body  style="background-color:EAF2FF;color:112233;scrollbar-Base-Color: #b0d8ff;SCROLLBAR-DARKSHADOW-COLOR:#b0d8ff;SCROLLBAR-arrow-COLOR:#336699;SCROLLBAR-TRACK-COLOR: EAF2FF;SCROLLBAR-3DLIGHT-COLOR: #b0d8ff;SCROLLBAR-SHADOW-COLOR: #336699;SCROLLBAR-HIGHLIGHT-COLOR: #b0d8ff;" leftmargin=3 topmargin=10 >
  <table height=100% width=100% ><tr><td align=center valign=center>
  <table align=center cellspacing=0 cellpadding=0 border=1 BORDERCOLORLIGHT=#000000 BORDERCOLORDARK=#ffffff>
<tr><td class=navy2 style="text-align:right"><b>二十四小时流量分析</b></font><font color=FFFFFF>　Total: <b><font color=FFFF00><%=total_num %></font></b></font>
<font color="#FFFFFF"><%=now()%>　　<a href=javascript:history.go(0)>刷新</a>　　<a href="javascript:window.close()">关闭</a></font></td>
<tr>
<td>
<table border="0" align="center" cellspacing="1" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF" cellpadding="1">
<tr align="center" valign="bottom"><% for i = first_h to 23 %>
<td height=230 width=18><%=s(i) %><br><img src=data/cbg.gif width=18 height=<%=int(200*s(i)/zzz)+2%>></td><% next
if h < 23 then
for i = 0 to h %>
<td height=230 width=18><%=s(i)%><br><img src=data/cbg.gif width=18 height=<%=int(200*s(i)/zzz)+2%>></td><% next
end if %>
</tr>
<tr align="center" class=navy2><% for i = first_h 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>
<br><center style=color:blue><%=room_name%> 开放时间：<%=Application(ConstStr & "_opendate")%>　访问人数：<%=Application(ConstStr & "_visitor")%></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>
