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

📄 guild_view.asp

📁 泡泡堂服务端内有建站说明,喜欢玩泡泡堂的朋友下载开发.
💻 ASP
字号:
<!-- #include virtual="/admin/admin_head.asp" -->

<script language="JavaScript">
<!--
function popup(name, name2, w, h, s)
{
var pop_name = name;
var win_name = name2;
var w_value = w;
var h_value = h;
var scroll = s;
	window.open(pop_name,win_name,'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=' + scroll +',resizable=no,width=' + w_value +',height=' + h_value +',left=11,top=5');
}
// -->
</script>

<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 border="0" width="100%">
	<tr> 
		<td align="center">
			<%
			sql = "Select idx, UserID, guild_index, guild_level from IB_Member where UserID = '"  & session("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="600" border="0" cellspacing="1" cellpadding="3" class="boardtext03">
						<tr bgcolor="skyblue">
							<td width="30%" height="30" align="right">辨靛疙&nbsp;:&nbsp;</td>
							<td align="left" valign="middle" bgcolor="#CCCCCC"><img src="/community/guild/images/icons/<%=logo%>.gif" align="absmiddle">&nbsp;<%=name%></td>
						</tr>
						<tr bgcolor="skyblue">
							<td width="30%" height="30" align="right">辨靛 付胶磐&nbsp;:&nbsp;</td>
							<td align="left" bgcolor="#CCCCCC"><%=master%></td>
						</tr>
						<tr bgcolor="skyblue">
							<td width="30%" height="30" align="right">辨靛 权其捞瘤&nbsp;:&nbsp;</td>
							<td align="left" bgcolor="#CCCCCC"><a href="<%=homepage%>" target="_blank"><%=homepage%></a></td>
						</tr>
						<tr bgcolor="skyblue">
							<td width="30%" height="30" align="right">殿废老&nbsp;:&nbsp;</td>
							<td align="left" bgcolor="#CCCCCC"><%=guild_day%></td>
						</tr>
						<tr bgcolor="skyblue">
							<td width="30%" height="30" align="right">辨靛盔荐&nbsp;:&nbsp;</td>
							<td align="left" bgcolor="#CCCCCC"><%=member%> 疙</td>
						</tr>
						<tr bgcolor="skyblue">
							<td width="30%" height="30" align="right">辨靛傈 傈利&nbsp;:&nbsp;</td>
							<td align="left" bgcolor="#CCCCCC"><%=win%> 铰 <%=lose%> 菩</td>
						</tr>
						<tr bgcolor="skyblue">
							<td width="30%" height="30" align="right">辨靛 惑怕&nbsp;:&nbsp;</td>
							<td align="left" bgcolor="#CCCCCC"><b><%=enable%></b></td>
						</tr>
						<tr bgcolor="skyblue">
							<td width="30%" height="30" align="right">辨靛 家俺&nbsp;:&nbsp;</td>
							<td align="left" bgcolor="#CCCCCC"><%=intro%></td>
						</tr>
						<%
							sql = "Select idx, UserID, userPWD, 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 bgcolor="skyblue">
							<td width="30%" height="30" align="right">辨靛盔&nbsp;:&nbsp;</td>
							<td align="left" bgcolor="#CCCCCC">
							<%
								if mrs.EOF then
									response.write "辨靛盔捞 绝焙夸.....ぱ.ぱ"
								else
									while not mrs.EOF
										guild_member = mrs("UserID")
										guild_level = mrs("guild_level")
										sPoint = mrs("Point")
										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

										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><a href="javascript:popup('/admin/member/member_view.asp?index=<%=mrs("idx")%>&user_id=<%=mrs("UserID")%>', 'member_view', 500, 700, 'no');"><%=guild_member%></a></b> ( <%=guild_level%> )&nbsp;<img src="/community/rank/medal/m<%=medal+1%>.gif" width="20" height="23"><img src="/community/rank/medal/n<%=medal_num%>.gif" width="15" height="23">
										<br>
									<%mrs.movenext
									wend
								end if
							%>
							</td>
						</tr>
						<tr bgcolor="skyblue">
							<td width="30%" height="30" align="right">辨靛 惑怕 函版&nbsp;:&nbsp;<br><font color="red"><b>酒贰狼 林狼荤亲<br>鞘刀 饶 角青</b></font></td>
							<td align="center" height="30" bgcolor="#CCCCCC"><a href="guild_modify_ok.asp?index=<%=index%>&enable=2">[辨靛 喉钒]</a>&nbsp;&nbsp;<a href="guild_modify_ok.asp?index=<%=index%>&enable=0">[辨靛 企尖]</a>&nbsp;&nbsp;<a href="guild_modify_ok.asp?index=<%=index%>&enable=1">[辨靛 沥惑]</a>&nbsp;&nbsp;<a href="guild_modify_ok.asp?index=<%=index%>&enable=3">[辨靛 脚没吝]</a></td>
						</tr>
						<tr bgcolor="#FFCC00">
							<td colspan="2" align="left" height="30"><b> - 企尖矫 葛电 辨靛盔甸 辨靛 沥焊 昏力 (眠饶 汗备绰 辨付父 啊瓷)<br><br> - 企尖俊辑 沥惑栏肺 汗备矫 辨付 沥焊父 汗备 (喉钒俊辑 汗备矫浚 喉钒矫 雀盔沥焊绰 忱滴扁 锭巩俊 秦寸绝澜.)<br><br> - 脚没吝栏肺 函版矫 (芭狼 镜老捞 绝摆瘤父 趣矫唱 窍绰 付澜俊...ぱ.ぱ) 沥惑苞 付蛮啊瘤风 辨付(脚没磊)父 函版.</b></td>
						</tr>
						<tr bgcolor="#CCCCCC">
							<td colspan="2" align="center" height="30"><a href="guild.asp">[府胶飘肺]</a></td>
						</tr>
					</table>
				<%
				else
				%>
					<script language="JavaScript">
					<!--
						alert('八祸 搬苞啊 绝嚼聪促.');
						history.back();
					// -->
					</script>
				<%
				end if
				%>
			<%
			end if
			%>

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

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

⌨️ 快捷键说明

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