connection.asp

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

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

<META HTTP-EQUIV="Refresh" CONTENT="300">
<%
stype = trim(request("stype"))
if stype = "" then stype = "ALL"
if stype = "BG" then
	stype_text = "航霸烙"
elseif stype = "NM" then
	stype_text = "齿付喉"
elseif stype = "BM" then
	stype_text = "棍胶孤流"
elseif stype = "JC" then
	stype_text = "炼捞揪匙"
elseif stype = "LH" then
	stype_text = "扼弊窍烙"
else
	stype_text = "傈眉"
end if
searchstr = trim(request("searchstr"))
today= left(now, 4)&"-"&int(mid(now, 6, 2))&"-"&int(mid(now, 9, 2))

sql = "Select idx, Name from IB_GAMESERVERLIST Where IsActive = 1 "
set ser_rs = DbCon.Execute(sql)

sql = "Select count(*) as count from ib_member Where IsLogin = 1 "
if stype <> "" then
	if stype = "Name" then
		sql = sql & " and Name = '" & searchstr & "' "
	elseif stype = "UserID" then
		sql = sql & " and userid = '" & searchstr & "' "
	elseif stype = "ALL" then
	else
		sql = sql & " and partner_tag = '" & stype & "' "
	end if
end if
set cnt_rs = DbCon.Execute(sql)
totalNum = cnt_rs("count")

PageSize = 50
curPage = request("page")
if curPage = "" then curPage = 1

sql = "SELECT Top " & PageSize * curPage & " idx, userid, userPWD, Name, GaipDate, Email, handPhone, partner_tag, PlayServerIdx FROM ib_member "
sql = sql & " where IsLogin = 1 "
if stype <> "" then
	if stype = "Name" then
		sql = sql & " and Name = '" & searchstr & "' "
	elseif stype = "UserID" then
		sql = sql & " and userid = '" & searchstr & "' "
	elseif stype = "ALL" then
	else
		sql = sql & " and partner_tag = '" & stype & "' "
	end if
end if
sql = sql & " ORDER BY idx desc"
set rs = DbCon.Execute (sql)
%>

<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 width="600" border="0" cellspacing="0" cellpadding="0" align="center" class="boardtext03">
  <tr> 
         <td  height="26"> 
		  
           <table width="100%" border="0" cellspacing="0" cellpadding="0" height="26">
             <tr> 
               <td align=center height=30 valign=middle bgcolor="#CCCCCC" style="font-size:13pt" height=30 valign=middle class=black><b><%=now()%> 泅犁 立加吝牢 <font color=red><b><%=stype_text%></b></font>荤侩磊 : <font color=Blue size=3><%=totalNum%></font> 疙</b></td>
               </tr>
               <tr>
               <td  height=30 valign=middle bgcolor="#CCCCCC">
		<div align="center"> 
		<form name="search" action="connection.asp" method="post">
		<select size="1" name="stype" >
		<option value="">急琶窍技夸</option>
		<option value="ALL"<%if stype="ALL" then response.write(" selected")%>>傈眉 雀盔</option>
		<option value="BG"<%if stype="BG" then response.write(" selected")%>>航霸烙 雀盔</option>
		<!-- <option value="NT"<%if stype="NT" then response.write(" selected")%>>匙捞飘 雀盔</option> -->
		<option value="BM"<%if stype="BM" then response.write(" selected")%>>棍胶孤流 雀盔</option>
		<option value="JC"<%if stype="JC" then response.write(" selected")%>>炼捞揪匙 雀盔</option>
		<option value="NM"<%if stype="NM" then response.write(" selected")%>>齿付喉 雀盔</option>
		<option value="LH"<%if stype="LH" then response.write(" selected")%>>扼弊窍烙 雀盔</option>
		</select>
		<input type="submit" value="八 祸" name="Search">  
		</form>
		</div>
	</td>
             </tr>
           </table>
		
         </td>
       </tr>
       <tr> 
         <td height="25" align="center"><br> 
<%
if not ser_rs.EOF then%>
	  <table width="400" border="0" cellspacing="1" cellpadding="0" class="boardtext03">
		<tr bgcolor="skyblue"> 
		  <td width="200" height="30"><div align="center"><b>辑滚疙</b></div></td>
		  <td width="200"><div align="center"><b>悼立磊 荐</b></div></td>
		</tr>
<%while not ser_rs.EOF
		sql = "Select count(*) as count from ib_member Where IsLogin = 1 and PlayServerIdx = " & ser_rs("idx") & ""
		if stype <> "" then
			if stype = "Name" then
				sql = sql & " and Name = '" & searchstr & "' "
			elseif stype = "UserID" then
				sql = sql & " and userid = '" & searchstr & "' "
			elseif stype = "ALL" then
			else
				sql = sql & " and partner_tag = '" & stype & "' "
			end if
		end if
		set num_rs = DbCon.Execute (sql)
%>
		<tr bgcolor="#CCCCCC"> 
		  <td height="30"><div align="center"><%=ser_rs("Name")%></div></td>
		  <td><div align="center"><%=num_rs("count")%></div></td>
		</tr>
	<%ser_rs.MoveNEXT    
	wend%>
	</table>
<%
end if
%>

<tr>
 <td colspan=8 height=20>
 </td>
 </tr>

           </table>
	
      <table width="700" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
        <td align=center>
<!--坷疵 矫埃措喊 悼立磊 肺弊-->
        
   <%
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 border=0 width=600 cellpadding=0 cellspacing=0 align=center>
<tr>
	<td width=100% bgcolor=#FFCC00 align=center style="font-size:12pt" height=30 valign=middle><b>概矫埃 悼立磊荐 肺弊 (<%=cur_year &"-"& cur_month &"-"&cur_day%>) &nbsp;&nbsp;&nbsp;<a href=month_connect.asp?stype=<%=stype%> ><font color=blue>促弗朝 肺弊焊扁</font></a></b>
												<br><font size=2>秦寸 矫阿狼 鉴埃 悼立磊荐涝聪促.</font></td>
</tr>
<tr>
	<td colspan=2 bgcolor="#3C57A2">
		<table border=0 width=600 cellpadding=0 cellspacing=1 class="boardtext03">
		<tr>
			<td width=100 bgcolor="skyblue" align=center height=20 class=black>矫埃</td>
			<td width=100 bgcolor="skyblue" align=center height=20 class=black>辑滚疙</td>
			<td width=50 bgcolor="skyblue" align=center height=20 class=black>悼立磊</td>
			<td width=350 bgcolor="skyblue" align=center height=20 class=black>Graph</td>
		</tr>
<%
if stype="ALL" then
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 &"') "

else
sql = "select max(connect_cnt) as maxcount "
sql = sql &  "from part_connect_cnt " 
sql = sql &  "where (chk_time >= '"& cur_year &"-"& cur_month &"-"&cur_day&"') AND (chk_time <  '"& next_year &"-"& next_month &"-"&next_day &"' "
sql = sql &  " and partner_tag='"&stype&"')"
end if

'response.write sql
set cnt_rs = DbCon.Execute(sql)

maxcount=cnt_rs("maxcount")

	dim i 
	for i = 0 to 23
	
	if i<10 then 
	start_time =cur_year &"-"& cur_month &"-"&cur_day & " 0" & i & ":00"
	end_time = cur_year &"-"& cur_month &"-"&cur_day & " 0" & i & ":59"
	else
	start_time =cur_year &"-"& cur_month &"-"&cur_day & " " & i & ":00"
	end_time = cur_year &"-"& cur_month &"-"&cur_day & " " & i & ":59"
	end if
	
	if i mod 2 = 0 then 
		bgcolor="#CCCCCC"
		graphcolor="red"
	else 
		bgcolor="#E6E6E6"
		graphcolor="blue"
	end if
%>
		
		
<%
if stype="ALL" then
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 &"' )"

else

sql = "select  chk_time, server_idx, server_name, connect_cnt, partner_tag "
sql = sql &  "from part_connect_cnt " 
sql = sql &  "where (chk_time >= '"& start_time &"' and chk_time < '"& end_time &"' "
sql = sql &  " and partner_tag='"&stype&"'"
sql = sql &  ")"

end if

set ser_rs = DbCon.Execute(sql)

if ser_rs.Eof OR ser_rs.Bof then 
%>	
<!--
		<tr>
			<td bgcolor="<%=bgcolor%>" align=center height=20  class=black colspan=4>秦寸 矫埃俊  历厘等 悼立磊荐 肺弊啊 绝嚼聪促. </td>
			
		</tr>		
-->
<%
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")

chk_time = formatdatetime(chk_time,4)
%>
		<tr>
			<td width=100 bgcolor="<%=bgcolor%>" align=center height=20  class=black><%=chk_time%></td>
			<td width=100 bgcolor="<%=bgcolor%>" align=center height=20 class=black><%=server_name%></td>
			<td width=50 bgcolor="<%=bgcolor%>" align=center height=20 class=black><%=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>     

<!--坷疵 矫埃措喊 悼立磊 肺弊-->
        
        </td>
         </tr>
          </table>
        </td>
      </tr>
      
    </table>        
    
<!-- #include virtual="/admin/admin_bottom.asp" -->