<%@ LANGUAGE=VBScript codepage ="936" %><%Response.Expires=0
Response.Buffer=true
zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../error.asp?id=440"
if session("zhbg_adminok")<>true then Response.Redirect "../chat/readonly/bomb.htm"
if zhbg_grade<>10 or instr(Application("zhbg_user"),zhbg_name)=0  then Response.Redirect "../error.asp?id=439"
if zhbg_name<>Application("zhbg_adminuser") then Response.Redirect "../chat/readonly/bomb.htm"
mp=Request.QueryString("mp")
%>
<html>
<head>
<title>轩辕设置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href='../css.css' type=text/css rel=stylesheet><script language="JavaScript">
function shutwin()
{
window.close();
return;
}
</script>
</head>
<body>
<p align="center"> 
<%
Set conn=Server.CreateObject("ADODB.CONNECTION")
set rs=server.createobject("adodb.recordset")
conn.open Application("zhbg_usermdb")
if mp="" then
	rs.open "Select * From n order by b",conn,0,1
else
	rs.open "select * from n where b='" & mp & "' order by b",conn,0,1
end if
if not rs.eof then
%>[轩辕设置]</p>  <a href="javascript:this.location.reload()">刷新</a><br>
     
<p align="center">对各人轩辕武功招式修改！ <a href=adminxx_cl.asp>清理轩辕</a></p>       
<table width="760" border="8" align="center" cellpadding="2" cellspacing="0" bordercolor="#cccccc">       
  <tr bgcolor="#cccccc">        
    <td width="79" align="center"><font color=ffffff>姓 名</td>       
    <td width="83" align="center"><font color=ffffff>招式名</td>      
    <td width="66" align="center"><font color=ffffff>武功</td>      
    <td width="62" align="center"><font color=ffffff>内力</td>      
    <td width="67" align="center"><font color=ffffff>修炼次数</td>     
    <td width="214" align="center"><font color=ffffff>发招说明</td>     
    <td width="67" align="center"><font color=ffffff>招式图片</td>     
    <td width="58" align="center"><font color=ffffff>操 作</td>     
  </tr>     
  <%do while not rs.eof%>     
  <tr> 
    <td width="79"> 
      <div align="center"><%=rs("b")%></div> 
    </td> 
    <td width="83"> 
      <div align="center"><%=rs("a")%></div>
    </td> 
    <td width="66"> 
      <div align="center"><%=rs("c")%></div> 
    </td> 
    <td width="62"> 
      <div align="center"><%=rs("d")%></div> 
    </td>  
    <td> 
      <div align="center"><%=rs("e")%></div> 
    </td> 
    <td width="214"> 
      <div align="center"><%=rs("f")%></div>    
    </td>    
    <td width="67">     
      <div align="center"><%=rs("g")%></div>    
    </td>    
    <td width="58">     
      <div align="center">     
        <a href="delxx.asp?wgid=<%=rs("id")%>" title="删除武功">删</a> <a href="managexx.asp?wgid=<%=rs("id")%>" title="修改武功招式！">修</a></div> 
    </td>     
  </tr>     
  <%rs.movenext     
loop      
rs.close     
set rs=nothing     
conn.close     
set conn=nothing%>     
  <% else %>     
</table>     
<table align="center" width="197">     
<td height="14">     
<div align="center">此人还未设置轩辕武功！      
<% rs.close     
set rs=nothing     
conn.close     
set conn=nothing     
end if%> </div>     
</table>     
<div align="center"></div>     
<p align="center">[<a href="adminxx.asp?mp=<%=mp%>">====刷新====</a>]     
</body>