📄 duchang.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"-->
<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> <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">
<%
stats="社区赌场"
if lgname="" then
Response.Redirect"login.asp"
response.end
else
response.write"<table cellpadding=0 cellspacing=0 align=center><tr><td align=center height=25><br><b>"&lgname&"</b> 您好，欢迎您来到 <a href=duchang.asp>社区赌场</a><br><br></td></tr><tr><td valign=middle height=100><CENTER>"
dim d1,d2,d3,b1,b2,b3,zj,ni,zs,zds,zdss,dmoney
set rs=server.createobject("adodb.recordset")
sql="select * from user where name='"&lgname&"'"
rs.Open sql,myconn,1,3
select case Request("menu")
case ""
play()
case "dx"
dx()
case "ds"
ds()
case "sz"
sz()
case "dx1"
checkup()
dx1()
case "ds1"
checkup()
ds1()
case "sz1"
checkup()
sz1()
end select
sub checkup()
dmoney=int(request("money"))
if dmoney > rs("qian") then
error2("你的钱不够！")
end if
if dmoney<10 or dmoney>1000 then
error2("输入错误！赌注范围10-1000")
end if
if rs("meili")<10 then
error2("您没有魅力了!")
end if
end sub
sub play()%>
<BODY>
<center>
<table width="600" border="1" height="143" cellpadding="4" cellspacing="4" bordercolor="#004080" style="border-collapse: collapse">
<tr align="center" bgcolor="#99CCFF">
<td bgcolor="#ECF5FF" bordercolor="#004080" height="129">
<table border="0" width="100%" cellspacing="0" cellpadding="6" style="border-collapse: collapse" bordercolor="#111111"><tr>
<td width="50%" align="center" bgcolor="#C4D4E5"> <p><img src="duchang_img/daxiao.gif" width="303" height="237" border="0"><br>
</td>
<td width="50%" bgcolor="#ECF5FF"> <ul>
<li><font color="#FF0000" class="c"><b>赌骰子</b></font> (赔率：1:1) <a href="duchang.asp?menu=sz">现在进入>></a>
<br>
<br>
<br>
<br>
<li><b><font color="#FF0000">赌大小</font></b> (赔率：1:1) <a href="duchang.asp?menu=dx">现在进入>></a><br>
<br>
<br>
<br>
</li>
<li><b><font color="#FF0000">猜点数</font></b> (赔率：1:5) <a href="duchang.asp?menu=ds">现在进入>></a><br>
</ul>
</td></tr></table></td></tr></table></center>
<%end sub
sub dx()%>
<form method="POST" action="duchang.asp?menu=dx1"><input type="hidden" name=menu value=dxover>
<center>
<table borderColor="#a4b6d7" cellSpacing="0" width="400" border="1" height="54" style="border-collapse: collapse" cellpadding="6">
<tr align="center"><td width="190" colspan="2">
<font size="3" style="font-size: 9pt"><b>
赌 场 - 赌 大 小</b></font></td>
<td width="183" colspan="2"><p>最大下注纹银是 <b><font color="#CC0000">
1000</font> 两银子</b></p>
</td>
</tr>
<tr align="center"><td width="134"><img src="duchang_img/run.gif" width="38" height="36"></td>
<td width="109" colspan="2"><img src="duchang_img/run.gif" width="38" height="36"></td>
<td width="117"><img src="duchang_img/run.gif" width="38" height="36"></td>
</tr><tr><td bgcolor="#C4D4E5" width="386" colspan="4">
<p align="center"><font style=font-size:9pt><b>
请选择</b></font></td>
</tr><tr><td align=center colspan="4" width="386" >
<table border="0" cellspacing="0" cellpadding="0" width="386">
<tr align="center"><td width="194">
<p align="right"><img src="duchang_img/big.gif"></td>
<td width="192">
<p align="left"><img src="duchang_img/small.gif"></td></tr><tr align="center">
<td width="194">
<p align="right"><input type="radio" name="dddimg" value="big" checked></td>
<td width="192">
<p align="left">
<input type="radio" name="dddimg" value="small"></td></tr></table></td></tr><tr>
<td align=center colspan="4" width="386">我要下注：
<input type="text" name="money" size="10" value="500"> <b> 两银子</b></td></tr><tr>
<td align=center bgColor=#C4D4E5 colspan="4" width="386"><input type="submit" value="下注啦！！！" name="B1" style="font-size: 12px">
</td>
</tr></table></center>
</form><center>
警告：每次赌钱，您的魅力值会扣 <font color="#CC0000">10</font> ！ <br>
您现在一共有社区纹银 <b><font color="#CC0000"><%=rs("qian")%></font></b> <b>两银子</b> 可以作为赌注<br>
<%end sub
sub ds()%>
<style>input { font-size: 9pt; color: #000000; background-color: #f7f7f7; padding-top: 3px}</style>
</HEAD><BODY>
<form method="POST" action="duchang.asp?menu=ds1"><input type="hidden" name=menu value=dsover>
<center>
<table border=1 cellspacing=0 cellpadding=3 width="350" bordercolor="#A4B6D7" style="border-collapse: collapse">
<tr align="center"><td width="33%"><p align="center">
<font size="3" style="font-size: 9pt"><b>赌 场 - 猜 点 数</b></font></p>
</td></tr>
<tr align="center"><td width="33%"><img src="duchang_img/run.gif"></td></tr><tr>
<td bgcolor="#A4B6D7" width="960"><font style=font-size:9pt><b> 请选择</b></font></td>
</tr><tr><td align=center><table border="0" cellspacing="0" cellpadding="0"><tr align="center">
<td width="17%"><img src="duchang_img/1.gif"></td><td width="17%"><img src="duchang_img/2.gif"></td>
<td width="16%"><img src="duchang_img/3.gif"></td><td width="17%"><img src="duchang_img/4.gif"></td>
<td width="17%"><img src="duchang_img/5.gif"></td><td width="16%"><img src="duchang_img/6.gif"></td>
</tr><tr align="center"><td width="17%"><input type="radio" name="dddimg" value="1" checked>
</td><td width="17%"><input type="radio" name="dddimg" value="2"></td><td width="16%">
<input type="radio" name="dddimg" value="3"></td><td width="17%"><input type="radio" name="dddimg" value="4">
</td><td width="17%"><input type="radio" name="dddimg" value="5"></td><td width="16%">
<input type="radio" name="dddimg" value="6"></td></tr></table></td></tr><tr><td align=center>
我要下注：
<input type="text" name="money" size="10" value="500"> <b> 两银子</b></td></tr><tr><td align=center bgColor=#A4B6D7><input type="submit" value="下注啦！！！" name="B1" style="font-size: 12px">
</td>
</tr></table> </form>
警告：每次赌钱，您的魅力值会扣 <font color="#CC0000">10</font> ！<br>
您现在一共有社区纹银 <b><font color="#CC0000"><%=rs("qian")%></font> 两银子</b> 可以作为赌注
<br>
<%end sub
sub sz()%>
<form method="POST" action="duchang.asp?menu=sz1"><input type="hidden" name=menu value=szover>
<center>
<table border=1 cellspacing=0 cellpadding=6 width="400" style="border-collapse: collapse" bordercolor="#A4B6D7" height="115">
<tr>
<td bgcolor="#C4D4E5" width="160" bordercolor="#A4B6D7" height="9" align="center">
<font size="3" style="font-size: 9pt"><b>赌场 - 赌骰子</b></font></td>
<td bgcolor="#C4D4E5" bordercolor="#A4B6D7" height="9" align="right">最大下注纹银是 <b><font color="#CC0000">1000</font> 两银子</b></td>
</tr><tr bgColor=FAF0E2>
<td align=center bgcolor="#FFFFFF" bordercolor="#A4B6D7" height="12" colspan="2">您现在一共有社区纹银 <b><font color="#CC0000"><%=rs("qian")%></font>
两银子</b> 可以作为赌注</td></tr><tr>
<td align=center bgcolor="#ECF5FF" bordercolor="#A4B6D7" height="20" colspan="2">我要下注：
<input type="text" name="money" size="10" value="500"> <b> 两银子</b></td></tr><tr>
<td align=center bgColor=#C4D4E5 height="23" colspan="2"><input type="submit" value="下注啦！！！" name="B1" style="font-size: 12px"></td>
</tr></table>
</form>
警告：每次赌钱，您的魅力值会扣 <font color="#CC0000">10</font> ！<br>
<%end sub
sub dx1()
dmoney=request("money")
dim ds
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -