bscreate.asp

一个赌大小的游戏

<!--#include file="conn.asp"-->
<!--#include file="cookies.asp"-->
<!--#include file="Function.asp"-->
<%
if session("rain_mytype_go")="" or session("rain_mymoney_go")="" then
	Call ShowErrorTo("未提交下注信息！","BeginBs.asp")
end if
w=request("w")
'_____判断是否为数字
if isnumeric(w)=false then
	response.Redirect("BeginBS2.asp")
end if
'____判断是否为1,2,3  
if w<>1 and w<>2 and w<>3 then
	response.Redirect("BeginBS2.asp")
end if
'____判断是第1，2，3位是否分别开过奖了
if w=1 then
	if session("rain_a1_go")<>"" then
		response.Redirect("BeginBS2.asp")
	end if
end if
if w=2 then
	if session("rain_a2_go")<>"" then
		response.Redirect("BeginBS2.asp")
	end if
end if
if w=3 then
	if session("rain_a3_go")<>"" then
		response.Redirect("BeginBS2.asp")
	end if
end if
hao=6
randomize
hao=Int(hao*rnd+1)
select case w
	case 1
	session("rain_a1_go")=hao
	case 2
	session("rain_a2_go")=hao
	case 3
	session("rain_a3_go")=hao
end select
response.Redirect("BeginBS2.asp")
%>