jjyy1.asp

网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点：无须安装客户端] 主要功能模块：管理 公文 车辆 通知 档案 值班 人事 审批 仓库 主界面 软件下载 个人办公室

<%'在线赌博押大
'# Copyright 2002 [e-mail] 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
%>