www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > market.asp
<%@language="VBScript"%> <!--#include file="title.asp"--> <!--#include file="sub.asp"--> <% Dim toolname,selluser,amount,i,erryes,price,savecookies toolname=Replace(Request.Form("toolname"),"'","") selluser=Replace(Request.Form("selluser"),"'","") amount=Request.Form("amount") if IsNumeric(amount) then amount=Abs(Clng(amount)) else amount=0 end if savecookies=Request.Cookies(bbssn)("savecookies") contents=contents &"<title>道具超市-"& caption &"</title>"&_ "</head>"&_ "<body>"&_ ""&_ "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">" if gbmaduser="" then contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>你还没登陆或者已经掉线。<br>请<a href=""login.asp"">登陆</a>,2秒后自动执行<Script Language=""JavaScript"">setTimeout(""location.href='login.asp'"",3000)</script>。<br><br></td></tr>" else if toolname<>"" and selluser<>"" and amount>0 then rs.Open "market Where toolname='"& toolname &"' and gbmaduser='"& selluser &"' and amount>"& amount-1,conn,1,1 if rs.Eof then contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>"& selluser &" 在道具超市没有 "& amount &" 个 "& toolname &" 让你购买。<br><a href=""JavaScript:history.back();"">返回重新输入后再试</a>。<br><br></td></tr>" erryes="yes" else price=rs("price") end if rs.Close if erryes<>"yes" then rs.Open "Select gb,userpwd From gbmaduser Where gbmaduser='"& gbmaduser &"'",conn,1,3 if Not rs.Eof then if rs("userpwd")<>userpwd then contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>密码验证错误,请<a href=""login.asp"">重新登陆</a>。<br>引起该错误的原因可能是因为你手动修改了Cookies。<br><br></td></tr>" erryes="yes" else if rs("gb")>price*amount then rs("gb")=rs("gb")-price*amount rs.Update gb=rs("gb") if savecookies="yes" then Response.Cookies(bbssn).expires=Date()+365 Response.Cookies(bbssn)("gb")=gb Response.Cookies(bbssn)("validate")=creatvalidate(gb+imprison,ip) else contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>你没有足够的"& gbname &"来购买 "& selluser &" 卖的 "& amount &" 个 "& toolname &"。<br><a href=""JavaScript:history.back();"">返回重新输入后再试</a></td></tr>" erryes="yes" end if end if else contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>不存在的用户,请<a href=""login.asp"">重新登陆</a>。<br>引起该错误的原因可能是因为你手动修改了Cookies。<br><br></td></tr>" erryes="yes" end if rs.Close end if if erryes<>"yes" then rs.Open "tools Where gbmaduser='"& gbmaduser &"' and toolname='"& toolname &"'",conn,1,3 if rs.Eof then rs.AddNew rs("toolname")=toolname rs("amount")=amount rs("gbmaduser")=gbmaduser else rs("amount")=rs("amount")+amount end if rs.Update rs.Close rs.Open "Select gb From gbmaduser Where gbmaduser='"& selluser &"'",conn,1,3 if Not rs.Eof then rs("gb")=rs("gb")+price*amount rs.Update end if rs.Close rs.Open "market Where toolname='"& toolname &"' and gbmaduser='"& selluser &"'",conn,1,3 if rs("amount")=amount then rs.Delete else rs("amount")=rs("amount")-amount rs.Update end if rs.Close rs.Open "report",conn,1,3 rs.AddNew rs("gbmaduser")=selluser rs("handler")=gbmaduser rs("posttime")=Now() rs("matter")=gbmaduser &" 给予 "& selluser &" "& gbname &":"& price*amount rs("cause")=gbmaduser &" 购买了 "& selluser &" 的道具 "& toolname &" :"& price &" "& gbname &" * "& amount &"个。" rs.Update rs.Close contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">道具超市</td></tr>"&_ "<form name=""market"" method=""post"" action=""market.asp"">"&_ "<tr class=""tds""><td>"&_ "选择你要购买的道具:<select name=""toolname"" size=""1"">"&_ "<option value=""暗夜极光"">暗夜极光</option>"&_ "<option value=""凤之羽粉"">凤之羽粉</option>"&_ "<option value=""精美礼盒"">精美礼盒</option>"&_ "<option value=""乱抱树熊"">乱抱树熊</option>"&_ "<option value=""社区支票"">社区支票</option>"&_ "<option value=""探察视镜"">探察视镜</option>"&_ "<option value=""天使翅膀"">天使翅膀</option>"&_ "<option value=""显影水晶"">显影水晶</option>"&_ "<option value=""悬浮陨石"">悬浮陨石</option>"&_ "</select>"&_ "<input name=""button"" type=""submit"" value=""提交"" onmouseover=""this.className='over';"" onmouseout=""this.className='out';"" class=""out"">"&_ "</td></tr>"&_ "</form>"&_ "<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">"& toolname &"</td></tr>"&_ "<tr class=""tds""><td>"&_ "向 "& selluser &" 成功购买 "& toolname &" :"& price &" "& gbname &" * "& amount &"个。"&_ "<Script Language=""JavaScript"">window.open(""tools.asp"","""& bbssn &"tools"");</Script>"&_ "</td></tr>" end if elseif toolname<>"" and selluser<>"" and amount=0 then contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>你没有输入向 "& selluser &" 购买道具 "& toolname &" 的数量。<br><a href=""JavaScript:history.back();"">返回重新输入后再试</a>。<br><br></td></tr>" elseif toolname<>"" and selluser="" and amount=0 then contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">道具超市</td></tr>"&_ "<form name=""market"" method=""post"" action=""market.asp"">"&_ "<tr class=""tds""><td>"&_ "选择你要购买的道具:<select name=""toolname"" size=""1"">"&_ "<option value=""暗夜极光"">暗夜极光</option>"&_ "<option value=""凤之羽粉"">凤之羽粉</option>"&_ "<option value=""精美礼盒"">精美礼盒</option>"&_ "<option value=""乱抱树熊"">乱抱树熊</option>"&_ "<option value=""社区支票"">社区支票</option>"&_ "<option value=""探察视镜"">探察视镜</option>"&_ "<option value=""天使翅膀"">天使翅膀</option>"&_ "<option value=""显影水晶"">显影水晶</option>"&_ "<option value=""悬浮陨石"">悬浮陨石</option>"&_ "</select>"&_ "<input name=""button"" type=""submit"" value=""提交"" onmouseover=""this.className='over';"" onmouseout=""this.className='out';"" class=""out"">"&_ "</td></tr>"&_ "</form>"&_ "<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">"& toolname &"</td></tr>"&_ "<tr class=""tds""><td>"&_ "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">" Select Case toolname Case "暗夜极光" Case "凤之羽粉" Case "精美礼盒" Case "乱抱树熊" Case "社区支票" Case "探察视镜" Case "天使翅膀" Case "显影水晶" Case "悬浮陨石" End Select contents=contents &"</table>"&_ "<table border=""0"" cellpadding=""3"" cellspacing=""3"" width=""100%"">"&_ "<tr class=""toptr""><td width=""20%"">出售者</td><td width=""20%"">售价</td><td width=""20%"">数量</td><td width=""40%"">购买</td></tr>" rs.Open "market Where toolname='"& toolname &"' Order by price",conn,1,1 For i=1 to rs.RecordCount contents=contents &"<form name=""market"" method=""post"" action=""market.asp""><tr class=""otr""><td>"& rs("gbmaduser") &"</td><td>"& rs("price") &"</td><td>"& rs("amount") &"</td><td><input type=""hidden"" name=""toolname"" value="""& toolname &"""><input type=""hidden"" name=""selluser"" value="""& rs("gbmaduser") &"""><input name=""amount"" type=""text"" maxlength=""5"" size=""5"" class=""iptwin""> <input name=""button"" type=""submit"" value=""提交"" onmouseover=""this.className='over';"" onmouseout=""this.className='out';"" class=""out""></td></tr></form>" rs.MoveNext Next rs.Close contents=contents &"</table>"&_ "</td></tr>" else contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">道具超市</td></tr>"&_ "<form name=""market"" method=""post"" action=""market.asp"">"&_ "<tr class=""tds""><td>"&_ "选择你要购买的道具:<select name=""toolname"" size=""1"">"&_ "<option value=""暗夜极光"">暗夜极光</option>"&_ "<option value=""凤之羽粉"">凤之羽粉</option>"&_ "<option value=""精美礼盒"">精美礼盒</option>"&_ "<option value=""乱抱树熊"">乱抱树熊</option>"&_ "<option value=""社区支票"">社区支票</option>"&_ "<option value=""探察视镜"">探察视镜</option>"&_ "<option value=""天使翅膀"">天使翅膀</option>"&_ "<option value=""显影水晶"">显影水晶</option>"&_ "<option value=""悬浮陨石"">悬浮陨石</option>"&_ "</select>"&_ "<input name=""button"" type=""submit"" value=""提交"" onmouseover=""this.className='over';"" onmouseout=""this.className='out';"" class=""out"">"&_ "</td></tr>"&_ "</form>" end if end if contents=contents &"</table>"&_ "" %> <!--#include file="bottom.asp"-->