beginbs1.asp

一个赌大小的游戏

<%@ language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="conn.asp"-->
<!--#include file="Function.asp"-->
<!--#include file="Cookies.asp"-->
<%
Call Remote()
set MyScore=conn.execute("select myscore from [GameAdmin] where username='"&session("RainGameBS")&"'")
'______已经下过注了，用户自主返回这一页，直接跳过
if session("rain_mytype_go")<>"" and session("rain_mymoney_go")<>"" then
	response.Redirect("BeginBS2.asp")
end if
'________未下注，用户输入URL地址到达这儿的，返回到投注页
if request.form("mytype")="" or request.form("mymoney")="" then
	Call ShowErrorTo("未提交下注信息！","BeginBs.asp")
end if
if Cint(MyScore(0))<Cint(request.form("mymoney")) then
	ShowError("帐户上余额不足您的本次投注！")
end if
'______取得投注信息
session("rain_mytype_go")=request.form("mytype")
session("rain_mymoney_go")=request.form("mymoney")
'_______将用户下注的金额扣除
conn.execute("update [GameAdmin] set myscore=myscore-"&session("rain_mymoney_go")&" where username='"&session("RainGameBS")&"'")
Call CloseConn()
response.Redirect("BeginBS2.asp")
%>