📄 duchang.asp
字号:
<!--#include file="up.asp"-->
<%
'制作lamking
'请保留这段信息，这并不会影响你的程序运行速度以及资源占用，并且不会在网页上显示出来
dim comeurl
comeurl=Request.ServerVariables("HTTP_REFERER")
if isnull(lguserid) or lguserid="" then
Response.Redirect"login.asp"
Response.end
else
Response.write "<table cellpadding=3 cellspacing=1 align=center><tr><th valign=middle colspan=2 align=center height=25><a href=duchang.asp>社区赌场</a></td></tr><tr><td valign=middle height=100><CENTER>"
dim d1,d2,d3,b1,b2,b3,zj,ni,zs,zds,zdss,dmark,d_sql
set rs=server.createobject("adodb.recordset")
d_sql="select mark from [user] where userid="&lguserid&""
rs.Open d_sql,conn,0,2
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()
dmark=request("money")
if not isInteger(dmark) then call errmsg("请输入数字",comeurl)
dmark=int(dmark)
if int(rs("mark"))<50 then call errmsg(" 您的积分已经快用光了,不宜赌博啦,去发些帖子赚些积分吧","index.asp")
if dmark>rs("mark") then call errmsg("你的积分没有这么多哦！",comeurl)
if dmark<1 or dmark>100 then call errmsg("输入错误！赌注范围1-100",comeurl)
end sub
sub play()%>
<title>社区博彩</title><BODY><br>
<center>
<table width=750 border=1 height=143 cellpadding=4 cellspacing=4 bordercolor=#cccccc style="border-collapse: collapse">
<tr align=center bgcolor=#f2f2f2>
<td bgcolor=#f2f2f2 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=#f2f2f2> <p><img src=images/duchang/daxiao.gif width=303 height=237 border=0><br>
</td>
<td width=50% bgcolor=#f2f2f2> <ul>
<li><font color=#FF0000><b>赌骰子</b></font>赔率:1:1<a href=duchang.asp?menu=sz>现在进入>></a>
<br><br><br><li><b><font color=#FF0000>赌大小</font></b>赔率:1:1<a href=duchang.asp?menu=dx>现在进入>></a><br>
<br><br></li></ul><ul><li><b><font color=#FF0000>猜点数</font></b>赔率1：5<a href=duchang.asp?menu=ds>现在进入</a>>><br><br>
</ul></td></tr></table></td></tr></table></center><br>
<%end sub
sub dx()%>
<br>
<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>
100</font></b></p>
</td>
</tr>
<tr align=center><td width=134><img src=images/duchang/run.gif width=38 height=36></td>
<td width=109 colspan=2><img src=images/duchang/run.gif width=38 height=36></td>
<td width=117><img src=images/duchang/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=images/duchang/big.gif></td>
<td width=192>
<p align=left><img src=images/duchang/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=50> <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>
提示：您现在一共有积分<b><font color=#CC0000><%=rs("mark")%></font> 点</b> 可以作为赌注<br>
<%end sub
sub ds()%>
<style>input { font-size: 9pt; color: #000000; background-color: #f7f7f7; padding-top: 3px}</style>
</HEAD><BODY><br>
<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=images/duchang/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=images/duchang/1.gif></td><td width="17%"><img src="images/duchang/2.gif"></td>
<td width="16%"><img src="images/duchang/3.gif"></td><td width="17%"><img src="images/duchang/4.gif"></td>
<td width="17%"><img src="images/duchang/5.gif"></td><td width="16%"><img src="images/duchang/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="50"> <b> 点</b></td></tr><tr><td align=center bgColor=#A4B6D7><input type="submit" value="下注啦！！！" name="B1" style="font-size: 12px">
</td>
</tr></table> </form>
提示：您现在一共有积分<b><font color=#CC0000><%=rs("mark")%></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" width="160" bordercolor="#A4B6D7" height="9" align="right">最大下注积分是 <b><font color="#CC0000">100</font> 点</b></td>
</tr><tr bgColor=FAF0E2>
<td align=center bgcolor="#FFFFFF" bordercolor="#A4B6D7" height="12" colspan="2">您现在一共有积分 <b><font color="#CC0000"><%=rs("mark")%></font>
点</b> 可以作为赌注</td></tr><tr>
<td align=center bgcolor="#ECF5FF" bordercolor="#A4B6D7" height="20" colspan="2">我要下注：
<input type="text" name="money" size="10" value="50"> <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>
<%end sub
sub dx1()
dmark=request("money")
if not isInteger(dmark) then call errmsg("请输入数字，谢谢",comeurl)
dmark=int(dmark)
dim ds
ds=request("dddimg")
Randomize
d1=fix(rnd*6)+1
d2=fix(rnd*6)+1
d3=fix(rnd*6)+1
zs=d1+d2+d3
if zs>9 then
zds="大"
zdss="big"
else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -