我的物品

<% msg="恭喜你，物品使用成功！" wpid=request.querystring("wp") wpid=replace(wpid,"'","") if len(wpid) > 10 then response.end set rs=Server.CreateObject("ADODB.RecordSet") Rs.open "Select * from userbox where id="&wpid,conn,1 if not rs.eof then if session("userid")=rs("userid") then set rs1=Server.CreateObject("ADODB.RecordSet") Rs1.open "Select * from userinfo where userid="&rs("userid"),conn,1 if rs1("UserLevel")>=rs("UserLevel") then wptype=Rs("type") select case wptype case 1001 conn.execute "update userinfo set usericon='"&rs("ProductHtml")&"' where userid="&session("userid") 'conn.execute "update userbox set Quantity=Quantity-1 where id="&wpid conn.execute "delete userbox where Quantity<1 and userid="&session("userid") case 1002 conn.execute "update userinfo set usericon='"&rs("ProductHtml")&"' where userid="&session("userid") 'conn.execute "update userbox set Quantity=Quantity-1 where id="&wpid conn.execute "delete userbox where Quantity<1 and userid="&session("userid") case 2001 conn.execute "update userinfo set UserArming='"&rs("ProductHtml")&"' where userid="&session("userid") 'conn.execute "update userbox set Quantity=Quantity-1 where id="&wpid conn.execute "delete userbox where Quantity<1 and userid="&session("userid") case else msg="发生不知道的错误！请找管理员解决..." end select else msg="不能使用此物品，你的级别不够！" end if else msg="不能使用别人的物品，你要注意了！！！" end if else msg="根本就没有此物品，你捣什么乱？" end if rs.close %>

iChat信息 |

i<%=msg%>