_day_connect.asp

泡泡堂服务端内有建站说明,喜欢玩泡泡堂的朋友下载开发.

<!-- #include virtual="/admin/admin_head.asp" -->

<META HTTP-EQUIV="Refresh" CONTENT="300">
<%
if (Trim(Request("year_from")) <> "") then
	cur_year		= CInt(Request ("year_from"))
	cur_month	= CInt(Request ("month_from"))
	cur_day		= CInt(Request ("day_from"))
else
	cur_year		= Year	(Date())
	cur_month	= month	(Date())
	cur_day		= day	(Date())
end if


last_day  = Day(DateAdd("d", -1, DateAdd("m", 1, DateSerial(cur_year, cur_month, 1))))

if len(cur_month) = 1 then 
cur_month = "0" & cur_month
end if

	if cur_day < last_day then
		next_day=cur_day +1
		next_month=cur_month
		next_year=cur_year
	else
		if cur_month = 12 then
			next_day="01"
			next_month = "01"
			next_year = cur_year + 1
	
		else
			next_day="01"
			next_month = cur_month + 1
			next_year = cur_year
		end if
	end if

if len(next_month) = 1 then 
next_month = "0" & next_month
end if
%>

<table width="750" border="0" cellspacing="1" cellpadding="1" align="center">
  <tr> 
	<td bgcolor="#CCCCCC" height="50">
	  <div align="center"><font size="5" face="蹈框"><b>航霸烙 悼立 沥焊</b></font></div>
	</td>
  </tr>
</table><br>

<table border=0 width=600 cellpadding=0 cellspacing=0 align=center>
<tr>
	<td width=100% bgcolor=#E6E6E6 align=center style="font-size:13pt" height=30 valign=middle><b>概矫埃 悼立磊荐 眉农 (<%=cur_year &"-"& cur_month &"-"&cur_day%>)</b></td>
</tr>
<tr>
	<td colspan=2 bgcolor="#3C57A2">
		<table border=0 width=600 cellpadding=0 cellspacing=1>
		<tr>
			<td width=100 bgcolor="#7FBBF1" align=center height=20>矫埃</td>
			<td width=100 bgcolor="#7FBBF1" align=center height=20>辑滚疙</td>
			<td width=50 bgcolor="#7FBBF1" align=center height=20>悼立磊</td>
			<td width=350 bgcolor="#7FBBF1" align=center height=20>Graph</td>
		</tr>
<%
sql = "select max(connect_cnt) as maxcount "
sql = sql &  "from connect_cnt " 
sql = sql &  "where (chk_time >= '"& cur_year &"-"& cur_month &"-"&cur_day&"') AND (chk_time <  '"& next_year &"-"& next_month &"-"&next_day &"') "

set cnt_rs = UDbCon.Execute(sql)

maxcount=cnt_rs("maxcount")

	dim i 
	for i = 0 to 23
	
	if i<10 then 
	start_time =date() & " 0" & i & ":00"
	end_time = date() & " 0" & i & ":59"
	else
	start_time =date() & " " & i & ":00"
	end_time = date() & " " & i & ":59"
	end if
	
	if i mod 2 = 0 then 
		bgcolor="#7FBBF1"
		graphcolor="red"
	else 
		bgcolor="#E6E6E6"
		graphcolor="blue"
	end if
%>
		
		
<%
sql = "select  chk_time, server_idx, server_name, connect_cnt "
sql = sql &  "from connect_cnt " 
sql = sql &  "where chk_time >= '"& start_time &"' and chk_time < '"& end_time &"' "



set ser_rs = UDbCon.Execute(sql)

if ser_rs.Eof OR ser_rs.Bof then 
%>	
		

<%
else 
DO UNTIL ser_rs.Eof OR ser_rs.Bof
chk_time = ser_rs("chk_time")
server_name = ser_rs("server_name")
connect_cnt = ser_rs("connect_cnt")



%>
		<tr>
			<td width=100 bgcolor="<%=bgcolor%>" align=center height=20 ><%=mid(chk_time, 11, 8)%></td>
			<td width=100 bgcolor="<%=bgcolor%>" align=center height=20><%=server_name%></td>
			<td width=50 bgcolor="<%=bgcolor%>" align=center height=20><%=connect_cnt%></td>
			<td width=350 bgcolor="<%=bgcolor%>" align=left height=20 valign=middle>
				<table height=5 bgcolor=<%=graphcolor%> border=0 width="<%=(340*connect_cnt/maxcount)%>" cellpadding=0 cellspacing=0>
				<tr>
				<td>
				</td>
				</tr>
				</table>
			</td>
		</tr>
<%
	
	ser_rs.MOVENEXT
	LOOP
	
	end if

	next
	
	
%>
	
	
		</table>
	</td>
</table>

<!-- #include virtual="/admin/admin_bottom.asp" -->