<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->
<%Call head()
Call saycarda("俄罗斯转盘赌")
Response.write "<a href=""/index.asp?sid="&sid&"&amp;saytk="&saytk&""">主页</a>—"
Response.write "<a href=""index.asp?sid="&sid&"&amp;saytk="&saytk&""">游戏</a>-俄罗斯转盘赌<br/>"
Response.write "奖金高达64倍！<br/>"
Response.write "返回【<a href=""zp.asp?sid="&sid&"&amp;saytk="&saytk&""">俄罗斯转盘赌</a>】<br/>"
dim num,num1,jb,dx
num=Request("num")
num1=Request("num1")
if num="" or num=<9 or IsNumeric(num)=False then
  Call Error("押金无效！不能为空或小于10")
  end if
num=clng(num)
if num>500 then 
  Call Error("押金最高500,大赌伤身呀！")
  end if
if myjb<num then

  Call Error("不好意思！你的"&getcent&"不够啊！")
  end if

if num1<1 or num1>64 then 
  Call Error("数字无效！必须1-64中的数字")
  end if
Function RndNumber(Min,Max) 
Randomize 
RndNumber=Int((Max - Min + 1) * Rnd() + Min) 
End Function 
dx=RndNumber(1,64)
jb=clng(num*64)
if clng(dx)=clng(num1) then 
response.write "你好厉害，中奖啦"

       conn.Execute("update users set myjb=myjb+"&jb&" where id="&myid)

response.write "恭喜您，中奖啦！<br/>奖金:"&j&""
response.write "开奖结果:"&dx&"<br/>本次奖金:"&jb&"<br/>"
response.write "你的投注数字为:"&num1&"<br/>"
else
response.write "开奖结果:"&dx&"<br/>本次奖金:"&jb&"<br/>"
response.write "你的投注数字为:"&num1&"<br/>"
response.write "很遗憾，你没有没有中奖！<br/>扣除血本:"&num&getcent&"<br/>"
       conn.Execute("update users set myjb=myjb-"&num&" where id="&myid)
end if
response.write "--------<br/>"
Response.write "<a href=""zp.asp?sid="&sid&"&amp;saytk="&saytk&""">继续游戏</a>"
Response.write "<br/><a href=""index.asp?sid="&sid&"&amp;saytk="&saytk&""">返回娱乐游戏中心</a><br/>"
Response.write "<a href=""../show.asp?sid="&sid&"&amp;saytk="&saytk&""">空间</a>&gt;&gt;<a href=""/bbs/index.asp?sid="&sid&"&amp;saytk="&saytk&""">社区</a>>>"
Response.write "<a href=""/index.asp?sid="&sid&"&amp;saytk="&saytk&""">首页</a><br/>(c) "&Request.ServerVariables("SERVER_NAME")&"["&String(2-Len(hour(now)),"0") & hour(now) &":"&String(2-len(minute(now)),"0") & minute(now)&"]"
Call headsay()
%>