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"-->