<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="Class_Checkuser.asp" -->
<!--#INCLUDE FILE="Class_Top.asp" -->
<%
locat="风铃赌场"

if membername="" Then
  	ErrMsg=ErrMsg+"<br>"+"<li>您还没有<a href=Class_Login.asp><font color=red>登录或注册校友录</font></a>。"
	Call top(1,1)
	Call Error("Information",ErrMsg)
	
Else
 call top(1,1)

response.write "<table cellpadding=3 cellspacing=1 align=center class=tableborder1><tr><th valign=middle colspan=2 align=center height=25><b>风铃赌场</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 [student] where userid='"&membername&"'"
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("point") then
error2("你的校友录积分不够！")
end if
if dmoney<1 or dmoney>10 then
error2("输入错误！赌注范围1-10")
end if

if rs("point")<1 then
error2("您校友录积分太少了!晕吧~~")
end if
end sub



sub play()%>
<title>风铃赌场</title><BODY><br>







<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="114" id="AutoNumber1">
    <tr>
      <td width="30%" height="114" valign="top">
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="84%" height="229" id="AutoNumber1">
    <tr>
      <td width="100%" height="133" valign="top">
<%  
            
if trim(rs("realname"))<>"" then              
response.write "　您的姓名： "& RS("realname") &"<br>"              
end if              
              
response.write "　用 户 名： "& rs("userid") &"<br>"              
              
if rs("regdate")<>"" then              
response.write "　注册日期： "&rs("regdate")&"<br><br>"              
end if              
if rs("point")<10 then
response.write "　<font color='#FF0000'>您的校友录积分不足，攒够积分再来吧！</font><br>"
else
response.write "　可用赌注： <font color='#FF0000'>"&rs("point")&"　</font>分<br>"
end if    
if rs("classcount")<1 then
response.write "　<font color='#FF0000'>您还没有加入任何学校，加入您的学校再来吧！</font><br>"
else
response.write "　您已经加入：<font color='#FF0000'>"&rs("classcount")&" </font>个学校<br>"
end if
%> </td>
    </tr>
    <tr>
      <td width="100%" height="92"><font color="#FF0000">　赌场规矩：</font><br>
      　　①　赌注最小1最大10;<br>
      　　②　现时积分不足1不能参赌;<br>
      　　③　每次下注积分-1<br>
      <font color="#FF0000">　风铃校友录忠告：</font><br>
      　　赌博有百害而无一利，只可娱<br>
      　　乐切不可沉迷于其中。</td>
    </tr>
  </table>
  </center>
</div>
  

      </td>
      <td width="70%" height="114">
      <p align="center">

  <table width="7" 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" width="553">
  <table border="0" width="467" cellspacing="0" cellpadding="6" style="border-collapse: collapse" bordercolor="#111111"><tr>
            <td width="271" align="center" bgcolor="#C4D4E5"> <p>
            <img src="images/duchang_img/daxiao.gif" width="266" height="209" border="0"><br>
            </td>
            <td width="172" bgcolor="#ECF5FF" valign="middle"> <ul>
                <li><font color="#FF0000" class="c"><b>赌骰子</b></font> <a href="play.asp?menu=sz">现在进入&gt;&gt;</a>
                <br>
                <br>
                <br>
                  <br>
                <li><b><font color="#FF0000">赌大小</font></b> <a href="play.asp?menu=dx">现在进入&gt;&gt;</a><br>
                <br>
                <br>
                  <br>
                  </li>
                <li><b><font color="#FF0000">猜点数</font></b> <a href="play.asp?menu=ds">现在进入&gt;&gt;</a></li>
              </ul>
              </td></tr></table></td></tr></table>

      
      </td>
    </tr>
  </table>
  </center>
</div>
 <br>

<%end sub

sub dx()%>

<br>

<form method="POST" action="play.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="181" colspan="2">
  <font size="3" style="font-size: 9pt"><b>
&nbsp;赌　大　小</b></font></td>
  <td width="192" colspan="2"><p>最大下注是 <b><font color="#CC0000">
  10</font> 分</b></p>  
  </td>
</tr>
<tr align="center"><td width="99">
  <img src="images/duchang_img/run.gif" width="38" height="36"></td>
<td width="203" colspan="2">
<img src="images/duchang_img/run.gif" width="38" height="36"></td>
  <td width="100">
  <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="3" width="282">
  <input type="submit" value="下注啦！！！" name="B1" style="border:1px ridge #99CCFF; font-size: 12px; background-color:#FFFFFF">
  </td>
  <td align=center bgColor=#C4D4E5><a href="play.asp">返回赌场大厅</a></td>
</tr></table></center>
  </form><center>
警告：每次赌钱，您的积分会扣 <font color="#CC0000">1</font> ！ <br>
您现在一共有  <b><font color="#CC0000"><%=rs("point")%></font></b> <b>分</b> 可以作为赌注<br>

<%end sub

sub ds()%>
<style>input {  font-size: 9pt; color: #000000; background-color: #f7f7f7; padding-top: 3px}.tableBorder1{width:97%;

border: 1px; 

background-color: #009999;}TD{font-family: 宋体;

font-size: 12px;

line-height: 15px;}td.TableBody1{background-color: #E8F7F7;}</style>
</HEAD><BODY><br>
<form method="POST" action="play.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="173"><p align="center"> 
  <font size="3" style="font-size: 9pt"><b>猜　点　数</b></font></p>
  </td><td width="159">最大下注是 <b><font color="#CC0000">
  10</font> 分</b></td></tr>
<tr align="center"><td width="342" colspan="2"><img src="images/duchang_img/run.gif"></td></tr><tr>
<td bgcolor="#A4B6D7" width="342" colspan="2"><font style=font-size:9pt><b>&nbsp;&nbsp;请选择</b></font></td>
</tr><tr><td align=center width="342" colspan="2"><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 width="342" colspan="2">
  我要下注：
<input type="text" name="money" size="10" value="10"> &nbsp;<b> 分</b></td></tr><tr>
  <td align=center bgColor=#A4B6D7 width="174">
  <input type="submit" value="下注啦！！！" name="B1" style="border-style:ridge; border-width:1; font-size: 12px; background-color:#FFFFFF">
</td>
  <td align=center bgColor=#A4B6D7 width="161"><a href="play.asp">返回赌场大厅</a></td>
</tr></table>  </form>
警告：每次赌钱，您的积分会扣 <font color="#CC0000">1</font> ！<br>
您现在一共有 <b><font color="#CC0000"><%=rs("point")%></font> 分</b> 可以作为赌注
<br>
<%end sub

sub sz()%>
<form method="POST" action="play.asp?menu=sz1"><input type="hidden" name=menu value=szover>
<center>

<table borderColor="#a4b6d7" cellSpacing="0" width="400" border="1" height="54" style="border-collapse: collapse" cellpadding="6">
<tr align="center"><td width="179" colspan="2">
  <font size="3" style="font-size: 9pt"><b>
  &nbsp;</b></font><font style="FONT-SIZE: 9pt" size="3"><b>赌　骰　子</b></font></td>
  <td width="194" colspan="2"><p>最大下注是 <b><font color="#CC0000">
  10</font> 分</b></p>  
  </td>
</tr>
<tr align="center"><td width="386" colspan="4" bgcolor="#ECF5FF">
  <font color="#0000CC">□-庄家的骰子</font></td>
</tr>
<tr>
  <td width="33%" align="center">
  <img src="images/duchang_img/run.gif" height="36"></td>
<td width="33%" colspan="2" align="center">
<img src="images/duchang_img/run.gif" height="36"></td>
  <td width="33%" align="center">
  <img src="images/duchang_img/run.gif" height="36"></td>
</tr>
<tr>
  <td width="386" align="center" colspan="4" bgcolor="#ECF5FF">
  <font color="#CC0000">□-您的骰子</font></td>
</tr>
<tr>
  <td width="33%" align="center">
  <img src="images/duchang_img/run.gif" height="36"></td>
<td width="33%" colspan="2" align="center">
  <img src="images/duchang_img/run.gif" height="36"></td>
  <td width="33%" align="center">
  <img src="images/duchang_img/run.gif" height="36"></td>
</tr>
<tr>
  <td width="386" colspan="4" bgcolor="#ECF5FF">
  <p align="center">我要下注：
<input type="text" name="money" size="10" value="10"> <b> 分</b></td>
</tr>
<tr><td bgcolor="#C4D4E5" width="338" colspan="3">
  <p align="center">
  <input type="submit" value="下注啦！！！" name="B1" style="border-style:ridge; border-width:1; font-size: 12px; background-color:#FFFFFF"></td>
  <td bgcolor="#C4D4E5" width="100">
  <p align="center"><a href="play.asp">
  返回赌场大厅</a></td>
</tr>


</table>


</center>    
    

  </form>
警告：每次赌钱，您的积分会扣 <font color="#CC0000">1</font> ！<br>
您现在一共有 <b><font color="#CC0000"><%=rs("point")%></font> 分</b> 可以作为赌注

<%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="play.asp?menu=dx">再来，我今天运气不错耶~！</a></td></tr>
<tr><td align="right">　</td><td colspan="2"><a href=play.asp target=_top>见好就收，呵，您都傻的~！</a></td>
</tr></table>
<%
dmoney=rs("point")+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="play.asp?menu=dx">再来，呸，我就不相信这么倒霉~！</a></td>
</tr><tr><td align="right">　</td><td colspan="2"><a href=play.asp target=_top>今天真倒霉，不来了，下次再玩~！</a></td>
</tr></table>
<%
dmoney=rs("point")-dmoney
end if
rs("point")=dmoney
rs("point")=rs("point")-1
rs.update
%>
<hr width="250" SIZE="1">
您现在有：<b><%=rs("point")%></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=rs("point")+dmoney*5
%>
<tr><td colspan="2" align="center" bgcolor="#ECF5FF" width="392"> <br><p><font size="3">嘻嘻~，赢了： <b><font color="#CC0000"><%=request("money")*5%></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="play.asp?menu=ds">再来，我今天运气不错耶~！</a></td></tr>
<tr><td align="right">　</td><td colspan="2"><a href=play.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=play.asp?menu=ds>再来，呸，我就不相信这么倒霉~！</a></td>
</tr><tr><td align="right">　</td><td colspan="2"><a href=play.asp target=_top>今天真倒霉，不来了，下次再玩~！</a></td>
</tr></table>
<%
dmoney=rs("point")-dmoney
end if
rs("point")=dmoney
rs("point")=rs("point")-1
rs.update
%>
<hr width="250" SIZE="1">
您现在有：<b><font color="#CC0000"><%=rs("point")%></font></b> 分
<hr width="250" SIZE="1"></td></tr></table></center>
<font size="3"></font>
<%end sub

sub sz1()
dmoney=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="play.asp?menu=sz">再来，我今天运气不错耶~！</a></td></tr><tr><td align="right">　</td>
<td colspan="2">&nbsp;<a href=play.asp target=_top>见好就收，呵呵，走人咯~！</a></td></tr></table>
<%
dmoney=rs("point")+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="play.asp?menu=sz">再来，呸，我就不相信这么倒霉~！</a></td></tr><tr><td colspan="2">&nbsp;<a href=play.asp target=_top>今天真倒霉，走~了，下次再玩~！</a></td></tr></table>
</center>
<%
dmoney=rs("point")-dmoney
end if

rs("point")=dmoney
rs("point")=rs("point")-1
rs.update
%>
<hr size="1" width="250">
您现在有：<font color="#CC0000"><b><%=rs("point")%></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>"
end if
%>
<% 
call footer()  
%>



