<%@ LANGUAGE=VBScript codepage ="936" %>
<%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")
chatbgcolor=Application("zhbg_chatbgcolor")
chatimage=Application("zhbg_chatimage")
if chatbgcolor="" then chatbgcolor="008888"
%>
<html>
<head><link href="../css.css" rel="stylesheet" type="text/css">
<title>查看物品</title>
<script language="JavaScript">
function s(list){
var lijigongji=liji.checked;
parent.f2.document.af.sytemp.value=list;parent.f2.document.af.sytemp.focus();
if (lijigongji==true) {parent.f2.document.af.subsay.click()};
}</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body  leftmargin="0" marginwidth="0" marginheight="0" >
<table width="100%"border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#cccccc" bordercolorlight="#000000" bordercolordark="#FFFFFF"  >
  <tr> 
    <td width="135" bordercolor="#cccccc" > 
      <div align="center"><b><font size="3">查看物品</font></b> </div></td> </tr> <tr>
    <td width="135" bordercolor="#cccccc" >
<div align="center"><font color="#FF0000">〖</font><%=zhbg_name%><font color="#FF3333">〗 
        </font> </div></td> </tr> 
	<tr>
    <td width="135" bordercolor="#cccccc" ><a class=blue href="#" onClick="window.open('../Center/jhzb/index.asp','wupin','scrollbars=yes,resizable=yes,width=550,height=300')" title="当要使用药品、装备物品时点这里！">装备物品</a><br>
      装备、药品点上面<br>
右键进行赠送物品！<br>
点物品名进行丢弃<br>
<input type="checkbox" name="liji" value="on">立即使用
    </td>
  </tr>
  </table>

<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#cccccc" bordercolorlight="#000000" bordercolordark="#FFFFFF" >
  <tr bordercolor="#cccccc"> 
    <td width="80" > 
      <div align="center">物 品 名</div>
    </td>
    <td width="30" > 
      <div align="center">数量</div>
    </td>
    <td width="30" > 
      <div align="center">自用</div>
    </td>
  </tr>
  <tr bordercolor="#cccccc"> 
  </tr>
  <%
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "select w1,w2,w4,w5,w6,w7,w8,w9,w10 from 用户 where 姓名='"&zhbg_name&"'",conn
Response.Write "<td colspan='3' height='15'><div align='center'><b><font color='#0000FF'>药 品 类</font></b></div></td>"
if not(isnull(rs("w1"))) then
	call show(rs("w1"),"使用","w1")
end if
Response.Write "<tr></tr><tr></tr>"
Response.Write "<td colspan='3' height='15'><div align='center'><b><font color='#0000FF'>毒 药 类</font></b></div></td>"
if not(isnull(rs("w2"))) then
	call show(rs("w2"),"下毒","w2")
end if
Response.Write "<tr></tr><tr></tr>"
Response.Write "<td colspan='3' height='15'><div align='center'><b><font color='#0000FF'>暗 器 类</font></b></div></td>"
if not(isnull(rs("w4"))) then
	call show(rs("w4"),"投掷","w4")
end if
Response.Write "<tr></tr><tr></tr>"
Response.Write "<td colspan='3' height='15'><div align='center'><b><font color='#0000FF'>卡 片 类</font></b></div></td>"
if not(isnull(rs("w5"))) then
	call show(rs("w5"),"用卡","w5")
end if
Response.Write "<tr></tr><tr></tr>"
Response.Write "<td colspan='3' height='15'><div align='center'><b><font color='#0000FF'>物 品 类</font></b></div></td>"
if not(isnull(rs("w6"))) then
	call show(rs("w6"),"物品","w6")
end if
Response.Write "<tr></tr><tr></tr>"
Response.Write "<td colspan='3' height='15'><div align='center'><b><font color='#0000FF'>鲜 花 类</font></b></div></td>"
if not(isnull(rs("w7"))) then
	call show(rs("w7"),"送花","w7")
end if
Response.Write "<tr></tr><tr></tr>"
Response.Write "<td colspan='3' height='15'><div align='center'><b><font color='#0000FF'>配 药 类</font></b></div></td>"
if not(isnull(rs("w8"))) then
	call show(rs("w8"),"配药","w8")
end if
Response.Write "<tr></tr><tr></tr>"
Response.Write "<td colspan='3' height='15'><div align='center'><b><font color='#0000FF'>魔 宝 类</font></b></div></td>"
if not(isnull(rs("w9"))) then
	call show(rs("w9"),"发射","w9")
end if
Response.Write "<tr></tr><tr></tr>"
Response.Write "<td colspan='3' height='15'><div align='center'><b><font color='#0000FF'>法 器 类</font></b></div></td>"
if not(isnull(rs("w10"))) then
	call show(rs("w10"),"执行","w10")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
sub show(data,lx,lb)
data1=split(data,";")
data2=UBound(data1)
for y=0 to data2-1
	data3=split(data1(y),"|")
%>
  <tr bordercolor="#cccccc" bgcolor=""onmouseover="this.;" onmouseout="this.bgColor='';"> 
    <td width="80"> 
      <div align="center">
          <a href="javascript:s('/丢弃$ <%=lb%>|<%=data3(0)%>|1')" oncontextmenu="javascript:s('/丢弃$ <%=lb%>|<%=data3(0)%>|<%=data3(1)%>')"><%=data3(0)%></a>
           </div>
    </td>
    <td width="30"> 
      <div align="center"><%=data3(1)%> </div>
    </td>
    <td width="30"> 
      <%if lx="用卡" or lx="配药" then%><div align="center">
      <a href="javascript:s('/<%=lx%>$ <%=data3(0)%>')" oncontextmenu="javascript:s('/赠送$ <%=lb%>|<%=data3(0)%>|1')"><font color="#FF0000"><%=lx%></font></a> 
      <%elseif lx="物品" then%><div align="center">
      <a href="javascript:s('/赠送$ <%=lb%>|<%=data3(0)%>|1')" oncontextmenu="javascript:s('/赠送$ <%=lb%>|<%=data3(0)%>|1')"><font color="#FF0000">赠送</font></a> 
      <%else%>
      <div align="center"> <a href="javascript:s('/<%=lx%>$ <%=data3(0)%>&1')" oncontextmenu="javascript:s('/赠送$ <%=lb%>|<%=data3(0)%>|1')"><font color="#FF0000"><%=lx%></font></a> 
		<%end if%>
      </div>
    </td>
  </tr>
  <%
erase data3
next
erase data1
end sub%>
</table>
<table align="center">
  <div align="center"><tr>
    <td><br>
      [非凡国度]</td>
  </tr></div></table>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>