⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 community_guild_view.asp

📁 泡泡堂服务端内有建站说明,喜欢玩泡泡堂的朋友下载开发.
💻 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"> 

			<!--#include virtual="/common/BombConnDB.asp"-->
			<%
			Response.Buffer = True
			Response.Expires = -1
			Response.AddHeader "Pragma","no-cache" 

			sql = "SELECT idx, UserID, guild_index, guild_level FROM IB_Member WHERE UserID = '"  & bomb_id & "' "
			set rs = DbCon.Execute(sql)
			%>
			<%if rs.EOF then%>
				<script language="javascript">
				<!--
					alert("肺弊牢阑 窍矫绊 捞侩秦 林矫扁 官而聪促.");
					history.back();
				//-->
				</script>
      <%
			else%>
      <%
				index = request("index")
				%>
      <%
				sql = "SELECT * FROM IB_Guild "
				sql = sql & " WHERE a_index = "& index &" "
				set grs = DbCon.Execute (sql)

				if not grs.EOF then
					logo = grs("a_icon")
					name = grs("a_name")
					master = grs("a_master")
					member = grs("a_member_count")
					birth = left(grs("a_birthday"),10)
					regist = left(grs("a_registday"),10)
					enable = grs("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
					homepage = grs("a_homepage")
					intro = grs("a_intro")
					win = grs("a_win")
					lose = grs("a_lose")

				%>
      <table width="546" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td> 
            <div align="center"><img src="images/guild_title2.gif" width="544" height="30"></div>
          </td>
        </tr>
      </table>
      <table border="0" cellpadding="3" cellspacing="1" width="546" class="text">
        <tr>
          <td colspan="2" align="center" valign="middle" height="10"></td>
        </tr>
        <tr bgcolor="#CCCCCC"> 
          <td colspan="2" align="center" valign="middle">* 蜡历丛膊辑绰 <img src="images/icons/<%=logo%>.gif" align="absmiddle">&nbsp;<%=name%> 
            辨靛狼<b><font color="FFCC00"> 
            <%if rs("idx") = grs("a_master_index") and rs("guild_index") = grs("a_index") and rs("guild_level") = 0 then%>
            <font color="#FF6600">脚没磊</font> 
            <%elseif rs("idx") = grs("a_master_index") and rs("guild_index") = grs("a_index") and rs("guild_level") = 10 then%>
            <font color="#FF6600">辨靛 付胶磐</font> 
            <%elseif rs("guild_index") = grs("a_index") and rs("guild_level") = 7 then%>
            <font color="#FF6600">何辨靛 付胶磐</font> 
            <%elseif rs("guild_index") = grs("a_index") and rs("guild_level") = 1 then%>
            <font color="#FF6600">辨靛盔</font> 
            <%else%>
            <font color="#FF6600">厚雀盔</font> 
            <%end if%>
            </font></b>涝聪促.</td>
        </tr>
        <tr> 
          <td width="30%" align="right" bgcolor="#D9D5CC">辨靛疙&nbsp;:&nbsp;</td>
          <td align="left" valign="middle" bgcolor="#EEEEEE"><img src="images/icons/<%=logo%>.gif" align="absmiddle">&nbsp;<%=name%></td>
        </tr>
        <tr> 
          <td width="30%" align="right" bgcolor="#D9D5CC">辨靛 付胶磐&nbsp;:&nbsp;</td>
          <td align="left" bgcolor="#EEEEEE"><%=master%></td>
        </tr>
        <tr> 
          <td width="30%" align="right" bgcolor="#D9D5CC">辨靛 权其捞瘤&nbsp;:&nbsp;</td>
          <td align="left" bgcolor="#EEEEEE"><a href="<%=homepage%>" target="_blank"><%=homepage%></a></td>
        </tr>
        <tr> 
          <td width="30%" align="right" bgcolor="#D9D5CC">殿废老&nbsp;:&nbsp;</td>
          <td align="left" bgcolor="#EEEEEE"><%=guild_day%></td>
        </tr>
        <tr> 
          <td width="30%" align="right" bgcolor="#D9D5CC">辨靛盔荐&nbsp;:&nbsp;</td>
          <td align="left" bgcolor="#EEEEEE"><%=member%> 疙</td>
        </tr>
        <%if rs("guild_index") = grs("a_index") then%>
        <tr> 
          <td width="30%" align="right" bgcolor="#D9D5CC">辨靛傈 傈利&nbsp;:&nbsp;</td>
          <td align="left" bgcolor="#EEEEEE"><%=win%> 铰 <%=lose%> 菩</td>
        </tr>
        <%end if%>
        <tr> 
          <td width="30%" align="right" bgcolor="#D9D5CC">辨靛 惑怕&nbsp;:&nbsp;</td>
          <td align="left" bgcolor="#EEEEEE"><%=enable%></td>
        </tr>
        <tr> 
          <td width="30%" align="right" bgcolor="#D9D5CC">辨靛 家俺&nbsp;:&nbsp;</td>
          <td align="left" bgcolor="#EEEEEE"><%=intro%></td>
        </tr>
        <%if rs("guild_index") = grs("a_index") then
								sql = "SELECT idx, UserID, cLevel, Point, guild_index, guild_level FROM IB_Member WHERE guild_index = "  & grs("a_index") & " "
								sql = sql & " ORDER BY guild_level DESC"
								set mrs = DbCon.Execute(sql)
						%>
        <tr> 
          <td width="30%" align="right" bgcolor="#D9D5CC">辨靛盔&nbsp;:&nbsp;</td>
          <td align="left" valign="middle" bgcolor="#EEEEEE"> 
            <%
								if mrs.EOF then
									response.write "辨靛盔捞 绝焙夸.....ぱ.ぱ"
								else
									while not mrs.EOF
										guild_member = mrs("UserID")
										guild_level = mrs("guild_level")
										sPoint = mrs("Point")
										if guild_level = 10 then
											guild_level = "辨靛 付胶磐"
										elseif guild_level = 7 then
											guild_level = "何辨靛 付胶磐"
										elseif guild_level = 1 then
											guild_level = "辨靛盔"
										else
											guild_level = "辨靛 脚没磊"
										end if%>
            <b><%=guild_member%></b> ( <%=guild_level%> ) 
            <%
										medal = mrs("cLevel")
										if medal < 10 then medal = 0
										medal = CInt(Left(CStr(medal), 1))
										if medal > 8 then medal = 8
										medal_num = CInt(Right(CStr(mrs("cLevel")),1))
										if medal_num < 1 then medal_num = 1
										%>
            <img src="/community/rank/medal/m<%=medal+1%>.gif" width="20" height="23" align="absmiddle"><img src="/community/rank/medal/n<%=medal_num%>.gif" width="15" height="23" align="absmiddle"> 
            (LV. <%=mrs("cLevel")%>) <br>
            <%mrs.movenext
									wend
								end if
							%>
          </td>
        </tr>
        <%end if%>
        <tr> 
          <td colspan="2" align="center">
            <hr size="1">
          </td>
        </tr>
        <tr> 
          <td colspan="2" align="center"> 
            <%if (rs("idx") = grs("a_master_index") and rs("guild_index") = grs("a_index") and rs("guild_level") = 0) or (rs("idx") = grs("a_master_index") and rs("guild_index") = grs("a_index") and rs("guild_level") = 10) then%>
            <a href="community_guild_modify.asp?index=<%=grs("a_index")%>"><img src="images/guild_modify.gif" border="0"></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
            <%end if%>
            <a href="community_guild_list.asp"><img src="images/guild_list.gif" border="0"></a></td>
        </tr>
      </table>
				<%
				else
				%>
					<script language="JavaScript">
					<!--
						alert('八祸 搬苞啊 绝嚼聪促.');
						history.back();
					// -->
					</script>
				<%
				end if
				%>
			<%
			end if
			%>

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

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

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -