jjyy.asp

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

<%'在线赌博
function dubo(fn1,from1)
fn1=trim(fn1)
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
if Session("hxf_u_grade")<5 then
Response.Write "<script language=JavaScript>{alert('等级不够5级，不可以作庄的！');}</script>"
Response.End 
end if
select case fn1
case "作庄"
f=Minute(time())
if f<30 then
Response.Write "<script language=JavaScript>{alert('现在不能赌博，赌博时间为每小时的后30分钟!');}</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("存款")<1000000 then
rs.close
set rs=nothing 
conn.close
set conn=nothing
Response.Write "<script language=JavaScript>{alert('你的存款不够100万，不能作庄！');}</script>"
Response.End 
end if
rs.close
rs.open "select top 1 姓名 FROM 在线赌博 WHERE 身份='庄家'",conn
if not(rs.eof) or not(rs.bof) then
Response.Write "<script language=JavaScript>{alert('现在["&rs("姓名")&"]为庄家,你不能作庄！');}</script>"
rs.close
set rs=nothing 
conn.close
set conn=nothing
Response.End 
end if
conn.execute "insert into 在线赌博(姓名,身份,银两,押大小,时间) values ('"&from1&"','庄家',0,'庄',now())" 
rs.close
set rs=nothing 
conn.close
set conn=nothing
Application.Lock
Application("hxf_u_dubozhang")=from1
Application.UnLock
dubo="<img src='dbimg/sz.gif'><font color=red><bgsound src=dbimg/faqian.wav loop=1>【作庄】["&from1&"]在E缘赌场申请作庄成功，现在大家可以狂赌一把了,快来快来呀……</font>"
case "吆喝"
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj=s & ":" & f & ":" & m
sj2=n & "-" & y & "-" & r & " " & sj
if DateDiff("s",Session("hxf_u_lasttime"),sj2)<10 then
Response.Write "<script language=JavaScript>{alert('请等10秒后再吆喝！');}</script>"
Response.End
end if
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("hg_connstr")
tmprs=conn.execute("Select count(*) As 数量 from 在线赌博 where 银两<>0")
durs=tmprs("数量")
rs.open "select top 1 姓名 FROM 在线赌博 WHERE 身份='庄家' and 姓名='"&from1&"'",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
set rs=nothing 
conn.close
set conn=nothing
dubo="<img src='dbimg/sz.gif'><font color=red>【吆喝】庄家:["&from1&"]叫到：买得多赢得多，买得少赢得少！买了您后悔(怎么不多买点呀!)不买您更后悔(要买就中了)，还有:"&(10-durs)&"个下注位开局……</font>"
case else
Response.Write "<script Language=Javascript>alert('您输入的命令错误，电脑无法识别！');</script>"
response.end
end select
end function%>