<%@ LANGUAGE=VBScript%>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../error.asp?id=210"
if Instr(LCase(Application("zhbg_useronlinename"&session("nowinroom")))," "&LCase(zhbg_name)&" ")=0 then
	%>
	<script language="vbscript">
	 alert "你不能进行操作，进行此操作必须进入聊天室！"
	location.href = "javascript:history.back()"
	</script>
	<%
	Response.End
end if
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "select * from 用户 where 姓名='"&zhbg_name&"'",conn
if rs("身份")<>"掌门" then
	%>
	<script language="vbscript">
	 alert "你又不是掌门，乱跑什么！"
	location.href = "javascript:history.back()"
	</script>
	<%
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	Response.End
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
randomize timer
regjm=int(rnd*9998)+1
%>
<html>
<head>
<title>〖<%=Application("zhbg_chatroomname")%>〗</title>
<link href="../../../css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body  topmargin="5">
<p class="p1" align="center"></p>
<table width="428" border="3" align="center" cellpadding="13" cellspacing="10" bordercolor="#cccccc" >
  <tr>
    <td ><div align="center"><b>掌门禅位</b> </div>
      <form method="POST" action="rangweiok.asp">
<table width="100%">
<tr>
            <td><font size="-1">下任掌门</font><font size="-1">:      
              <input type="text" name="xrzm" size="10" maxlength="10">    
              </font> </td>    
            <td><font size="-1">你的密码:      
              <input type="password" name="password" size="10" maxlength="10">    
              </font> </td>    
</tr>    
<tr>    
            <td height="2"><font size="-1">认证:      
              <input type=text name=regjm1 size=5 maxlength="5"> 
              </font> </td>                
            <td height="2"> <font size="-1"><br>    
              防止朔雪输入认证:<font color="#FF0000"><%=regjm%></font></font></td>    
</tr>    
<tr>    
<td align="center" colspan="2"><input type=hidden name=regjm value="<%=regjm%>"> 
              <input type="submit" value="掌门禅位"    
name="submit"> 
               <input type="reset" value="取消" name="reset"></td>    
</tr>    
<tr>    
            <td align="center" colspan="2"><font color="#FF0000" >掌门禅位：对方战斗等级必须在50级以上</font> 
            </td>    
</tr>    
</table>    
</form>    
</td>    
</tr> 
<tr>    
    <td colspan="2" align="center" >[非凡国度]</td>    
</tr>   
</table>    
    
</body>    
    
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript> 
 
