⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 tiger.asp

📁 asp构建网站bbs.采用B/S架构
💻 ASP
字号:
🔍 
<%
'##################################################################
'# 老虎机 插件 for 6KBBS
'# 6KSU1.1[痞子NET]版
'# 主页 http://d9pd.51.net
'# 论坛 http://jwclub.126.com http://jwclub.9126.com[戒网俱乐部]
'# 我的QQ:283067 Email:btajn9@21cn.com
'# 如有技术问题，请到6kbbs官方论坛一起讨论 http://6k.2ya.com
'# 关于此hack版的问题可以到 http://jwclub.9126.com 中讨论 
'##################################################################
%>
<!--#include file="up.asp"-->
<%
lgname=Request.Cookies(cn)("lgname")
lgpwd=request.cookies(cn)("lgpwd")
if lgname="" then
Response.Redirect"login.asp"
response.end
end if
%>
<br><br>
<div align='center'>
  <center><table border=0 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor=#111111 width=98% ><tr>
    <td bgcolor=<%=c1%> width=100% background=pic/<%=sp%>3.gif height=23>&nbsp;<img border=0 src=pic/fl.gif> <font color=#FFFFFF><b>老 虎 机</b></font></td></tr></table>
  </center>
</div>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px" bordercolor="<%=c1%>" width="98%">
<tr>
<td width="100%" align="center">
<table>
<tr><td>
<br>
<b><%=lgname%></b> 您好，欢迎您使用 <a href=tiger.asp>老虎机</a> 程序。
<br>
<html>
<head>
<script language="VBScript">
dim j,k,l,i,h,m,n,o,Wins

sub play()
bgs.src="duchang_img/1.mid"
if form1.e1.value+form1.e2.value+form1.e3.value+form1.e4.value+form1.e5.value+form1.e6.value+form1.e7.value=0 then
msgbox"您没有选择下注",0
exit sub
end if

ee1.disabled=true
ee2.disabled=true
ee3.disabled=true
ee4.disabled=true
ee5.disabled=true
ee6.disabled=true
ee7.disabled=true
eeb.disabled=true
eer.disabled=true

k=1
i=0
j=1
randomize
l=fix(65*rnd+44)'匀速转多少2~5圈
randomize
h=22
h=fix(22*rnd+0)'减慢转多少0~1圈
toplay()
end sub

sub toplay()
	k=k+1	
	for x=1 to 22
	document.all("f"&x).bgcolor="#FFFFFF"
	next		
	document.all("f"&j).bgcolor="red"
	j=j+1
	if j>22 then j=1
	if k<=l-h then
		settimeout "toplay()",20
	else
		i=i+1
		if i>h then
		Wins=Win(j-1)
			if Win(j-1)>0 then
				form1.win.value=Win(j-1)
				bgs.src="duchang_img/3.mid"
				bgs.loop="0"
			else
				bgs.src="duchang_img/2.mid"
				bgs.loop="0"
			end if
		form1.submit()
		exit sub
		end if
		settimeout "toplay()",20*i
	end if
end sub

function show(NN)
	if NN=3 or NN=6 or NN=11 or NN=14 or NN=18 or NN=21 then
	NN="2"
	elseif NN=2 or NN=5 or NN=10 or NN=19 then
	NN="4"
	elseif NN=8 or NN=13 or NN=17 then
	NN="6"
	elseif NN=7 or NN=16 or NN=0 then
	NN="8"
	elseif NN=9 or NN=20 then
	NN="10"
	elseif NN=4 or NN=15 then
	NN="30"
	elseif NN=12 then
	NN="50"
	elseif NN=1 then
	NN="0"
	end if
show=NN
end function

function Win(NN)
	if NN=3 or NN=6 or NN=11 or NN=14 or NN=18 or NN=21 then
	NN=2*document.form1.e1.value
	elseif NN=2 or NN=5 or NN=10 or NN=19 then
	NN=4*document.form1.e2.value
	elseif NN=8 or NN=13 or NN=17 then
	NN=6*document.form1.e3.value
	elseif NN=7 or NN=16 or NN=0 then
	NN=8*document.form1.e4.value
	elseif NN=9 or NN=20 then
	NN=10*document.form1.e5.value
	elseif NN=4 or NN=15 then
	NN=30*document.form1.e6.value
	elseif NN=12 then
	NN=50*document.form1.e7.value
	elseif NN=1 then
	NN=0*document.form1.e7.value
	end if
Win=NN
end function

sub ResetE()
document.form1.e1.value=0
document.form1.e2.value=0
document.form1.e3.value=0
document.form1.e4.value=0
document.form1.e5.value=0
document.form1.e6.value=0
document.form1.e7.value=0
zero()
end sub

sub zero()
for e=1 to 7
document.all("d"&e).innerHTML=0
next
end sub

sub bet1()
If document.form1.e1.value<10 then
document.form1.e1.value=document.form1.e1.value+1
End if
d1.innerHTML=document.form1.e1.value
end sub
sub bet2()
If document.form1.e2.value<10 then
document.form1.e2.value=document.form1.e2.value+1
End if
d2.innerHTML=document.form1.e2.value
end sub
sub bet3()
If document.form1.e3.value<10 then
document.form1.e3.value=document.form1.e3.value+1
End if
d3.innerHTML=document.form1.e3.value
end sub
sub bet4()
If document.form1.e4.value<10 then
document.form1.e4.value=document.form1.e4.value+1
End if
d4.innerHTML=document.form1.e4.value
end sub
sub bet5()
If document.form1.e5.value<10 then
document.form1.e5.value=document.form1.e5.value+1
End if
d5.innerHTML=document.form1.e5.value
end sub
sub bet6()
If document.form1.e6.value<10 then
document.form1.e6.value=document.form1.e6.value+1
End if
d6.innerHTML=document.form1.e6.value
end sub
sub bet7()
If document.form1.e7.value<10 then
document.form1.e7.value=document.form1.e7.value+1
End if
d7.innerHTML=document.form1.e7.value
end sub
</script>
<bgsound src="0.mid" loop=-1 id=bgs>
<script language="JavaScript">
<!--
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
MM_preloadImages('duchang_img/1.mid','duchang_img/2.mid','duchang_img/3.mid')
</script>
</head>
<body onload="zero()">

  <form name="form1" method="post" action="TigerRun.asp" target="run"><tr>

  <table border="0" cellspacing="1" cellpadding="0" bgcolor="#CCCCCC" align="center">
    <tr bgcolor="#FFFFFF" align="center"> 
      <td height="50" width="50" id="f9"><img src="duchang_img/t5.gif" width="32" height="32"></td>  <td height="50" width="50" id="f10"><img src="duchang_img/t2.gif" width="32" height="32"></td>  <td height="50" width="50" id="f11"><img src="duchang_img/t1.gif" width="32" height="32"></td>
      <td height="50" width="50" id="f12"><img src="duchang_img/t7.gif" width="32" height="32"></td>  <td height="50" width="50" id="f13"><img src="duchang_img/t3.gif" width="32" height="32"></td>  <td height="50" width="50" id="f14"><img src="duchang_img/t1.gif" width="32" height="32"></td>
      <td height="50" width="50" id="f15"><img src="duchang_img/t6.gif" width="32" height="32"></td>
  </tr>
  <tr bgcolor="#FFFFFF" align="center"> 
      <td height="50" width="50" id="f8"><img src="duchang_img/t3.gif" width="32" height="32"></td>
      <td colspan="5" rowspan="4"><iframe src="TigerMain.asp" name="run" id=" " scrolling="no" width="254" height="203" marginwidth="0" marginheight="0" frameborder="0" align="default"> 
        </iframe></td>
      <td height="50" width="50" id="f16"><img src="duchang_img/t4.gif" width="32" height="32"></td>
  </tr>
  <tr bgcolor="#FFFFFF" align="center"> 
      <td height="50" width="50" id="f7"><img src="duchang_img/t4.gif" width="32" height="32"></td>  <td height="50" width="50" id="f17"><img src="duchang_img/t3.gif" width="32" height="32"></td>
  </tr>
  <tr bgcolor="#FFFFFF" align="center"> 
      <td height="50" width="50" id="f6"><img src="duchang_img/t1.gif" width="32" height="32"></td>
      <td height="50" width="50" id="f18"><img src="duchang_img/t1.gif" width="32" height="32"></td>
  </tr>
  <tr bgcolor="#FFFFFF" align="center">
      <td height="50" width="50" id="f5"><img src="duchang_img/t2.gif" width="32" height="32"></td>
      <td height="50" width="50" id="f19"><img src="duchang_img/t2.gif" width="32" height="32"></td>
  </tr>
  <tr bgcolor="#FFFFFF" align="center"> 
      <td height="50" width="50" id="f4"><img src="duchang_img/t6.gif" width="32" height="32"></td>  <td height="50" width="50" id="f3"><img src="duchang_img/t1.gif" width="32" height="32"></td>
      <td height="50" width="50" id="f2"><img src="duchang_img/t2.gif" width="32" height="32"></td>
      <td height="50" width="50" id=f1>Lose</td>
      <td height="50" width="50" id="f22"><img src="duchang_img/t4.gif" width="32" height="32"></td>  <td height="50" width="50" id="f21"><img src="duchang_img/t1.gif" width="32" height="32"></td>
      <td height="50" width="50" id="f20"><img src="duchang_img/t5.gif" width="32" height="32"></td>
  </tr>
</table>
  <table width="358" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr> 
      <td> 
        <table border="0" cellspacing="1" cellpadding="0" bgcolor="#CCCCCC" align="center">
          <tr bgcolor="#99CCFF" align="center"> 
            <td width="50" height="30" id=d7>　</td>
            <td width="50" height="30" id=d6>　</td>
            <td width="50" height="30" id=d5>　</td>
            <td width="50" height="30" id=d4>　</td>
            <td width="50" height="30" id=d3>　</td>
            <td width="50" height="30" id=d2>　</td>
            <td width="50" height="30" id=d1>　</td>
          </tr>
          <tr bgcolor="#99CCFF" align="center"> 
            <td width="50" height="50" id=ee7 onClick="bet7()" style="cursor:hand" title="下注" onMouseover="ee7.bgcolor='#75BAFF'" onMouseout="ee7.bgcolor='#99CCFF'"><img src="duchang_img/t7.gif" width="32" height="32"><br>
              x50</td>
            <td width="50" height="50" id=ee6 onClick="bet6()" style="cursor:hand" title="下注" onMouseover="ee6.bgcolor='#75BAFF'" onMouseout="ee6.bgcolor='#99CCFF'"><img src="duchang_img/t6.gif" width="32" height="32"><br>
              x30</td>
            <td width="50" height="50" id=ee5 onClick="bet5()" style="cursor:hand" title="下注" onMouseover="ee5.bgcolor='#75BAFF'" onMouseout="ee5.bgcolor='#99CCFF'"><img src="duchang_img/t5.gif" width="32" height="32"><br>
              x10</td>
            <td width="50" height="50" id=ee4 onClick="bet4()" style="cursor:hand" title="下注" onMouseover="ee4.bgcolor='#75BAFF'" onMouseout="ee4.bgcolor='#99CCFF'"><img src="duchang_img/t4.gif" width="32" height="32"><br>
              x8</td>
            <td width="50" height="50" id=ee3 onClick="bet3()" style="cursor:hand" title="下注" onMouseover="ee3.bgcolor='#75BAFF'" onMouseout="ee3.bgcolor='#99CCFF'"><img src="duchang_img/t3.gif" width="32" height="32"><br>
              x6</td>
            <td width="50" height="50" id=ee2 onClick="bet2()" style="cursor:hand" title="下注" onMouseover="ee2.bgcolor='#75BAFF'" onMouseout="ee2.bgcolor='#99CCFF'"><img src="duchang_img/t2.gif" width="32" height="32"><br>
              x4</td>
            <td width="50" height="50" id=ee1 onClick="bet1()" style="cursor:hand" title="下注" onMouseover="ee1.bgcolor='#75BAFF'" onMouseout="ee1.bgcolor='#99CCFF'"><img src="duchang_img/t1.gif" width="32" height="32"><br>
              x2</td>
          </tr>
        </table>
      </td>
    </tr>
    <tr> 
      <td> 
<table width="358" border="0" cellspacing="1" cellpadding="0" bgcolor="#CCCCCC" align="center" height="30" STYLE="CURSOR:HAND">
  <tr> 
  <td id=eeb onClick="play()" bgcolor="#CCFF00" align="center" width="50%" title="买定离手" onMouseover="eeb.bgcolor='#DDDDDD'" onMouseout="eeb.bgcolor='#CCFF00'">买定离手</td>
   <td id=eer onClick="ResetE()" bgcolor="#CCFF00" align="center" width="50%" title="重新下注" onMouseover="eer.bgcolor='#DDDDDD'" onMouseout="eer.bgcolor='#CCFF00'">重新下注</td>
   </tr>
   </table>
</td>
</tr>
</tr>
</table>
<input type="hidden" name="e7" value="0">
<input type="hidden" name="e6" value="0">
<input type="hidden" name="e5" value="0">
<input type="hidden" name="e4" value="0">
<input type="hidden" name="e3" value="0">
<input type="hidden" name="e2" value="0">
<input type="hidden" name="e1" value="0">
<input type="hidden" name="win" value="0">
</form>
</body>
</html>

欢迎使用[老虎机插件 FOR 6KBBS5.0]，此程序由[<a href="http://www.xm520.zj.com">游街少爷</a>]修改自动网插件。<br><br>
</td></tr></table>
</td>
   </tr>
  </table>
  </center>
</div>

<!--#include file="down.asp"-->

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -