📄 ddjb.asp

📁 网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点：无须安装客户端] 主要功能模块：管理公文车辆通知档案值班人事审批仓库主界面软件下载个
💻 ASP
字号:
<%Response.Buffer=true
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = 0
nickname=Session("hxf_u_nickname")
if nickname="" or session("hxf_u_inthechat")<>"1" or Application("hxf_c_duidu")="" then Response.end
name=LCase(trim(request.querystring("name")))
to1=LCase(trim(request.querystring("to1")))
zt=LCase(trim(request.querystring("zt")))
dd=LCase(trim(request.querystring("dd")))
fn1=abs(int(request.querystring("fn1")))
for each element in request.querystring
if instr(element,"=")<>0 or instr(element,".")<>0 or instr(element,"'")<>0 or instr(element,"|")<>0 or instr(element," ")<>0 or instr(Request.Form(element),"'")<>0 or instr(Request.Form(element)," ")<>0 or instr(Request.Form(element),"|")<>0 then 
		Response.Write "<script Language=Javascript>alert('你想捣乱是吗，给我滚吧！');</script>"
		Response.End
end if
next
'判断对赌是否合法
dui=split(Application("hxf_c_duidu"),"|")
fn2=abs(int(dui(2)))
if to1<>nickname or dui(0)<>nickname or dui(3)<>name then
		Response.Write "<script Language=Javascript>alert('提示：人家也不是要与你对赌你筹什么趣！');</script>"
		Response.End
end if
if fn2<>fn1 or dui(0)<>nickname or dui(3)<>name or dui(4)<>dd Then
		Response.Write "<script Language=Javascript>alert('你想作弊吗？滚……！');</script>"
		Response.End
end if
if zt="赌就赌" then
select case dd
'对赌金币
case "金币"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("hg_connstr")
rs.open "select 金币 from 用户 where 姓名='"&nickname&"' and 金币>="&fn1,conn,1,1
If Rs.Bof or Rs.Eof then
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
	Response.Write "<script language=JavaScript>{alert('提示：你的金币不够，对赌失败！');}</script>"
	Response.End
end if
rs.close
rs.open "select 金币 from 用户 where 姓名='"&name&"' and 金币>="&fn1,conn,1,1
If Rs.Bof or Rs.Eof then
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
	Response.Write "<script language=JavaScript>{alert('提示：["&name&"]身上金币不够，对赌失败！');}</script>"
	Response.End
end if
randomize()
m1 = Int(6 * Rnd + 1)
m11 = Int(6 * Rnd + 1)
m2 = Int(6 * Rnd + 1)
m22 = Int(6 * Rnd + 1)
m3 = Int(6 * Rnd + 1)
m33 = Int(6 * Rnd + 1)
myds=m11+m22+m33
tods=m1+m2+m3
if myds<>tods then
	if myds>tods then
		temp="<font color=FF00FF>【对赌金币】</font>[<font color=red>"&nickname&"</font>]摇出:<img src='dbimg/"&m11&".gif'><img src='dbimg/"&m22&".gif'><img src='dbimg/"&m33&".gif'>"&myds&"点,[<font color=red>"&name&"</font>]摇出:<img src='dbimg/"&m1&".gif'><img src='dbimg/"&m2&".gif'><img src='dbimg/"&m3&".gif'>"&tods&"点，[<b><font color=red>"&nickname&"</font></b>]赢了<font color=red><b>"&fn1&"</b></font>个金币！"
		conn.execute "update 用户 set 金币=金币+" & fn1 & " where 姓名='"&nickname&"'"		
		conn.execute "update 用户 set 金币=金币-" & fn1 & " where 姓名='"&name&"'"		
	else
		temp="<font color=FF00FF>【对赌金币】</font>[<font color=red>"&nickname&"</font>]摇出:<img src='dbimg/"&m11&".gif'><img src='dbimg/"&m22&".gif'><img src='dbimg/"&m33&".gif'>"&myds&"点,[<font color=red>"&name&"</font>]摇出:<img src='dbimg/"&m1&".gif'><img src='dbimg/"&m2&".gif'><img src='dbimg/"&m3&".gif'>"&tods&"点，[<b><font color=red>"&name&"</font></b>]赢了<font color=red><b>"&fn1&"</b></font>个金币！"
		conn.execute "update 用户 set 金币=金币-" & fn1 & " where 姓名='"&nickname&"'"
		conn.execute "update 用户 set 金币=金币+" & fn1 & " where 姓名='"&name&"'"
	end if
else
    temp="<font color=FF00FF>【对赌金币】</font>[<font color=red>"&nickname&"</font>]摇出:<img src='dbimg/"&m11&".gif'><img src='dbimg/"&m22&".gif'><img src='dbimg/"&m33&".gif'>"&myds&"点,[<font color=red>"&name&"</font>]摇出:<img src='dbimg/"&m1&".gif'><img src='dbimg/"&m2&".gif'><img src='dbimg/"&m3&".gif'>"&tods&"点，<font color=red><b>平手</b></font>!伟大的思想总是不谋而合……"
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
'对赌经验
case "经验"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("hg_connstr")
rs.open "select 经验 from 用户 where 姓名='"&nickname&"' and 经验>="&fn1,conn,1,1
If Rs.Bof or Rs.Eof then
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
	Response.Write "<script language=JavaScript>{alert('提示：你的经验不够，对赌失败！');}</script>"
	Response.End
end if
rs.close
rs.open "select 经验 from 用户 where 姓名='"&name&"' and 经验>="&fn1,conn,1,1
If Rs.Bof or Rs.Eof then
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
	Response.Write "<script language=JavaScript>{alert('提示：["&name&"]身上经验不够，对赌失败！');}</script>"
	Response.End
end if
randomize()
m1 = Int(6 * Rnd + 1)
m11 = Int(6 * Rnd + 1)
m2 = Int(6 * Rnd + 1)
m22 = Int(6 * Rnd + 1)
m3 = Int(6 * Rnd + 1)
m33 = Int(6 * Rnd + 1)
myds=m11+m22+m33
tods=m1+m2+m3
if myds<>tods then
	if myds>tods then
		temp="<font color=FF00FF>【对赌经验】</font>[<font color=red>"&nickname&"</font>]摇出:<img src='dbimg/"&m11&".gif'><img src='dbimg/"&m22&".gif'><img src='dbimg/"&m33&".gif'>"&myds&"点,[<font color=red>"&name&"</font>]摇出:<img src='dbimg/"&m1&".gif'><img src='dbimg/"&m2&".gif'><img src='dbimg/"&m3&".gif'>"&tods&"点，[<b><font color=red>"&nickname&"</font></b>]赢了<font color=red><b>"&fn1&"</b></font>点经验！"
		conn.execute "update 用户 set 经验=经验+" & fn1 & " where 姓名='"&nickname&"'"		
		conn.execute "update 用户 set 经验=经验-" & fn1 & " where 姓名='"&name&"'"		
	else
		temp="<font color=FF00FF>【对赌经验】</font>[<font color=red>"&nickname&"</font>]摇出:<img src='dbimg/"&m11&".gif'><img src='dbimg/"&m22&".gif'><img src='dbimg/"&m33&".gif'>"&myds&"点,[<font color=red>"&name&"</font>]摇出:<img src='dbimg/"&m1&".gif'><img src='dbimg/"&m2&".gif'><img src='dbimg/"&m3&".gif'>"&tods&"点，[<b><font color=red>"&name&"</font></b>]赢了<font color=red><b>"&fn1&"</b></font>点经验！"
		conn.execute "update 用户 set 经验=经验-" & fn1 & " where 姓名='"&nickname&"'"
		conn.execute "update 用户 set 经验=经验+" & fn1 & " where 姓名='"&name&"'"
	end if
else
    temp="<font color=FF00FF>【对赌经验】</font>[<font color=red>"&nickname&"</font>]摇出:<img src='dbimg/"&m11&".gif'><img src='dbimg/"&m22&".gif'><img src='dbimg/"&m33&".gif'>"&myds&"点,[<font color=red>"&name&"</font>]摇出:<img src='dbimg/"&m1&".gif'><img src='dbimg/"&m2&".gif'><img src='dbimg/"&m3&".gif'>"&tods&"点，<font color=red><b>平手</b></font>!伟大的思想总是不谋而合……"
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
Case else
	Response.Write "<script Language=Javascript>alert('你想作弊吗？滚……！');</script>"
	Response.End
end select
else
    temp="<font color=FF00FF>【拒绝对赌】</font>[<font color=red>"&nickname&"</font>]竟然拒绝了[<font color=red>"&name&"</font>]的对赌请求，真是懦夫一个！"
end if
Application.Lock
    Application("hxf_c_duidu")=""
	sd=Application("hxf_c_sd")
	line=int(Application("hxf_c_line"))
	Application("hxf_c_line")=line+1
	for i=1 to 171
	  sd(i)=sd(i+9)
	next
	sd(172)=line
	sd(173)=1
	sd(174)=0
    sd(175)=name
    sd(176)=nickname
	sd(177)="660099"
	sd(178)="660099"
	sd(179)="对"
	sd(180)=temp
	Application("hxf_c_sd")=sd
Application.UnLock
%>
💿 文件大小 2458 K
👤 上传用户 C69222090
📂 所属分类 OA系统
🏷️ 相关标签

#网络 #模式 #无纸化
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -