guild.asp

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

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

<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="1" cellpadding="3" class="boardtext03">
	<tr bgcolor="skyblue"> 
		<td width="60" align="center" height="30">辨靛 肺绊</td>
		<td align="center">辨靛疙</td>
		<td width="70" align="center">辨靛 付胶磐</td>
		<td width="50" align="center">辨靛盔荐</td>
		<td width="70" align="center">朝 楼</td>
		<td width="60" align="center">辨靛 惑怕</td>
	</tr>
<%
stype = trim(request("stype"))
if stype = "" then stype = "ALL"
searchstr = trim(request("searchstr"))

sql = "Select count(*) as count, a_enable from IB_Guild"
sql = sql & " group by a_enable "
set cnt_rs = DbCon.Execute(sql)

if not cnt_rs.EOF then
	while not cnt_rs.EOF
		a_enable = cnt_rs("a_enable")
		if a_enable = 0 then ' 企尖
		 guild0 = cnt_rs("count")
		elseif a_enable = 1 then ' 沥惑 铰牢
		 guild1 = cnt_rs("count")
		elseif a_enable = 2 then ' 喉钒
		 guild2 = cnt_rs("count")
		elseif a_enable = 3 then ' 啊铰牢
		 guild3 = cnt_rs("count")
		end if		
		cnt_rs.moveNext
	wend
end if
totalNum = guild0 + guild1 + guild2 + guild3

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

sql = "SELECT Top " & PageSize * curPage & " * FROM IB_Guild "
if stype = "Name" then
	sql = sql & " Where a_name like '%" & searchstr & "%' "
elseif stype = "Master" then
	sql = sql & " Where a_master like '%" & searchstr & "%' "
elseif stype = "guild1" then
	sql = sql & " Where a_enable = 1 "
elseif stype = "guild3" then
	sql = sql & " Where a_enable = 3 "
elseif stype = "guild2" then
	sql = sql & " Where a_enable = 2 "
elseif stype = "guild0" then
	sql = sql & " Where a_enable = 0 "
end if
sql = sql & " ORDER BY a_index desc"
set rs = DbCon.Execute (sql)

if not rs.EOF then
	rs.Move ((curPage-1) * PageSize)
	LastPage = Round((totalNum-1) / PageSize + 0.51)
	if LastPage < 1 then LastPage = 1

	while not  rs.EOF
		logo = rs("a_icon")
		name = rs("a_name")
		master = rs("a_master")
		master_index = rs("a_master_index")
		member = rs("a_member_count")
		birth = left(rs("a_birthday"),10)
		regist = left(rs("a_registday"),10)
		enable = rs("a_enable")
		if enable = "0" then
			enable = "企尖"
			guild_day = regist
		elseif enable = "3" then
			enable = "脚没吝"
			guild_day = birth
		elseif enable = "2" then
			enable = "喉钒"
			guild_day = regist
		else
			enable = "沥惑"
			guild_day = regist
		end if
%>

		<tr bgcolor="#CCCCCC">
			<td align="center" height="30"><img src="/community/guild/images/icons/<%=logo%>.gif" align="absmiddle"></td>
			<td align="left"><a href="guild_view.asp?index=<%=rs("a_index")%>"><%=name%></a></td>
			<td align="center"><%=master%></td>
			<td align="right"><%=member%> 疙</td>
			<td align="center"><%=guild_day%></td>
			<td align="center"><%=enable%></td>
		</tr>

	<%rs.MoveNext
	wend%>

		<tr bgcolor="#CCCCCC">
			<td colspan=6 align=center height="30">
			 <!-- page 何盒 甸绢哎 镑 -->
			<%
				count = 0
				start = curPage - 5
				if start < 1 then start = 1
				response.write ("<a href=""guild.asp?page=1&stype=" & stype & "&searchstr=" & searchstr & """>" & "[贸澜]</a>&nbsp;")
				for i=start to LastPage
					if (CLng(i) <> CLng(curPage)) then
						response.write ("<a href=""guild.asp?page=" & i & "&stype=" & stype & "&searchstr=" & searchstr & """>[" & i & "]</a>&nbsp;")
					else
						response.write ("<b>[" & i & "]</b>&nbsp;")
					end if
					count = count + 1
					if (count > 10) then exit for
				next
				response.write ("<a href=""guild.asp?page=" & LastPage & "&stype=" & stype & "&searchstr=" & searchstr & """>[付瘤阜]</a>")
			%>
			 <!-- page 何盒 甸绢哎 镑 -->
			</td>
		</tr>
		<tr bgcolor="skyblue">
			<td colspan=6 align=center valign="middle">
			 <!-- 八祸 何盒 甸绢哎 镑 -->
			 <form name="search" action="guild.asp" method="post">
				<select size="1" name="stype" >
				<option value="ALL"<%if stype="ALL" then response.write(" selected")%>>急琶窍技夸</option>
				<option value="Name"<%if stype="Name" then response.write(" selected")%>>辨靛疙</option>
				<option value="Master"<%if stype="Master" then response.write(" selected")%>>辨靛 付胶磐</option>
				<option value="guild1"<%if stype="guild1" then response.write(" selected")%>>沥惑辨靛</option>
				<option value="guild3"<%if stype="guild3" then response.write(" selected")%>>脚没吝辨靛</option>
				<option value="guild2"<%if stype="guild2" then response.write(" selected")%>>喉钒辨靛</option>
				<option value="guild0"<%if stype="guild0" then response.write(" selected")%>>企尖辨靛</option>
				</select>
				<input type="text" name="searchstr" size="20" value="<%=searchstr%>">
				<input type="submit" value="八 祸" name="Search">
			 </form>
			 <!-- 八祸 何盒 甸绢哎 镑 -->
			</td>
		</tr>
		 <tr bgcolor="#FFCC00"> 
		   <td align="center" colspan=6><b>殿废等 醚 辨靛荐 : <%=totalNum%></b><br>沥惑 : <%=guild1%>&nbsp;&nbsp;&nbsp;&nbsp;脚没吝 : <%=guild3%>&nbsp;&nbsp;&nbsp;&nbsp;喉钒 : <%=guild2%>&nbsp;&nbsp;&nbsp;&nbsp;企尖 : <%=guild0%></td>
		 </tr>

<%
else
%>
	<script language="JavaScript">
	<!--
		alert('八祸 搬苞啊 绝嚼聪促.');
		location.href="guild.asp";
	// -->
	</script>
<%
end if
%>

</table>

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