?? tigerwin.asp
字號:
<!--#include file="conn.asp" -->
<%
lgname=Request.Cookies(cn)("lgname")
if lgname="" then
response.write"<body bgcolor='#99CCFF'><p> </p><p> </p><p align='center'>您的登陸超時(shí)，請重新<a target='_blank' href='login.asp'>：：登陸：：</a>"
else
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=你提交的路徑有誤，禁止從站點(diǎn)外部提交數(shù)據(jù)請不要亂該參數(shù)"
end if
If Request.form("Submit")<>"" then
myconn.execute("update user set qian=qian+"&Request.form("win")&" where name='"&lgname&"'")
%>
<script language="VBScript">
top.location.replace"tiger.asp"
</script>
<% End if
BSWIN=Request.form("BSWIN")
BSm=Request.form("BSm")
set rs=createobject("adodb.recordset")
rs.open "select qian from user where name='"&lgname&"'",myconn,1,1
nowCash=clng(rs(0))
rs.close
set rs=nothing
myconn.close
set myconn=nothing
%>
<html>
<head>
<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: Verdana,simsun; FONT-SIZE: 9pt; line-height: 130%
}
DIV {
FONT-FAMILY: Verdana,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: Verdana, 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: Verdana, 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: Verdana, sans-serif, serif; FONT-SIZE: 9pt
}
BLOCKQUOTE {
}
</style>
<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 BSWIN>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>您目前有現(xiàn)金：<%=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：<%=BSWIN%></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><%=BSm%></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="<%=BSWIN%>">
</td>
</form>
</tr>
</table>
</td>
</tr>
<form name="form1" method="post" action="TigerWin.asp">
<input type="hidden" name="BSWIN" value="<%=BSWIN%>"><input type="hidden" name="BSm" value="">
</form>
</table>
<% ElseIf BSWIN=0 then %>
<table width="254" border="0" cellspacing="0" cellpadding="0" height="180">
<tr>
<td height="60">
<table width="254" border="0" cellspacing="0" cellpadding="3">
<tr>
<td>您目前有現(xiàn)金：<%=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>
</table>
<% End if %>
</body>
</html>
<% End if %>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -