<%@ 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"
%>
<html><title>npc列表</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=../css.css type=text/css rel=stylesheet>
<body>
</head>
<SCRIPT language=JavaScript>
function go1(){alert("无此类排序!");
}
function go(url){
parent.txt.location.href="npclist.asp?fs="+ url +"&search=<%=search%>";
}
</SCRIPT>
<%Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "select id,n姓名,n性别,n图片,n经验,n攻击,n防御,n武功,n体力,n内力,n物品,n银两,n物品类型,n物品,n主人 from [npc] order by n经验",conn,1,1
if rs.eof and rs.bof then
	response.write "<p align='center'>没有可排行的对象 </p>"
else
npcsl=rs.recordcount
%>

<table border="1" width="100%" cellpadding="2" cellspacing="0" bordercolordark="#000000" bordercolorlight="#aaaaaa" align="center">
  <tr bgcolor="#cccccc"> 
    <td colspan="13" align=center>NPC 列 表</td>
  </tr>
  <tr bgcolor="#cccccc"> 
    <td width="5%" align=center>ID号</td>
    <td width="10%" align=center>姓名</td>
    <td width="4%" align=center>性别</td>
    <td width="5%" align=center>经验</td>
    <td width="9%" align=center>图片</td>
    <td width="6%" align=center>攻击</td>
    <td width="4%" align=center>防御</td>
	<td width="4%" align=center>武功</td>
    <td width="9%" align=center>体力</td>
    <td width="7%" align=center>内力</td>
    <td width="18%" align=center>爆出物品</td>
    <td width="9%" align=center>类型</td>
    <td width="5%" align=center >操作</td>
  </tr>
<%do while not rs.eof%>
  <tr> 
  <tr> 
    <td width="5%" align=center><%=rs("id")%></td>
    <td width="10%" align=center><%=rs("n姓名")%></td>
    <td width="4%" align=center><%=rs("n性别")%></td>
    <td width="5%" align=center><%=rs("n经验")%></td>
    <td width="9%" align=center><%=rs("n图片")%></td>
    <td width="6%" align=right><%=rs("n攻击")%></td>
    <td width="4%" align=right><%=rs("n防御")%></td>
	<td width="4%" align=right><%=rs("n武功")%></td>
    <td width="9%" align=right><%=rs("n体力")%></td>
    <td width="7%" align=right><%=rs("n内力")%></td>
    <td width="18%" align=left><%=rs("n物品")%></td>
    <td width="9%" align=left><%=rs("n物品类型")%></td>
    <td width="5%" align=center><a href="npcSHOW.asp?username=<%=rs("n姓名")%>">详细</a></td>
  </tr>

  </tr>
<%
rs.movenext
loop
%>
  <tr> 
    <td colspan=14 align=middle bordercolorlight="#00215a" bgcolor="#cccccc"> 
      <table width="100%" cellpadding="0" cellspacing="0" border="0">
        <tr> 
          <form method="GET" action="npclist.asp">
            <td width="50%"> 　关键字： 
              <input type="text" name="search" size=15 class="input1" onfocus=this.select() onmouseover=this.focus()> 
              <input name="B1" type="submit" value="搜索" class="input1">
            </td>
          </form>
          <td width="50%" align="right"> 有<font color=blue><%=Totalcount%></font>用户 共<%=int(Totalcount/25)+1%>页 [ 
            <% if StartPageNum>1 then %>
            <a href="npclist.asp?CurPage=<%=StartPageNum-1%>"><<</a> 
            <%end if%>
            <% For I=StartPageNum to EndPageNum
if I<>CurPage then %>
            <a href="npclist.asp?CurPage=<%=I%>"><%=I%></a> 
            <% else %>
            <b><font color=#ff0000><%=I%></font></b> 
            <% end if %>
            <% Next %>
            <% if EndPageNum<RS.Pagecount then %>
            <a href="npclist.asp?CurPage=<%=EndPageNum+1%>">>></a> 
            <%end if%>
            ] </td>
        </tr>
      </table></td>
  </tr>
</table>
<p align=center>非凡国度</p></body></html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>