<!-- #include file="setup.asp" -->
<%
top
if Request.Cookies("username")=empty then
response.redirect "login.asp"
end if

if instr(Request.Cookies("username")," ")>0 then:error("<li>非法操作"):end if
sql="select * from [user] where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn,1,3

if Request.Cookies("userpass")<>rs("userpass") then
error2("密码错误！")
end if
username=Request.Cookies("username")
rs.close

%>

<head>
<title>社区物品-武器商店</title>


</head>

<table border=0 width=<%=dkuan%> align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25>&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%ClubTree%> → 
<a href="wqshop.asp">武器商店</a></td>
</tr>
</table><br>


<table border="0" cellpadding="0" align="center" cellspacing="0" style="border-collapse: collapse; border-width: 0" width="<%=dkuan%>" id="AutoNumber1">
  <tr>
    <td width="3%"><img src="images/announce.gif" align="middle"></td>
    <td width="67%">社区公告：<marquee onmouseover="this.stop()" onmouseout="this.start()" width="400" scrollAmount="3"><a href="#" onclick="javascript:open('affiche.asp','','width=400,height=180,resizable,scrollbars')"><%=affichetitle%></a>　［<%=affichetime%>］</marquee></td>
      </tr>
</table>

<SCRIPT>valigntop()</SCRIPT>
<table cellspacing="1" cellpadding="1" width="<%=dkuan%>" align="center" border="0" class="a2"><tr><td height="25" class="a1" colspan="2">　■<b>社区物品选购<font color=#000000>　　<a href="shop2.asp"><font color=#000000>礼品店</font></a>　|　<a href="wqshop.asp"><font color=#000000>武器店</font></a>　|　<a href="aqshop.asp"><font color=#000000>暗器店</font></a>　|　<a href="fjshop.asp"><font color=#000000>防具店</font></a>　|　<a href="dangpu.asp"><font color=#000000>社区当铺</font></a>  &nbsp;&nbsp;|　<a href="shop.asp"><font color=#000000>其他商品</font></a>　|　<a href="mytools.asp"><font color=#000000>我的物品</font></a></font></b></td></tr><tr>
<td class="a3"><table cellspacing="0" cellpadding="3" width="100%" border="0" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none"><tr><td><table border="0" cellpadding="0" cellspacing="0" width="100%"> 
   <tr valign="top" align="center"> 
    <td colspan="2"> 
    <br>
     <%
     rs.Open "select * from [tools] where use = 2",Conn,1,3
     if not rs.eof then
     rs.movefirst
     while not rs.eof
     %>  
<table width="93%" border="0" cellspacing="0" cellpadding="0" height="112">
  <tr> 
    <td width="300">
 <form method="post" action="maiing.asp?menu=wuqi">
 		<table border="0" cellspacing="1" cellpadding="0" width="100%" height="25" class="a2">
			<tr height="21" align="center" class="a1">
				<td><b><%=rs("toolname")%></b></td>
			</tr>
			<tr>
				<td>
				<table border="0" cellspacing="0" cellpadding="0" width="100%" class="a3">
					<tr cellspacing="0" cellpadding="0" class="a4">
						<td rowspan="2" align="center">
<img src=<%=rs("toolimg")%> width="100" height="75" border="1"></td><td width="5%">
						<td>
      物品价格：<%=rs("price")%><br>
      物品功能：<%
      if rs("exp")<>0 then
      Response.Write "攻击：<font color=#FF0000>"&rs("exp")&"</font> "
      end if
      if rs("magicpower")<>0 then
      Response.Write "防御：<font color=#FF0000>"&rs("magicpower")&"</font> "
      end if
      %>
<br><%=rs("info")%><br>
                                   </td>
					</tr>
					<tr class="a4"><td width="5%">
						<td>我要购买该物品：<input type="radio" name="buys" value="<%=rs("toolname")%>"></td>
					</tr>
				</table>
				</td>
			</tr>
		</table><br>

    </td>
    <td width="300"><%
    rs.movenext
    if not rs.eof then
    %>
 		<table border="0" cellspacing="1" cellpadding="0" width="100%" height="25" class="a2">
			<tr height="21" align="center" class="a1">
				<td><b><%=rs("toolname")%></b></td>
			</tr>
			<tr>
				<td>
				<table border="0" width="100%" cellspacing="0" cellpadding="0" class="a3">
					<tr cellspacing="0" cellpadding="0" class="a4">
						<td rowspan="2" align="center">
<img src=<%=rs("toolimg")%> width="100" height="75" border="1"></td><td width="5%"></td>
						<td>
      物品价格：<%=rs("price")%><br>
      物品功能：<%
      if rs("exp")<>0 then
      Response.Write "攻击：<font color=#FF0000>"&rs("exp")&"</font> "
      end if
      if rs("magicpower")<>0 then
      Response.Write "防御：<font color=#FF0000>"&rs("magicpower")&"</font> "
      end if
      %><br><%=rs("info")%><br>
					</tr>
					<tr class="a4"><td width="5%">
						<td>我要购买该物品：<input type="radio" name="buys" value="<%=rs("toolname")%>"></td>
					</tr>
				</table>
				</td>
			</tr>
		</table><br>
    <%
    rs.movenext
    end if
    %>
    </td>
  </tr>
</table>
<%
wend
end if
rs.close
%>
	<table border="0" width="50%">
        <tr>
          <td valign="top" colspan="2" align="right"> 
               <input type="submit" name="Submit" value=" 购 买 " class="a7" style="width:70px;height:22px">
              <br>
          	</td>
        </tr>
	</table>    </form>
</td>
	<td align="middle" align="left" width="25%"><br><br><img src="images/plus/TOOLS.GIF"><br><br>
				</td>
			</tr>
		</table>
</table></td></tr></table>
<SCRIPT>valignbottom()</SCRIPT>

<br>
<SCRIPT>valigntop()</SCRIPT>
<table cellspacing="1" cellpadding="1" width="<%=dkuan%>" align="center" border="0" class="a2"><tr><td height="25" class="a1" colspan="2">　■<b> 您的个人状态</b></td></tr><tr>
		<td align="middle" width="5%" class="a3"><img src="images/mystate.gif"></td><td class="a4"><table cellspacing="0" cellpadding="3" width="100%" border="0" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none"><tr><td><table border="0" cellpadding="0" cellspacing="0" width="100%"> 
<%sql="select * from [user] where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn,1,3
%>  <tr><td width="25%">        社区昵称：<%=rs("username")%></td><td width="20%">
				社区等级：<Script>document.write(level(<%=rs("experience")%>,<%=rs("membercode")%>,'','')+levelname);</Script>  </td><td width="20%">
				社区金币：<%=rs("money")%>  </td><td width="17%">
				发表文章：<%=rs("posttopic")+rs("postrevert")%>  </td><td width="18%">
				精华文章：<%=rs("goodtopic")%>   </td></tr><tr><td>
				社区经验：<%=rs("experience")%>  </td><td>
				社区存款：<%=rs("savemoney")%>  </td><td>
                                魅 力 值：<%=rs("magicpower")%> </td><td>
				体 力 值：<%=rs("userlife")%> </td></tr> <tr><td>
				社区伴侣：<%if ""&rs("consort")&""=empty then
					response.write "无"
					else
					response.write "<a href=Profile.asp?username="&rs("consort")&">"&rs("consort")&"</a>"
					end if%> </td><td>
				社区门派：<%if ""&rs("faction")&""="" then
					response.write "无"
					else
					response.write rs("faction")
					end if%></td><td colspan="2">
				注册日期： <%=rs("regtime")%> </td></tr>
		</table></td></tr>
	</table></td></tr>
  </table><%
       rs.close
       %>
<SCRIPT>valignbottom()</SCRIPT>

<br>


<%
htmlend

%>
