duchang.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

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)
%>