<%@ 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"

Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
lb=LCase(trim(Request.QueryString("lb")))
if lb="" then lb="药品"
%>
<html>

<head>
<title><%=Application("zhbg_chatroomname")%>物品管理程序</title>
<style></style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href='../css.css' type=text/css rel=stylesheet>
</head>

<body text="#000000"  link="#0000FF" vlink="#0000FF" alink="#0000FF">
<p align="center"><%=Application("zhbg_chatroomname")%>物品管理程序<br>
  <br>
  <a href="wpadmin.asp?lb=左手">左手</a> <a href="wpadmin.asp?lb=右手">右手</a> 
  <a href="wpadmin.asp?lb=装饰">装饰</a> <a href="wpadmin.asp?lb=盔甲">盔甲</a> 
  <a href="wpadmin.asp?lb=双脚">双脚</a> <a href="wpadmin.asp?lb=头盔">头盔</a> 
  <a href="wpadmin.asp?lb=暗器">暗器</a> <a href="wpadmin.asp?lb=宠物">宠物</a> 
  <a href="wpadmin.asp?lb=药品">药品</a> <a href="wpadmin.asp?lb=毒药">毒药</a> 
  <a href="wpadmin.asp?lb=卡片">卡片</a> <a href="wpadmin.asp?lb=鲜花">鲜花</a> 
  <a href="wpadmin.asp?lb=锻造">锻造</a> <a href="wpadmin.asp?lb=花园">花园</a>
  <a href="wpadmin.asp?lb=交通">交通</a> <a href="wpadmin.asp?lb=魔宝">魔宝</a>
  <a href="wpadmin.asp?lb=法器">法器</a>
</p>
<table width="627" border="1" cellspacing="0" cellpadding="2" align="center" bordercolor="#000000">
  <tr bgcolor="#cccccc"> 
    <td height="11" colspan="4"> 
      <p align="center"><font color="#ff6600">现 有 <b>[<%=lb%>]</b> 列 表</font></p>
    </td>
    <td width="84" height="11"> 
      <div align="center"><a href="addwp.asp?lb=<%=lb%>">增加物品</a></div>
    </td>
  </tr>
  <tr> 
    <td width="82" height="20" bgcolor="#C4DEFF"> 
      <div align="center"><font size="2" color="#000000">物品名</font></div>
    </td>
    <td width="63" height="20" bgcolor="#C4DEFF"> 
      <div align="center"><font size="2" color="#000000">类 别</font></div>
    </td>
    <td width="259" height="20" bgcolor="#C4DEFF"> 
      <div align="center"><font size="2" color="#000000">功 能</font> </div>
    </td>
    <td width="94" height="20" bgcolor="#C4DEFF"> 
      <div align="center"><font size="2" color="#000000">售 价</font> </div>
    </td>
    <td width="84" height="20" bgcolor="#C4DEFF"> 
      <div align="center"><font size="2" color="#000000">操 作</font> </div>
    </td>
  </tr>
  <%
sql="SELECT * FROM b where b='"&lb&"' order by b,h "
Set Rs=conn.Execute(sql)
do while not rs.bof and not rs.eof
%>
  <tr > 
    <td width="82" height="23"> 
      <div align="center"><%=rs("a")%></div>
    </td>
    <td width="63" height="23"> 
      <div align="center"><%=rs("b")%></div>
    </td>
    <td width="430" height="23"> 
      <div align="left">
      <%select case lb
      	case "卡片","宠物","鲜花"
	      	Response.Write "说明:"&rs("c")
			if lb="宠物" then
				Response.Write " 特性:"&rs("k")
			end if
	      	if lb="宠物" or lb="鲜花" then
   		      	Response.Write " 图:<img src='../Center/jhjs/images/"&rs("i")&"'>"
	      	end if
		case "毒药","暗器","药品"
			Response.Write "内力："&abs(rs("d"))&" 体力："&abs(rs("e"))&" 图:<img src='../Center/jhjs/images/"&rs("i")&"'>"
		case else
			Response.Write  "攻击："&abs(rs("f"))&" 防御:"&abs(rs("g"))
			if lb="右手" or lb="锻造" then
			Response.Write " 特性:"&rs("k")
			end if
	      	if lb="左手" or lb="右手" or lb="盔甲" or lb="双脚" or lb="装饰" or lb="头盔" or lb="锻造" then
   		      	Response.Write " 耐久:"&rs("j")&" 图:<img src='../Center/jhjs/images/"&rs("i")&"'>"
	      	end if
      	end select
      %>
        
        </font></div>
    </td>
    <td width="94" height="23"> 
      <div align="right"><%=rs("h")%><%if lb<>"卡片" then%> 两<%else%> 元<%end if%></div>
    </td>
    <td width="84" height="23"> 
      <div align="center"><a
href="modiwp.asp?wupinid=<%=rs("id")%>">修改</a>|<a href="del.asp?id=<%=rs("id")%>">删除</a></div>
    </td>
  </tr>
  <%
rs.movenext
loop
conn.close
%>
</table>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
