community_guild_list.asp

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

<%menutype = "community"%>

<!-- #include virtual = /common/top.asp -->

<%menu_down3 = "yes"%>
<%menu_down3_2 = "yes"%>

<!-- #include virtual = /community/community_menu.asp -->

<table width="100%" border="0" cellspacing="0" cellpadding="0" background="/community/images/bg_subbody.gif" height="100%">
	<tr> 
	  <td> 
		<div align="center"><img src="images/community_title_guild_list.gif" width="586" height="57"></div>
	  </td>
	</tr>
	<tr> 
	  
    <td valign="top" align="center"> 
      <%
			Response.Buffer = True
			Response.Expires = -1
			Response.AddHeader "Pragma","no-cache" 
			%>
      <table width="560" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td><img src="images/guild_list_title.gif" width="560" height="40"></td>
        </tr>
      </table>
      <table border="0" cellpadding="2" cellspacing="0" width="560" class="boardtext03">
        <!--#include virtual="/common/BombConnDB.asp"-->
        <%
			stype = trim(request("stype"))
			if stype = "" then stype = "ALL"
			searchstr = trim(request("searchstr"))

			sql = "SELECT count(*) as count FROM IB_Guild"
			set cnt_rs = DbCon.Execute(sql)
			totalNum = cnt_rs("count")

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

			sql = "SELECT Top " & PageSize * curPage & " * FROM IB_Guild "
			sql = sql & " Where a_enable != 0 "
			if stype = "Name" then
				sql = sql & " and a_name like '%" & searchstr & "%' "
			elseif stype = "Master" then
				sql = sql & " and a_master like '%" & searchstr & "%' "
			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")
					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> 
          <td align="center" width="42"><img src="images/icons/<%=logo%>.gif" align="absmiddle"></td>
          <td align="left" width="192"><a href="community_guild_view.asp?index=<%=rs("a_index")%>"><%=name%></a></td>
          <td align="center" width="90"><%=master%></td>
          <td align="right" width="68"><%=member%> 疙</td>
          <td align="center" width="6">&nbsp;</td>
          <td align="center" width="72"><%=guild_day%></td>
          <td align="center" width="62"><%=enable%></td>
        </tr>
        <tr> 
          <td colspan=7 align=center><img src="images/guild_line.gif" width="560" height="1"></td>
        </tr>
        <%rs.MoveNext
				wend%>
        <tr> 
          <td colspan=7 align=center> 
            <!-- page 何盒 甸绢哎 镑 -->
            <%
							count = 0
							start = curPage - 5
							if start < 1 then start = 1
							response.write ("<a href=""community_guild_list.asp?page=1&stype=" & stype & "&searchstr=" & searchstr & """>" & "[贸澜]</a>&nbsp;")
							for i=start to LastPage
								if (CLng(i) <> CLng(curPage)) then
									response.write ("<a href=""community_guild_list.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=""community_guild_list.asp?page=" & LastPage & "&stype=" & stype & "&searchstr=" & searchstr & """>[付瘤阜]</a>")
						%>
            <!-- page 何盒 甸绢哎 镑 -->
          </td>
        </tr>
        <tr>
          <td colspan=7 align=center>&nbsp;</td>
        </tr>
        <tr> 
          <td colspan="7" align="center" valign="middle"> 
            <!-- 八祸 何盒 甸绢哎 镑 -->
            <form name="search" action="community_guild_list.asp" method="post">
              <select size="1" name="stype" class="input_box">
                <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>
              </select>
              <input type="text" name="searchstr" size="20" value="<%=searchstr%>" class="input_box">
              <input type="submit" value="八 祸" name="Search" class="input_box">
              &nbsp;&nbsp;<a href="community_guild_list.asp"><img src="images/guild_list.gif" border="0" align="absbottom"></a> 
            </form>
            <!-- 八祸 何盒 甸绢哎 镑 -->
          </td>
        </tr>
        <%
			else
			%>
        <script language="JavaScript">
				<!--
					alert('八祸 搬苞啊 绝嚼聪促.');
					history.back();
				// -->
				</script>
        <%
			end if
			%>
      </table>

	  
	  </td>
	</tr>
  </table>

<!-- #include virtual = /common/bottom.asp -->