duchang.asp

一个功能很全面的设计网站,可以作为工作室、个人主页、技术网站等

zds="小"
zdss="small"
end if
%>
<center><font style=font-size:9pt><b><font color="#0000CC">您押的是</font><br><font color="#CC0000"></font><font color="#CC0000">
</font></b></font><img src=images/duchang/<%=ds%>.gif><font style=font-size:9pt><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><b>结果:</b></font><b><%=zs%>点，<%=zds%></b></td>
</tr><tr><td width="33%" align="center" bgcolor="#ECF5FF"><img src=images/duchang/<%=d1%>.gif></td>
  <td width="33%" align="center" bgcolor="#ECF5FF"><img src=images/duchang/<%=d2%>.gif></td>
<td width="34%" align="center" bgcolor="#ECF5FF"><img src=images/duchang/<%=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"><%=dmark%></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>
<%dmark=int(rs("mark"))+int(dmark)
else%>
<p><font size="3">真倒霉，输了： <b><font color="#CC0000"><%=dmark%></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>
<%
dmark=int(rs("mark"))-int(dmark)
end if
rs("mark")=int(dmark)
rs.update
%>
<hr width="250" SIZE="1" color=<%=c1%>>
您现在有积分：<b><%=rs("mark")%></b>点
<hr width="250" SIZE="1" color=<%=c1%>></td></tr></table></center><font size="3"></font>
<%end sub
sub ds1()
dmark=request("money")
if not isnumeric(dmark) then call errmsg("请输入数字，谢谢",comeurl)
dmark=int(dmark)
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><b>您押的是</b></font></td>
  <td align="center" bgcolor="#A4B6D7"><font><b>结果:</b></font><b><%=d1%>点</b></td>
</tr><tr><td align="center"><img src="images/duchang/<%=ds%>.gif"></td>
  <td align="center"><Img src="images/duchang/<%=d1%>.gif">
</span></a></td></tr>
<%
if ds=d1 then
dmark=int(rs("mark"))+int(dmark)*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="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"><%=int(dmark)%></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>
<%
dmark=int(rs("mark"))-int(dmark)
end if
rs("mark")=int(dmark)
rs.update
%>
<hr width="250" SIZE="1" color=<%=c1%>>
您现在有积分：<b><font color="#CC0000"><%=rs("mark")%></font></b>:点
<hr width="250" SIZE="1" color=<%=c1%>></td></tr></table></center>
<font size="3"></font>
<%end sub
sub sz1()
dmark=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><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/<%=d1%>.gif></td>
<td align="center" height="30"><img src=images/duchang/<%=d2%>.gif></td>
  <td align="center" height="30"><img src=images/duchang/<%=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/<%=b1%>.gif></td>
<td align="center" height="30"><img src=images/duchang/<%=b2%>.gif></td>
  <td align="center" height="30"><img src=images/duchang/<%=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"><%=dmark%></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">&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>
<%dmark=int(rs("mark"))+int(dmark)
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"><%=dmark%></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>&nbsp;<a href="duchang.asp?menu=sz">再来，呸，我就不相信这么倒霉~！</a></td></tr><tr><td align=right></td><td colspan=2><a href=duchang.asp target=_top>今天真倒霉，不来了，下次再玩~！</a></td></tr></table>
</center>
<%dmark=int(rs("mark"))-int(dmark)
end if
rs("mark")=int(dmark)
rs.update
%><hr size="1" width="250" color=<%=c1%>>
您现在有积分：<font color="#CC0000"><b><%=rs("mark")%></b></font><b>点
<hr size="1" width="250"></td></tr></table></center>
<%end sub
rs.close
response.write "</CENTER></td></tr></table>"
end if
function isInteger(para)
       on error resume next
       dim str
       dim l,i
       if isNUll(para) then 
          isInteger=false
          exit function
       end if
       str=cstr(para)
       if trim(str)="" then
          isInteger=false
          exit function
       end if
       l=len(str)
       for i=1 to l
           if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
              isInteger=false 
              exit function
           end if
       next
       isInteger=true
       if err.number<>0 then err.clear
end function
sub errmsg(message,url)
%><script language=vbscript>
msgbox "<%=message%>",16,"出错提示！！"
location.href="<%=url%>"
</script>
<%response.end
end sub
%><hr color=<%=c1%> size=1 width=750 >
<%
call down
closedb
%>