shootingzone_player_count.asp

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

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

<META HTTP-EQUIV="Refresh" CONTENT="300">
<%
sql = "select count(*) as count from Shootingzone_Player_checktime"
set cnt_rs = DbCon.Execute(sql)
tot_chk_count = cnt_rs("count")
%>

<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>航霸烙 酱泼粮 概聪酒惑 (since 03/01/17)</b></font></div>
	</td>
  </tr>
</table><br>
<table border=0 width=600 cellpadding=0 cellspacing=0 align=center>
<tr>
	<td width=100% bgcolor=#FFCC00 align=center style="font-size:13pt" height=30 valign=middle><b >Shootingzone俊 啊厘 腹捞 立加茄 雀盔</b><br>
										 <font size=2>2003斥 1岿 17老 15矫 何磐 概 30盒寸 醚 <font color=red size=2><%=tot_chk_count%></font>雀 眉农茄 搬苞</font>			
	</td>
</tr>
<tr>
	<td colspan=2 bgcolor="#3C57A2">
		<table border=0 width=600 cellpadding=0 cellspacing=1 class="boardtext03">
		<tr>
			<td width=30 bgcolor="skyblue" align=center height=20>Rank</td>
			<td width=70 bgcolor="skyblue" align=center height=20>User_idx</td>
			<td width=80 bgcolor="skyblue" align=center height=20>User_id</td>
			<td width=50 bgcolor="skyblue" align=center height=20>Count</td>
			<td width=170 bgcolor="skyblue" align=center height=20>GaipDate</td>
			<td width=100 bgcolor="skyblue" align=center height=20>Birth</td>
			<td width=50 bgcolor="skyblue" align=center height=20>Gender</td>
		</tr>
		
<%
sql = "select top 500 useridx, Shootingzone_Player.userid, count(useridx) as playcount, gaipdate, jumina, juminb "
sql = sql &  "from Shootingzone_Player inner join  ib_member on Shootingzone_Player.useridx= ib_member.idx  " 
sql = sql &  "group by useridx, Shootingzone_Player.userid, gaipdate, jumina, juminb  "
sql = sql &  "order by playcount desc, gaipdate asc "
set ser_rs = DbCon.Execute(sql)

if ser_rs.Eof OR ser_rs.Bof then 

else 

i=1

DO UNTIL ser_rs.Eof OR ser_rs.Bof

	useridx 		=	ser_rs("useridx")
	userid 		= 	ser_rs("userid")
	playcount 	= 	ser_rs("playcount")
	gaipdate		= 	ser_rs("gaipdate")
	jumina 		= 	ser_rs("jumina")
	juminb 		= 	ser_rs("juminb")

if i mod 20 >0 and i mod 20 <11 then 
	bgcolor = "#E6E6E6"
else
	bgcolor = "#CCCCCC"
end if
%>
		<tr>
			<td width=30 bgcolor="<%=bgcolor%>" align=center height=20 ><%=i%></td>
			<td width=70 bgcolor="<%=bgcolor%>" align=center height=20 ><%=useridx%></td>
			<td width=80 bgcolor="<%=bgcolor%>" align=center height=20><%=userid%></td>
			<td width=50 bgcolor="<%=bgcolor%>" align=center height=20><%=playcount%></td>
			<td width=170 bgcolor="<%=bgcolor%>" align=left height=20 valign=middle>&nbsp;&nbsp;<%=gaipdate%></td>
			<td width=100 bgcolor="<%=bgcolor%>" align=center height=20 valign=middle><%=jumina%></td>
			<td width=50 bgcolor="<%=bgcolor%>" align=center height=20 valign=middle><%if left(juminb, 1) = 1 then %>巢<%elseif  left(juminb, 1) = 2 then%>咯<%end if%></td>
		</tr>
		
<%
	if i mod 100 = 0 then 		
%>
		<tr>
			<td colspan=7 bgcolor="white" align=center height=50  valign=middle><a href="/admin/event/event.asp"><font size="2"><b>捞亥飘 皋牢栏肺 操宽~~~!!!</b></font></a></td>
		</tr>

<%	
	end if
%>
<%
	i=i+1
	ser_rs.MOVENEXT
	LOOP
	
	end if
%>
	
	
		</table>
	</td>
</table>
<table width="650" border=0 align=center class="boardtext03"> 
<tr><td align="right"><br>
(^_^) 捞亥飘绰 拌加登绢具茄促~ 罗~~~~宽! 缺泼~!!</font><br><br>
<a href="/admin/event/event.asp"><font size="2"><b>捞亥飘 皋牢栏肺 操宽~~~!!!</b></font></a><br><br>
</td></tr></table>

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