<%@ 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"
cwjh_id=Session("cwjh_id")
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 Instr(LCase(Application("cwjh_useronlinename"&session("nowinroom")))," "&LCase(cwjh_name)&" ")=0 then
	Response.Write "<script Language=Javascript>alert('你不能进行操作，进行此操作必须进入聊天室！');window.close();</script>"
	Response.End
end if
%>
<HTML><HEAD><TITLE>武器店</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<STYLE>TD {
	FONT-SIZE: 9pt
}
</STYLE>

<SCRIPT language=javascript>
function showwp(ename,cname,tx,tj,lb,liliang,fangyu,sudu,price){
	zl.innerHTML='<input type=hidden name=wpname value='+cname+'><img border="0" src="images/'+ename+'" width="35" height="35">&nbsp;'+cname+'[<font color=blue>'+lb+'</font>]<br><br>攻击：'+liliang+'<br>防御：'+fangyu+'<br>耐久：'+sudu+'<br>特性:'+tx+'<br>条件:'+tj+'<br>价格：'+price+'元'
}
function yesno(name) {
if(confirm("您现在将要购买的是 ["+name+"]  \n您现在可以点确定购买。")) {document.form1.submit();}
}
</SCRIPT>

<META content="MSHTML 5.00.3315.2870" name=GENERATOR></HEAD>
<BODY bgColor=#000000 text=#ffffff topMargin=5>
<DIV align=center>
<CENTER>
    <TABLE border=0 cellPadding=0 cellSpacing=0 width="621">
      <FORM action=wuqiok.asp method=post name=form1>
        <td width="4">&nbsp;
        <TR bgcolor="#307028"> 
          <TD colSpan=5><marquee border='1' onmouseover=this.stop(); onmouseout=this.start();>欢迎您来到[酷屋江湖]武器店……</marquee></TD>
        </TR>
        <TR> 
          <TD bgColor=#307028 rowSpan=5 width="4"><IMG height=379 src="images/index_02.gif" width=4></TD>
          <TD bgColor=#307028 height=379 rowSpan=5 vAlign=top width=405> 
            <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
 <TBODY> 
 <TR> 
 <%
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("cwjh_usermdb")
rs.open "SELECT * FROM b where b='右手' or b='装饰' or b='盔甲' or b='双脚' or b='头盔' or b='左手' order by b,h",conn,3,3
do while not rs.bof and not rs.eof
tj=replace(rs("l"),chr(39),"")
Response.Write "<TD  width='16%'><A href='#' onclick="&chr(34)&"showwp('"&rs("i")&"','"&rs("a")&"','"&rs("k")&"','"&tj&"','"&rs("b")&"',"&rs("f")&","&rs("g")&","&rs("j")&","&rs("h")&");"&chr(34)&" title='"&rs("c")&"'><IMG border=0 height=35 src='images/"&rs("i")&"' width=35></A></TD>"
x=x+1
if x/6=int(x/6) then Response.Write "</tr><tr>"
rs.movenext
loop
Response.Write "</tr>"
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

 </TBODY> 
 </TABLE>
  </TD>
  <CENTER>
            <TD bgColor=#408c30 rowSpan=5 width="5"><IMG height=420 
      src="images/index_04.gif" width=5></TD>
            <TD width="203" height="101"><IMG height=145 src="images/index_05.gif" width=202></TD>
            <TD rowSpan=5 width="5"><IMG height=420 src="images/index_04.gif" 
  width=5></TD>
   </center>
        </TR>
        <TR> 
          <TD border="0" width="203" background="images/index_09.gif">&nbsp;</TD>
        </TR>
        <TR> 
          <TD bgColor=#707470 height=136 id=zl vAlign=top width=203> <input type=hidden name=wpname value=''>
            <P style="LINE-HEIGHT: 150%"><BR>
 &nbsp; 逸海情天武器店为您提供战斗武器及装备,欢迎各位大侠选购。</P>
          </TD>
        </TR>
        <TR> 
          <TD id=esoteric width="203" background="images/index_09.gif">&nbsp;</TD>
        </TR>
        <TR> 
          <TD bgColor=#707470 height=111 vAlign=top width=203> 
            <P align=center><BR>
 请确定购买这种武器<BR>
 <BR>
 <INPUT height=34  onclick="if(document.form1.wpname.value!=''){yesno(document.form1.wpname.value);return false;}else{return false;}" 
      src="images/queding.gif" type=image value=提交 width=98>
 </P>
          </TD>
        </TR>
      </FORM>
    </TABLE>
  </CENTER></DIV></BODY></HTML>