📄 fjshop.asp
字号:
<!-- #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=97% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25> <img src=images/Forum_nav.gif> <%ClubTree%> →
<a href="fjshop.asp">防具商店</a></td>
</tr>
</table><br>
<table border="0" cellpadding="0" align="center" cellspacing="0" style="border-collapse: collapse; border-width: 0" width="97%" 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="97%" 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> | <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 = 4",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=fangju">
<table border="0" cellspacing="1" cellpadding="0" width="97%" 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="97%" 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="97%" height="25" class="a2">
<tr height="21" align="center" class="a1">
<td><b><%=rs("toolname")%></b></td>
</tr>
<tr>
<td>
<table border="0" width="97%" 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="97%" align="center" border="0" class="a2"><tr><td height="25" class="a1" colspan="2"> ■<b> 您的个人状态</b></td></tr><tr>
<td align="middle" width="5%" bgcolor=FFFFFF><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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -