<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.Buffer=true
cwjh_name=Session("cwjh_name")
cwjh_grade=Session("cwjh_grade")
cwjh_jhdj=Session("cwjh_jhdj")
if cwjh_name="" then Response.Redirect "../error.asp?id=440"
if session("cwjh_adminok")<>true then Response.Redirect "../chat/readonly/bomb.htm"
if cwjh_grade<>10 or instr(Application("cwjh_admin"),cwjh_name)=0  then Response.Redirect "../error.asp?id=439"
%>
<html><title>封神榜</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=css/css.css type=text/css rel=stylesheet>
<body bgColor=#dcdec6 text=#000000 link=#003366 vLink=#006666 oncontextmenu=window.event.returnValue=false ondragstart=window.event.returnValue=false onselectstart=event.returnValue=false>
</head>
<%Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("cwjh_usermdb")
rs.open "select * from [封神榜] order by id",conn,1,1
if rs.eof and rs.bof then
	response.write "<p align='center'>没有对象 </p>"
else
star="<img src=../twt/fengshen/pic/time_star.gif>"
yueliang="<img src=../twt/fengshen/pic/time_yueliang.gif>"
sun="<img src=../twt/fengshen/pic/time_sun.gif>"
npcsl=rs.recordcount
%>
<table border="1" width="100%" cellspacing="0" cellpadding="3" bordercolorlight="#000000" bordercolordark="#FFFFFF" align="center">
  <tr bgcolor="#336633"> 
    <td colspan="13" align=center><font color="#FFFFFF">封 神 榜</td>
  </tr>
  <tr bgcolor="#336633"> 
    <td align=center><font color="#FFFFFF">名号</td>
    <td align=center><font color="#FFFFFF">显示图标</td>
    <td align=center><font color="#FFFFFF">所需条件</td>
    <td align=center><font color="#FFFFFF">消耗及所得</td>
    <td align=center><font color="#FFFFFF">操作管理</td>
  </tr>
<%do while not rs.eof
h1=rs("名号")
h2=rs("图标")
h2=replace(h2,"A",star)
h2=replace(h2,"B",yueliang)
h2=replace(h2,"C",sun)
h3=rs("上限加")
h4=rs("转生")
h5=rs("等级")
h6=rs("金币")
%>
  <tr> 
    <td align=center><%=h1%></td>
    <td walign=center><%=h2%></td>
    <td align=center>转生><%=h4%>且等级><%=h5%></td>
    <td align=center>各上限+<%=h3%>,金币-<%=h6%></td>
    <td align=center><a href=fs_edit.asp?id=<%=rs("id")%>>修改</a></td>
  </tr>
<%
rs.movenext
loop
%>
</table>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>