<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Buffer=true
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = 0
%>
<% 
zhbg_name=Session("zhbg_name")
if zhbg_name="" then Response.Redirect "../../error.asp?id=440"
%>
<html>
<head>
<title><%=Application("zhbg_chatroomname")%>当铺</title>
<link href="../../css.css" rel="stylesheet" type="text/css">
<!--#include file="../top_index.asp"-->
<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" topmargin="0" marginwidth="0" marginheight="0">
<SCRIPT language=JavaScript src="../../gif/a1-2.js"></SCRIPT>
<br>
<table width="775" border="0" align="center" cellpadding="0" cellspacing="0" >
  <!--DWLayoutTable-->
 <tr>
    <td width="7" height="32"></td>
    <td width="247" rowspan="2" valign="top"><table width="247"  border="0" cellpadding="0" cellspacing="0">
        <!--DWLayoutTable-->
        <tr>
          <td width="246" valign="top">
<!--#include file="../../man.asp"-->
</td>
        </tr>
		<tr><td height="21" valign="top" ><!--DWLayoutEmptyCell-->&nbsp;</td>
		</tr>
    </table></td>
    <td width="23" rowspan="2" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
    <td width="471" align="center"><font color="#FF9900" size="3"><b>国度当铺</b></font> </td>
    <td width="27" rowspan="2" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
  </tr>
  <tr>
    <td></td>
    <td valign="top"><br>
<table width="395" border="3" align="center" cellpadding="3" cellspacing="3" bordercolor="#cccccc">
  <!--DWLayoutTable-->
  <tr> 
    <td  colspan="3" valign="top" ><br>
      鲜 花 类：5折回收。鲜花很容易败阿！:)<br> 
	  花园鲜花：100万/个，辛辛苦苦种的不容易啊！<br>
	  法 器 类：1600万/个，这里打8折 ！（计算：寻找法器：50000万法力，法力转换成金卡2.5元，金卡转换成金币25个，金币转换成银两2000万。）<br>
      物 品 类：8折回收。<br>
其　　他：6折回收。</td>
  </tr>
  <tr> 
    <td width="87" > <div align="center">物 品 名</div></td>
    <td width="85" > <div align="center">数量</div></td>
    <td width="181" > <div align="center">操作</div></td>
  </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("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("w10"))) then
	call show(rs("w10"),"法器类","w10")
end if
Response.Write "<tr></tr><tr></tr>"
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"> 
    <td> 
    <div align="center"> <%=data3(0)%> </div></td>
    <td> 
    <div align="center"><%=data3(1)%> </div></td>
    <td> 
    <div align="center">当 <a href="DAN1.ASP?lb=<%=lb%>&name=<%=data3(0)%>&sl=1">1个</a>&nbsp;<a href="DAN1.ASP?lb=<%=lb%>&name=<%=data3(0)%>&sl=10">10个</a>&nbsp;<a href="DAN1.ASP?lb=<%=lb%>&name=<%=data3(0)%>&sl=100">100个</a>&nbsp;<a href="DAN1.ASP?lb=<%=lb%>&name=<%=data3(0)%>&sl=1000">1000个</a></div></td>
  </tr>
  <%
erase data3
next
erase data1
end sub%>
</table>
<br>
</td>
  </tr>
</table>
<br>
<SCRIPT language=JavaScript src="../../gif/a2-2.js"></SCRIPT>
<br>

</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>