<%'在線賭博押大
'# Copyright 2002 jxqy@21cn.com jjyy提供 - All Rights Reserved 
function xiazhu(fn1,from1)
if instr(fn1,"&")=0 or right(fn1,1)="&" then
Response.Write "<script language=JavaScript>{alert('操作錯誤，格式如下：[押操作&銀兩]');}</script>"
Response.End 
end if
if InStr(fn1,"'")<>0 or InStr(fn1,"`")<>0 or InStr(fn1,"=")<>0 or InStr(fn1,"-")<>0 or InStr(fn1,"六扇門")<>0 or InStr(fn1,"grade")<>0 or InStr(fn1,",")<>0 or InStr(fn1," ")<>0 or InStr(fn1,"and")<>0 or InStr(fn1,"or")<>0 or InStr(fn1," ")<>0 then 
Response.Write "<script language=JavaScript>{alert('你想搗亂嗎？');}</script>"
Response.End 
end if
zt=split(fn1,"&")
abcc=trim(zt(1))
for t=1 to len(abcc)
abc=mid(abcc,t,1)
if abc<>"0" and abc<>"1" and abc<>"2" and abc<>"3" and abc<>"4" and abc<>"5" and abc<>"6" and abc<>"7" and abc<>"8" and abc<>"9" then
Response.Write "<script language=JavaScript>{alert('["&abcc&"]操作錯誤，數量請使用數字！');}</script>"
Response.End 
end if
next
yacz=zt(0)
yinliang=abs(int(zt(1)))
select case yacz
case "大"
duboimg="<img src='dbimg/da.gif'>"
case "小"
duboimg="<img src='dbimg/xiao.gif'>"
case "單"
duboimg="<img src='dbimg/dan.gif'>"
case "雙"
duboimg="<img src='dbimg/shuang.gif'>"
case else
Response.Write "<script language=JavaScript>{alert('押操作為：大、小、單、雙！');}</script>"
Response.End 
end select
if yinliang<1000 or yinliang>100000 then
Response.Write "<script language=JavaScript>{alert('最少押：1000兩，最多10萬！');}</script>"
Response.End 
end if
'開始判斷
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("hg_connstr")
rs.open "select 銀兩 FROM 用戶 WHERE 姓名='"&from1&"'",conn
if rs("銀兩")<yinliang then
rs.close
set rs=nothing 
conn.close
set conn=nothing
Response.Write "<script language=JavaScript>{alert('你有這么多的錢嗎？');}</script>"
Response.End 
end if
rs.close
tmprs=conn.execute("Select count(*) As 數量 from 在線賭博 where 銀兩<>0")
durs=tmprs("數量")
if durs>=10 then
set tmprs=nothing
Response.Write "<script language=JavaScript>{alert('["&durs&"]再開局，稍后再下注！');}</script>"
else 
rs.open "select top 1 姓名 FROM 在線賭博 WHERE 身份='莊家'",conn
if rs.eof or rs.bof then
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Write "<script language=JavaScript>{alert('現在沒有莊家，不能在線賭博！');}</script>"
Response.End
end if
rs.close
rs.open "select top 1 * FROM 在線賭博 WHERE 姓名='"&from1&"'",conn
if not(rs.eof) or not(rs.bof) then
if rs("身份")="莊家" then
temp=from1&"現在你是家莊，你要搞什么呀!"
else
temp=from1&"你壓["&rs("押大小")&"]"&rs("銀兩")&"等著開吧！"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Write "<script language=JavaScript>{alert('"&temp&"');}</script>"
Response.End
end if
rs.close
conn.execute "update 用戶 set 銀兩=銀兩-"&yinliang&" where 姓名='"&from1&"'"
conn.execute "insert into 在線賭博(姓名,身份,銀兩,押大小,時間) values ('"&from1&"','玩家',"&yinliang&",'"&yacz&"',now())" 
tmprs=conn.execute("Select count(*) As 數量 from 在線賭博 where 押大小='大'")
dars=tmprs("數量")
tmprs=conn.execute("Select count(*) As 數量 from 在線賭博 where 押大小='小'")
xiaors=tmprs("數量")
tmprs=conn.execute("Select count(*) As 數量 from 在線賭博 where 押大小='單'")
danrs=tmprs("數量")
tmprs=conn.execute("Select count(*) As 數量 from 在線賭博 where 押大小='雙'")
shuangrs=tmprs("數量")
tmprs=conn.execute("Select count(*) As 數量 from 在線賭博 where 銀兩<>0")
durs=tmprs("數量")
end if
'開局了
if durs>=10 then
Randomize
m1 = Int(6 * Rnd + 1)
Randomize
m2 = Int(6 * Rnd + 1)
Randomize
m3 = Int(6 * Rnd + 1)
sjdubo=m1+m2+m3
'查找莊家
rs.open "select * FROM 在線賭博 WHERE 身份='莊家'",conn
zhuangjia=rs("姓名")
rs.close
'豹子處理
if m1=m2 and m2=m3 and m3=m1 then
rs.open "select * FROM 在線賭博 WHERE 銀兩<>0 and 身份<>'莊家'",conn
yingyin=0
do while not rs.bof and not rs.eof
yingyin=yingyin+rs("銀兩")
rs.movenext
loop
rs.close
conn.execute "update 用戶 set 存款=存款+"&yingyin&" where 姓名='"&zhuangjia&"'"
xiazhu="【開局】莊家開：<img src='dbimg/"&m1&".gif'><img src='dbimg/"&m2&".gif'><img src='dbimg/"&m3&".gif'>計："& sjdubo &"點!莊家開出豹子……通殺！莊家："&zhuangjia&"收入："&yingyin&"兩！"
set rs=nothing
conn.close
set conn=nothing
exit function
end if
'初始化數據
shuangyinliang=0
shuangname=""
danyinliang=0
danname=""
xiaoyinliang=0
xiaoname=""
dayinliang=0
daname=""
'開單雙處理
if sjdubo/2=int(sjdubo/2) then
danshuang="<img src='dbimg/shuang.gif'>"
rs.open "select * FROM 在線賭博 WHERE 押大小='雙'",conn
do while not rs.bof and not rs.eof
shuangyinliang=shuangyinliang+rs("銀兩")
shuangname=shuangname&rs("姓名")&" "
conn.execute "update 用戶 set 存款=存款+"&rs("銀兩")*2&" where 姓名='"&rs("姓名")&"'"
conn.execute "update 用戶 set 存款=存款-"& rs("銀兩")&" where 姓名='"&zhuangjia&"'" 
rs.movenext
loop
rs.close
conn.execute "delete * from 在線賭博 where 押大小='雙'"
else
danshuang="<img src='dbimg/dan.gif'>"
rs.open "select * FROM 在線賭博 WHERE 押大小='單'",conn
do while not rs.bof and not rs.eof
danyinliang=danyinliang+rs("銀兩")
danname=danname&rs("姓名")&" "
conn.execute "update 用戶 set 存款=存款+"&rs("銀兩")*2&" where 姓名='"&rs("姓名")&"'"
conn.execute "update 用戶 set 存款=存款-"& rs("銀兩") &" where 姓名='"&zhuangjia&"'" 
rs.movenext
loop
rs.close
conn.execute "delete * from 在線賭博 where 押大小='單'"
end if
'對開大小處理
if sjdubo<=10 then
daxiao="<img src='dbimg/xiao.gif'>"
rs.open "select * FROM 在線賭博 WHERE 押大小='小'",conn
do while not rs.bof and not rs.eof
xiaoyinliang=xiaoyinliang+rs("銀兩")
xiaoname=xiaoname&rs("姓名")&" "
conn.execute "update 用戶 set 存款=存款+"&rs("銀兩")*2&" where 姓名='"&rs("姓名")&"'"
conn.execute "update 用戶 set 存款=存款-"& rs("銀兩") &" where 姓名='"&zhuangjia&"'"
rs.movenext 
loop
rs.close
conn.execute "delete * from 在線賭博 where 押大小='小'"
else
daxiao="<img src='dbimg/da.gif'>"
rs.open "select * FROM 在線賭博 WHERE 押大小='大'",conn
do while not rs.bof and not rs.eof
dayinliang=dayinliang+rs("銀兩")
daname=daname&rs("姓名")&" "
conn.execute "update 用戶 set 存款=存款+"&rs("銀兩")*2&" where 姓名='"&rs("姓名")&"'"
conn.execute "update 用戶 set 存款=存款-"& rs("銀兩") &" where 姓名='"&zhuangjia&"'" 
rs.movenext
loop
rs.close
conn.execute "delete * from 在線賭博 where 押大小='大'"
end if
'對剩下輸的用戶銀兩
rs.open "select * FROM 在線賭博 WHERE 銀兩<>0 and 身份<>'莊家'",conn
yingyin=0
do while not rs.bof and not rs.eof
yingyin=yingyin+rs("銀兩")
rs.movenext
loop
rs.close
conn.execute "update 用戶 set 存款=存款+"&yingyin&" where 姓名='"&zhuangjia&"'"
conn.execute "delete * from 在線賭博 where 姓名<>''"
zong=yingyin+shuangyinliang+danyinliang+xiaoyinliang+dayinliang
pei=shuangyinliang+danyinliang+xiaoyinliang+dayinliang
'shuangyinliang=0
'shuangname=""
'danyinliang=0
'danname=""
'xiaoyinliang=0
'xiaoname=""
'dayinliang=0
'daname=""
duboname=shuangname&danname&xiaoname&daname
xiazhu="【開局】莊家開：<bgsound src=dbimg/faqian.wav loop=1><img src='dbimg/"&m1&".gif'><img src='dbimg/"&m2&".gif'><img src='dbimg/"&m3&".gif'>計："& sjdubo &"點!"&danshuang&daxiao&"總下注："&zong&"兩，莊家：["&zhuangjia&"]收入："&yingyin&"兩,賠出："&pei&"兩，合計："&yingyin-pei&"兩,共有：<font color=red>"&duboname&"</font>玩家幸運押中！"
set rs=nothing
conn.close
set conn=nothing
exit function
end if
xiazhu="【下注】["&from1&"]從自己的小荷包里拿出:"&yinliang&"兩，我買"&duboimg&"！，一定中的！現在下注如下：押大："&dars&"個，押小:"&xiaors&"個,押單："&danrs&"個,押雙:"&shuangrs&"個！還差:"&(10-durs)&"個開局！"
set rs=nothing 
conn.close
set conn=nothing
end function
%>