📄 beginbs2.asp
字号:
<%@ language="vbscript"%>
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
%>
<!--#include file="conn.asp"-->
<%
if session("rain_mytype_go")="" or session("rain_mymoney_go")="" then
Call ShowErrorTo("未提交下注信息！","BeginBs.asp")
end if
if session("rain_a1_go")<>"" and session("rain_a2_go")<>"" and session("rain_a3_go")<>"" then
mycount=session("rain_a1_go")+session("rain_a2_go")+session("rain_a3_go")
Call BSResult(mycount)
if Cint(mycount)=Cint(session("rain_mytype_go")) then
conn.execute("update [GameAdmin] set myscore=myscore+"&session("rain_mymoney_go")*2&" where username='"&session("RainGameBS")&"'")
flag=1
isok=1
Call BSText1(win,img)
else
flag=2
isok=0
Call BSText2(lost,img)
end if
conn.execute("insert into [GameBsInfo] (username,mytype,mymoney,a1,a2,a3,result,isok,addtime) values ('"&session("RainGameBS")&"',"&Cint(session("rain_mytype_go"))&","&Cint(session("rain_mymoney_go"))&","&session("rain_a1_go")&","&session("rain_a2_go")&","&session("rain_a3_go")&","&Cint(mycount)&","&isok&",'"&date()&"')")
end if
%>
<html>
<head>
<title>雨点赌大小游戏</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="免费赌大小游戏程序，游戏简单，代码简洁易改！">
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="top.asp"-->
<!--#include file="intro.asp"-->
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" height="10"> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" height="10"> </td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" class="table1">
<tr>
<td width="24%" height="24"> <div align="right">您选择了：</div></td>
<td width="22%"><strong><font color="#FF0000">
<%if session("rain_mytype_go")=1 then response.write("小") else response.write("大") end if%>
</font></strong></td>
<td width="22%"><div align="right">投注额为：</div></td>
<td width="32%"><font color="#FF0000" face="Geneva, Arial, Helvetica, sans-serif"><strong><%=session("rain_mymoney_go")%></strong></font>个知道币</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" height="10"> </td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" class="table1">
<form name="form1" method="post" action="index.asp?action=third">
<tr>
<td width="95%" height="30" bgcolor="#F2FBF2" class="14black"> <strong><font color="#333333">游戏第二步</font></strong></td>
</tr>
<tr>
<td><table width="547" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#FFFFFF" class="table">
<td width="158" height="26"><div align="right">筛子第一位：</div></td>
<td width="389" height="26"><font color="#FF0000" face="Geneva, Arial, Helvetica, sans-serif"><strong><%=session("rain_a1_go")%></strong></font>
<%if session("rain_a1_go")="" then%>
<input name="Submit2" type="button" class="button1" value="产生第一位" onClick="location.href='BeginBS2.asp?action=create&w=1'">
<%end if%>
</td>
</tr>
<tr bgcolor="#FFFFFF" class="table">
<td height="26"><div align="right">筛子第二位：</div></td>
<td height="26"><font color="#FF0000" face="Geneva, Arial, Helvetica, sans-serif"><strong><%=session("rain_a2_go")%></strong></font>
<%if session("rain_a2_go")="" then%>
<input name="Submit22" type="button" class="button1" value="产生第二位" onClick="location.href='BeginBS2.asp?action=create&w=2'">
<%end if%>
</td>
</tr>
<tr bgcolor="#FFFFFF" class="table">
<td height="26"><div align="right">筛子第三位：</div></td>
<td height="26"><font color="#FF0000" face="Geneva, Arial, Helvetica, sans-serif"><strong><%=session("rain_a3_go")%></strong></font>
<%if session("rain_a3_go")="" then%>
<input name="Submit22" type="button" class="button1" value="产生第三位" onClick="location.href='BeginBS2.asp?action=create&w=3'">
<%end if%>
</td>
</tr>
<%if session("rain_a1_go")<>"" and session("rain_a2_go")<>"" and session("rain_a3_go")<>"" then%>
<tr bgcolor="#FFFFFF" class="table">
<td height="26"><div align="right">计算结果：</div></td>
<td height="26"><strong><font color="#FF0000" face="Geneva, Arial, Helvetica, sans-serif"><%=session("rain_a1_go")%>+<%=session("rain_a2_go")%>+<%=session("rain_a3_go")%>=<%=session("rain_a1_go")+session("rain_a2_go")+session("rain_a3_go")%></font></strong>
<%if mycount=2 then response.write("<font color=red><b>(大)</b></font>") else response.write("<font color=red><b>(小)</b></font>")%>
</td>
</tr>
<tr>
<td height="40" class="12"><div align="center"></div></td>
<td class="20"><strong>
<%if flag=1 then%>
<font color="#0000FF"><%=win%></font>
<%end if%>
<%if flag=2 then%>
<font color="#FF0000"><%=lost%></font>
<%end if%>
<br>
<br>
<input name="Submit32323" type="button" class="button1" value="返回重新开始" style="height=30px" onClick="location.href='BeginBS.asp'">
</strong></td>
</tr>
<%end if%>
</table></td>
</tr>
</form>
</table>
<%if request.querystring("action")="create" then
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
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" height="10"> </td>
</tr>
</table>
<table width="100%" height="80" border="0" align="center" cellpadding="4" cellspacing="2" class="table1">
<form name="loading" method="post" action="">
<tr>
<td bgcolor="#FAFFF4" class="unnamed1"> <div align="center"><font color="#0066FF"><strong>系统正在摇筛子......</strong></font>
<input type=text name=chart size=20 style="font-family:Arial; font-weight:bolder; color:#0066ff; background-color:F1FFE6; padding:0px; border-style:none;">
<input type=text name=percent size=10 style="color:#0066ff; face=Geneva, Arial, Helvetica, sans-serif; background-color:F1FFE6; text-align:center; border-width:medium; border-style:none;">
<script>
var bar=0
var line="||"
var amount="||"
count()
function count(){
bar=bar+10
amount =amount + line
document.loading.chart.value=amount
document.loading.percent.value=bar+"%"
if (bar<99)
{setTimeout("count()",100);}
else
{window.location = "BSCreate.asp?w=<%=request("w")%>";}
}
</script>
</div></td>
</tr>
</form>
</table>
<%end if%>
<%
'____-如果三位数都产生了，就出结果了，可以清空session
if session("rain_a1_go")<>"" and session("rain_a2_go")<>"" and session("rain_a3_go")<>"" then
session("rain_a1_go")=""
session("rain_a2_go")=""
session("rain_a3_go")=""
session("rain_mytype_go")=""
session("rain_mymoney_go")=""
end if
Call CloseConn()
%>
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -