<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Buffer=true
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = 0
%>
<html>
<head>
<title><%=Application("zhbg_chatroomname")%>国度门派</title>
<link href="../../css.css" rel="stylesheet" type="text/css">
<!--#include file="../../Center/top_index.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body  leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<% if zhbg_name<>"" then %>
<SCRIPT language=JavaScript src="../../gif/a1-2.js"></SCRIPT>
<% else %>
<SCRIPT language=JavaScript src="../../gif/a1.js"></SCRIPT>
<% end if %>
<br>
<table width="775" border="0" align="center" cellpadding="0" cellspacing="0" >
  <!--DWLayoutTable-->
 <tr>
    <td width="7" height="32"></td>
    <td width="247" rowspan="2" valign="top"><table width="247"  border="0" cellpadding="0" cellspacing="0">
        <!--DWLayoutTable-->
        <tr>
          <td width="246" valign="top">
<% if zhbg_name<>"" then %>
<!--#include file="../../man.asp"-->
<% else %>
<!--#include file="../../denglu.asp"-->
<% end if %>
</td>
        </tr>
		<tr><td height="21" valign="top" ><!--DWLayoutEmptyCell-->&nbsp;</td>
		</tr>
    </table></td>
    <td width="23" rowspan="2" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
    <td width="471" align="center"><font color="#FF9900" size="3"><b>国度门派</b></font> </td>
    <td width="27" rowspan="2" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
  </tr>
  <tr>
    <td></td>
    <td valign="top">
在国度上闯荡，不找个老大照着怎么行呢？！<br>
赶快找个“码头”吧
<table width="100%" height="58" border="3" align="center" cellpadding="3" cellspacing="0" bordercolor="#cccccc">
  <tr align="center" > 
    <td width="65" height="21">门派</td>
          
    <td width="59" height="21">掌门</td>
          
    <td width="48" height="21">弟子数</td>
          
    <td width="90" height="21">限制</td>
          
    <td width="90" height="21">简介</td>
          
    <td width="65" height="21">操作</td>
        </tr>
        <%
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
dim jhmenpai(200,2)
rs.open "SELECT * FROM p",conn
do while not rs.bof and not rs.eof
   	menpai=menpai+1
	jhmenpai(menpai,1)=trim(rs("a"))
	rs.movenext
loop
for xx=1 to menpai
tmprs=conn.execute("Select count(*) As 数量 from 用户 where 门派='"&jhmenpai(xx,1)&"'")
regren=tmprs("数量")
sql="update p set c="& regren &" where a='"& jhmenpai(xx,1) &"'"
Set Rs=conn.Execute(sql)
next
rs.open "SELECT * FROM p where a<>'官府' and a<>'天网' and a<>'游侠'",conn
do while not rs.bof and not rs.eof
%>
        
  <tr > 
    <td width="65" height="26" align="center"><a href="MP.ASP?my=<%=zhbg_name%>&id=<%=rs("a")%>"><%=rs("a")%></a></td>
    <td width="59" height="26" align="center"><%=rs("b")%></td>
    <td width="48" height="26" align="center"><%=rs("c")%></td>
    <td width="90" height="26" align="center"><%=rs("e")%></td>
    <td width="90" height="26" align="center"><%=rs("d")%></td>
    <td width="65" height="26" align="center"><a href="#" onClick="window.open('mp1.asp?my=<%=zhbg_name%>&amp;id=<%=rs("a")%>','zhuangti','scrollbars=no,resizable=no,width=430,height=290')">加入</a>|<a href="#" onClick="window.open('mp2.asp?my=<%=zhbg_name%>&amp;id=<%=rs("a")%>','zhuangti','scrollbars=no,resizable=no,width=430,height=290')"></a><a href="#" onClick="window.open('mp2.asp?my=<%=zhbg_name%>&amp;id=<%=rs("a")%>','zhuangti','scrollbars=no,resizable=no,width=430,height=290')">离开</a></td>
        </tr>
        <%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
      </table>
<br>
<p align="center">　<img border="0" src="../../chat/img/sys1.gif" width="18" height="18"> 
        离开门派判帮的话,你的钱、存款将清至1000,所以请你小心!<br>
        谁都想找一位好的老大照着,加入门派是没错的!        <br>
    </td>
  </tr>
</table><br>
<% if zhbg_name<>"" then %>
<SCRIPT language=JavaScript src="../../gif/a2-2.js"></SCRIPT>
<% else %>
<SCRIPT language=JavaScript src="../../gif/a2.js"></SCRIPT>
<% end if %>
<br>

</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
