📄 tigerrun.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="set.asp" -->
<style type="text/css">
P {
FONT-SIZE: 9pt; LINE-HEIGHT: 12pt
}
A {
TEXT-DECORATION: none;
TEXT-TRANSFORM: none;
color: #000000;
}
A:hover {color:#0099FF; text-decoration: underline}
TD {
FONT-FAMILY: 宋体,simsun; FONT-SIZE: 9pt; line-height: 130%
}
DIV {
FONT-FAMILY: 宋体,simsun; FONT-SIZE: 9pt
}
INPUT {
BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #000000; FONT-FAMILY: 宋体, sans-serif, serif; FONT-SIZE: 9pt
}
SELECT {
BORDER-BOTTOM: 1px double; BORDER-LEFT: 0px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #000000; FONT-FAMILY: 宋体, sans-serif, serif; FONT-SIZE: 9pt
}
SELECT:unknown {
BORDER-BOTTOM: 0px outset; BORDER-LEFT: 0px outset; BORDER-RIGHT: 0px outset; BORDER-TOP: 0px outset; CURSOR: hand; FONT-FAMILY: 宋体, sans-serif, serif; FONT-SIZE: 9pt
}
BLOCKQUOTE {
}
</style>
<%
dim membername,username,server_v1,server_v2,Win,e1,e2,e3,e4,e5,e6,e7,etotal,rs,nowcash
membername=request.cookies("aspsky")("username")
username=CheckLogin
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.Redirect "error.asp?id=你提交的路径有误，禁止从站点外部提交数据请不要乱该参数"
end if
Win=Request.form("win")
e1=cint(Request.form("e1"))
e2=cint(Request.form("e2"))
e3=cint(Request.form("e3"))
e4=cint(Request.form("e4"))
e5=cint(Request.form("e5"))
e6=cint(Request.form("e6"))
e7=cint(Request.form("e7"))
eTotal=clng(e1+e2+e3+e4+e5+e6+e7)
set rs=Createobject("ADODB.Recordset")
rs.open "select * from ["&DatabaseMember&"] where "&DatabaseUserName&"='"&username&"'",conn,1,3
nowCash=clng(rs(DatabaseCash))
If eTotal>nowCash then
Response.Redirect"error.asp?id=您的钱不够"
Else
nowCash=nowCash-eTotal
End if
rs(DatabaseCash)=rs(DatabaseCash)-eTotal
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
<script language="VBScript">
dim n,o,m
sub bs(mm)
o=1
randomize
n=fix(11*rnd+50)
if mm=1 then
tob()
else
tos()
end if
end sub
sub tob()
m=m+1
if m>9 then m=0
cc2.innerHTML=m
o=o+1
if o>n then
if m>=5 then
form1.BSWIN.value=form1.BSWIN.value*2
else
form1.BSWIN.value=0
end if
form1.BSm.value=m
form1.submit()
exit sub
end if
settimeout "tob()",20
end sub
sub tos()
m=m+1
if m>9 then m=0
cc2.innerHTML=m
o=o+1
if o>n then
if m<=4 then
form1.BSWIN.value=form1.BSWIN.value*2
else
form1.BSWIN.value=0
end if
form1.BSm.value=m
form1.submit()
exit sub
end if
settimeout "tos()",20
end sub
</script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="#99CCFF">
<% If Win>0 then %>
<table width="254" border="0" cellspacing="0" cellpadding="0" height="180">
<tr>
<td>
<table width="254" border="0" cellspacing="0" cellpadding="3">
<tr>
<td>您目前有现金：<%=nowCash%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" height="141">
<table width="240" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td colspan="3" height="30">WIN：<%=Win%></td>
</tr>
<tr align="center">
<td width="80" height="80"><img src="duchang_img/Big.gif" width="46" height="40" onClick="bs(1)" style="cursor:hand"></td>
<td width="80" height="80" id=cc2>0 </td>
<td width="80" height="80"><img src="duchang_img/Small.gif" width="46" height="40" onClick="bs(2)" style="cursor:hand"></td>
</tr>
<tr align="center">
<form name="form2" method="post" action="TigerWin.asp">
<td colspan="3" height="30">
<input type="submit" name="Submit" value="下一盘" class="bt"><input type="hidden" name="win" value="<%=Win%>">
</td>
</form>
</tr>
</table>
</td>
</tr>
<form name="form1" method="post" action="TigerWin.asp">
<input type="hidden" name="BSWIN" value="<%=Win%>"><input type="hidden" name="BSm" value="">
</form>
</table>
<% Else %>
<table width="254" border="0" cellspacing="0" cellpadding="0" height="180">
<form name="form1" method="post" action="TigerRun.asp">
<tr>
<td height="60">
<table width="254" border="0" cellspacing="0" cellpadding="3">
<tr>
<td>您目前有现金：<%=nowCash%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" height="141">
<p><font color="#FF0000">您没押中！</font></p>
<p><input type="button" name="Submit2" value="下一盘" class="bt" onclick="top.location.replace('tiger.asp')"></p>
</td>
</tr>
<input type="hidden" name="BSWIN" value=""><input type="hidden" name="BSm" value="">
</form>
</table>
<% End if %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -