<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->
<% Call head()
Call cardgame("俄罗斯转盘赌",yanse10)
Function CreatedTextFiles(FileName,body)
'On Error Resume Next
If InStr(FileName, ":") = 0 Then FileName = Server.MapPath(FileName)
	Dim oStream
	Set oStream = CreateObject("ADODB.Stream")
	oStream.Type = 2 
	oStream.Mode = 3 
	oStream.Charset = "GB2312"
	oStream.Open
	oStream.Position = oStream.Size
	oStream.WriteText body
	oStream.SaveToFile FileName, 2
	oStream.Close
	Set oStream = Nothing
	If Err.Number <> 0 Then Err.Clear
	End Function
'================================================
dim cont_file,path_File
path_File= Server.MapPath("/index.inc")
cont_file="[url=/bbs/uinfo.asp?id="&myid&"&sid=@@sid@@]"&myni&"[/url]在玩[url=/bbs/game/hhlp.asp?sid=@@sid@@]黑红转盘赌[/url]"
Call CreatedTextFiles(path_File,cont_file)

dim pg
pg=Request("pg")
if pg="" then
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 ""
Response.write "【黑红转盘赌】<br/>"
Response.write "游戏开发中"
Response.write "<a href=""hhlp.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;pg=sm"">说明</a><br/>"
'Response.write "奖金高达64倍！<br/>"
'Response.write "您有"&myjb&getcent&"<br/>"
'Response.write "押金:<input name=""num"" format=""*N"" emptyok=""true"" maxlength=""4"" value=""10""/><br/>"
'Response.write "数字:<input name=""num1"" format=""*N"" emptyok=""true"" maxlength=""2"" value=""0""/><br/>"
'Response.write "<anchor>开始摇奖<go method=""post"" href='zpcl.asp?sid="&sid&"&amp;saytk="&saytk&"'>"
'Response.write "<postfield name=""num"" value=""$(num)""/>"
'Response.write "<postfield name=""num1"" value=""$(num1)""/>"
'Response.write "</go></anchor><br/>"
else
'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 "游戏开发中<br/>"

'Response.write "俄罗斯转盘赌规则:<br/>"
'Response.write "1.您在“金额”栏输入您的押注金额<br/>"
'Response.write "2.您在“数字”栏输入你猜测的数值1~64<br/>"
'Response.write "3.下注金额最高为500金币,最低为10金币<br/>"
'Response.write "4.选择后,进入本局的开奖结果页面.如果您猜对了,将会获得您押注金额的64倍奖金（如您押注10豆,将获得640金币）；如果猜错了,您押注的金额将被扣除<br/>"
'Response.write "注意,您的帐户中的金币必须大于或者等于押注金额,否则无法进行游戏<br/>"
'Response.write "再次提醒您,此游戏纯属娱乐,请勿沉迷<br/>"
'Response.write "奖金高达64倍！<br/>"
'Response.write "返回【<a href=""zp.asp?sid="&sid&"&amp;saytk="&saytk&""">俄罗斯转盘赌</a>】<br/>"
end if
response.write "<br/>--------<br/>"
Response.write "<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>"
'(c) "&Request.ServerVariables("SERVER_NAME")&"["&String(2-Len(hour(now)),"0") & hour(now) &":"&String(2-len(minute(now)),"0") & minute(now)&"]"
response.write"<br/>"&zqfjs&""
Call head1()
%>
