<!-- #include file="include/config_other.asp" -->
<!-- #include file="include/conn.asp" -->
<%dim  n_sort
index_url="duchang"
tit_fir=format_menu(index_url)
tit=tit_fir
tit_fir="社区赌场"
 
call web_head(2,0,2,0,0)
call web_center(0)
response.write ukong
response.write "<table cellpadding=3 cellspacing=1 align=center class=tableborder1><tr><th valign=middle colspan=2 align=center height=25><b><a href=duchang.asp>社区赌场</a></b></td></tr><tr><td valign=middle class=tablebody1 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_data where username='"&login_username&"'"
rs.Open sql,conn,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("emoney") then
error2("你的钱不够！")
end if
if dmoney<10 or dmoney>100 then
error2("输入错误！赌注范围10-100")
end if
if rs("integral")<10 then
error2("您没有积分了!")
end if
end sub
sub play()%>
<title>社区博彩</title><BODY><br>
  <center>
  <table width="100%" 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="40%" align="center" bgcolor="#C4D4E5"> <p><img src="images/duchang_img/daxiao.gif" width="303" height="237" border="0"><br>
            </td>
            <td width="60%" bgcolor="#ECF5FF"> <ul>
                <li><font color="#FF0000" class="c"><b>赌骰子</b></font> <a href="duchang.asp?menu=sz">现在进入&gt;&gt;</a> 
                  <br>
                  <br>
                  <br>
                <li><b><font color="#FF0000">赌大小</font></b> <a href="duchang.asp?menu=dx">现在进入&gt;&gt;</a><br>
                  <br>
                  <br>
                </li>
              </ul>
              <ul>
                <li><b><font color="#FF0000">猜点数</font></b> <a href="duchang.asp?menu=ds">现在进入&gt;&gt;<br>
                  </a><br>
                  <br>您的积分：<font color=red><%=rs("integral")%></font><br>您的金币：<font color=red><%=rs("emoney")%></font>
              </ul></td></tr></table></td></tr></table></center>
<%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="100%" border="1" height="54" style="border-collapse: collapse" cellpadding="6">
<tr align="center"><td width="30%" colspan="2">
  <font size="3" style="font-size: 9pt"><b>
赌 场 - 赌 大 小</b></font></td>
  <td width="70%" colspan="2"><p>最大下注金币是 <b><font color="#CC0000">
  100</font> 两银子</b></p>  
  </td>
</tr>
<tr align="center"><td width="30%"><img src="images/duchang_img/run.gif" width="38" height="36"></td>
<td width="35%" colspan="2"><img src="images/duchang_img/run.gif" width="38" height="36"></td>
  <td width="35%"><img src="images/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>
  &nbsp;&nbsp;请选择</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_img/big.gif"></td>
<td width="192">
<p align="left"><img src="images/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="10"> &nbsp;<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("emoney")%></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><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_img/run.gif"></td></tr><tr>
<td bgcolor="#A4B6D7" width="960"><font style=font-size:9pt><b>&nbsp;&nbsp;请选择</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_img/1.gif"></td><td width="17%"><img src="images/duchang_img/2.gif"></td>
<td width="16%"><img src="images/duchang_img/3.gif"></td><td width="17%"><img src="images/duchang_img/4.gif"></td>
<td width="17%"><img src="images/duchang_img/5.gif"></td><td width="16%"><img src="images/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="10"> &nbsp;<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("emoney")%></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("emoney")%></font>
两银子</b> 可以作为赌注</td></tr><tr>
  <td align=center bgcolor="#ECF5FF" bordercolor="#A4B6D7" height="20" colspan="2">我要下注：
<input type="text" name="money" size="10" value="10"> <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
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
zds="小"
zdss="small"
end if
%>
<center><font style=font-size:9pt class="c"><b><font color="#0000CC">您押的是</font><br><font color="#CC0000"></font><font color="#CC0000">
</font></b></font><img src=images/duchang_img/<%=ds%>.gif><font style=font-size:9pt class="c"><b><font color="#CC0000"></font></b></font>
    <center>
<table borderColor="#a4b6d7" cellSpacing="0" width="400" border="1" height="54" style="border-collapse: collapse" cellpadding="6">
<tr bgcolor="#F2D9B3"><td colspan="3" align="center" bgcolor="#C4D4E5"><font class="c"><b>结果:</b></font><b><%=zs%>点，<%=zds%></b></td>
</tr><tr><td width="33%" align="center" bgcolor="#ECF5FF"><img src=images/duchang_img/<%=d1%>.gif></td>
  <td width="33%" align="center" bgcolor="#ECF5FF"><img src=images/duchang_img/<%=d2%>.gif></td>
<td width="34%" align="center" bgcolor="#ECF5FF"><img src=images/duchang_img/<%=d3%>.gif></td></tr>
<tr><td colspan="3" align="center" bgcolor="#ECF5FF"> <br>
<%
if ds=zdss then
%>
<p><font size="3">嘻嘻~，赢了： <b><font color="#CC0000"><%=dmoney%></font> 两银子</b></font></p>
<table width="80%" border="0" cellspacing="0" cellpadding="5"><tr><td align="right"><b><font color="#000099">庄家：</font></b></td>
<td colspan="2">您真厉害呀~！还要来吗？</td></tr><tr><td align="right"><b><font color="#CC0000">我说：</font></b></td>
<td colspan="2"><a href="duchang.asp?menu=dx">再来，我今天运气不错耶~！</a></td></tr>
<tr><td align="right">　</td><td colspan="2"><a href=duchang.asp target=_top>见好就收，呵，您都傻的~！</a></td>
</tr></table>
<%
dmoney=int(rs("emoney"))+int(dmoney)
else
%>
<p><font size="3">真倒霉，输了： <b><font color="#CC0000"><%=dmoney%></font> 两银子</b></font></p>
<table width="80%" border="0" cellspacing="0" cellpadding="5"><tr><td align="right"><b><font color="#000099">庄家：</font></b></td>
<td colspan="2">呵呵还要来吗？ 有赌未为输哦~！</td></tr><tr><td align="right"><b><font color="#CC0000">我说：</font></b></td>
<td colspan="2"><a href="duchang.asp?menu=dx">再来，呸，我就不相信这么倒霉~！</a></td>
</tr><tr><td align="right">　</td><td colspan="2"><a href=duchang.asp target=_top>今天真倒霉，不来了，下次再玩~！</a></td>
</tr></table>
<%
dmoney=int(rs("emoney"))-int(dmoney)
end if
rs("emoney")=int(dmoney)
rs("integral")=int(rs("integral"))-10
rs.update
%>
<hr width="250" SIZE="1">
您现在有社区金币：<b><%=rs("emoney")%></b>:两
<hr width="250" SIZE="1"></td></tr></table></center><font size="3"></font>
<%end sub
sub ds1()
dmoney=request("money")
dim ds
ds=cint(request("dddimg"))
Randomize
d1=fix(rnd*6)+1
%>
<br>
    <center>
    <table border="1" cellpadding="3" width="400" cellspacing="0" bordercolor="#A4B6D7" style="border-collapse: collapse">
<tr bgcolor="#F2D9B3"><td align="center" bgcolor="#A4B6D7"><font style=font-size:9pt class="c"><b>您押的是</b></font></td>
  <td align="center" bgcolor="#A4B6D7"><font class="c"><b>结果:</b></font><b><%=d1%>点</b></td>
</tr><tr><td align="center"><img src="images/duchang_img/<%=ds%>.gif"></td>
  <td align="center"><Img src="images/duchang_img/<%=d1%>.gif">
</span></a></td></tr>
<%
if ds=d1 then
dmoney=int(rs("emoney"))+int(dmoney)*5
%>
<tr><td colspan="2" align="center" bgcolor="#ECF5FF" width="392"> <br><p><font size="3">嘻嘻~，赢了： <b><font color="#CC0000"><%=request("money")%></font> 两银子</b></font></p>
<table width="80%" border="0" cellspacing="0" cellpadding="5"><tr><td align="right"><b><font color="#000099">庄家：</font></b></td>
<td colspan="2">您真厉害呀~！还要来吗？</td></tr><tr><td align="right"><b><font color="#CC0000">我说：</font></b></td>
<td colspan="2"><a href="duchang.asp?menu=ds">再来，我今天运气不错耶~！</a></td></tr>
<tr><td align="right">　</td><td colspan="2"><a href=duchang.asp target=_top>见好就收，呵，您都傻的~！</a></td>
</tr></table>
<%else%>
<tr><td colspan="2" align="center" bgcolor="#ECF5FF" width="392"> <br><p><font size="3">真倒霉，输了： <b><font color="#CC0000"><%=dmoney%> </font> 两银子</b></font></p>
<table width="80%" border="0" cellspacing="0" cellpadding="5"><tr><td align="right"><b><font color="#000099">庄家：</font></b></td>
<td colspan="2">呵呵还要来吗？ 有赌未为输哦~！</td></tr><tr><td align="right"><b><font color="#CC0000">我说：</font></b></td>
<td colspan="2"><a href=duchang.asp?menu=ds>再来，呸，我就不相信这么倒霉~！</a></td>
</tr><tr><td align="right">　</td><td colspan="2"><a href=duchang.asp target=_top>今天真倒霉，不来了，下次再玩~！</a></td>
</tr></table>
<%
dmoney=int(rs("emoney"))-int(dmoney)
end if
rs("emoney")=int(dmoney)
rs("integral")=int(rs("integral"))-10
rs.update
%>
<hr width="250" SIZE="1">
您现在有社区金币：<b><font color="#CC0000"><%=rs("emoney")%></font></b>:两
<hr width="250" SIZE="1"></td></tr></table></center>
<font size="3"></font>
<%end sub

sub sz1()
dmoney=int(request("money"))
Randomize
d1=fix(rnd*6)+1
d2=fix(rnd*6)+1
d3=fix(rnd*6)+1
b1=fix(rnd*6)+1
b2=fix(rnd*6)+1
b3=fix(rnd*6)+1
zj=d1+d2+d3
ni=b1+b2+b3
%>
<br>
<center>
<table border="1" cellspacing="0" cellpadding="6" width="400" bordercolor="#A4B6D7" style="border-collapse: collapse" height="314">
<tr><td colspan="3" bgcolor="#A4B6D7" height="12"><font style=font-size:9pt class="c"><b>
  &nbsp;赌 场 - 赌 骰 子</b></font></td></tr><tr>
  <td colspan="3" align="center" bgcolor="#ECF5FF" height="12"><font color="#0000CC">□-庄家骰子：</font><%=zj%>
点 </td></tr><tr><td align="center" height="30"><img src=images/duchang_img/<%=d1%>.gif></td>
<td align="center" height="30"><img src=images/duchang_img/<%=d2%>.gif></td>
  <td align="center" height="30"><img src=images/duchang_img/<%=d3%>.gif></td>
</tr><tr><td colspan="3" align="center" bgcolor="#ECF5FF" height="12"><font color="#CC0000">□-您的骰子：</font><%=ni%>
点 </td></tr><tr><td align="center" height="30"><img src=images/duchang_img/<%=b1%>.gif></td>
<td align="center" height="30"><img src=images/duchang_img/<%=b2%>.gif></td>
  <td align="center" height="30"><img src=images/duchang_img/<%=b3%>.gif></td>
</tr><tr bgcolor="#FAF0E2">
  <td colspan="3" align="center" bgcolor="#ECF5FF" height="116">
<%
if zj<ni then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="5"><tr><td align="right" height="50">　</td>
<td colspan="2" height="50"><font size="3">&nbsp;嘻嘻~，赢了：<b><font color="#CC0000"><%=dmoney%></font> 两银子</b></font></td></tr><tr>
<td align="right"><b><font color="#000099"> 庄家：</font></b></td><td colspan="2">&nbsp;您真厉害呀~！还要来吗？ </td></tr><tr><td align="right"><b><font color="#CC0000">我要：</font></b></td>
<td colspan="2">&nbsp;<a href="duchang.asp?menu=sz">再来，我今天运气不错耶~！</a></td></tr><tr><td align="right">　</td>
<td colspan="2">&nbsp;<a href=duchang.asp target=_top>见好就收，呵呵，走人咯~！</a></td></tr></table>
<%
dmoney=int(rs("emoney"))+int(dmoney)
else
%>
<center>
<table width="100%" border="0" cellspacing="0" cellpadding="5" style="border-collapse: collapse" bordercolor="#111111"><tr>
<td height="50">　</td><td colspan="2" height="50"><p><font size="3">&nbsp;真倒霉，输了： <b><font color="#CC0000"><%=dmoney%></font> 两银子</b></font></p></td></tr><tr>
<td align="right"><b><font color="#000099"> 庄家：</font></b></td><td colspan="2">&nbsp;呵呵~还要来吗？ 有赌未必输哦~！</td></tr><tr><td align="right" rowspan="2"><b><font color="#CC0000"> 我要：</font></b></td>
<td colspan="2">&nbsp;<a href="duchang.asp?menu=sz">再来，呸，我就不相信这么倒霉~！</a></td></tr><tr><td colspan="2">&nbsp;<a href=duchang.asp target=_top>今天真倒霉，走~了，下次再玩~！</a></td></tr></table>
</center>
<%
dmoney=int(rs("emoney"))-int(dmoney)
end if

rs("emoney")=int(dmoney)
rs("integral")=int(rs("integral"))-10
rs.update
%>
<hr size="1" width="250">
您现在有社区金币：<font color="#CC0000"><b><%=rs("emoney")%></b></font><b> ：两
<hr size="1" width="250"></td></tr></table></center>
<%end sub
rs.close
sub error2(message)
%>
<script>alert('<%=message%>');history.back();</script><script>window.close();</script>
<%
response.end
end sub
response.write "</CENTER></td></tr></table><br>"
call web_end(0)
%>