jieyaxue.asp

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

<%
'解哑穴
function jiexue(fn1,from1,to1)
if InStr(fn1,"'")<>0 or InStr(fn1,"`")<>0 or InStr(fn1,"=")<>0 or InStr(fn1,"-")<>0 or InStr(fn1,",")<>0 then 
Response.Write "<script language=JavaScript>{alert('你想做什么？想捣乱吗？！');}</script>"
Response.End
exit function
end if
if to1="大家" or to1=from1 or to1="网佳" then 
Response.Write "<script language=JavaScript>{alert('〖"&from1&"〗不能对自己、大家和站长使用解哑穴!');}</script>"
exit function
end if
if fn1="" then
Response.Write "<script language=JavaScript>{alert('〖"&from1&"〗说个[解哑穴]的原因好吗?格式:/点哑穴 学乖了 听话了...!');}</script>"
exit function
end if
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
sql="SELECT allvalue FROM 用户 WHERE 姓名='" & from1 & "'"
Set Rs=conn.Execute(sql)
zd_dj=int(rs("allvalue")/1000)
if zd_dj>99 then zd_dj=99
if zd_dj<10 then
Response.Write "<script language=JavaScript>{alert('〖"&from1&"〗你的战斗等级低于10级，不能给任何人解穴，请抓紧泡点，每1000点为一个等级!');}</script>"
exit function
end if
if Instr(LCase(application("jiutian_dianyaxue")),LCase(to1))=0 then
Response.Write "<script language=JavaScript>{alert('〖"&to1&"〗没有被点哑穴，你没有必要操心了!');}</script>"
exit function
end if
sql="SELECT allvalue FROM 用户 WHERE 姓名='" & to1 & "'"
Set Rs=conn.Execute(sql)
zd_dj1=int(rs("allvalue")/1000)
if zd_dj1>99 then zd_dj1=99
pp=zd_dj1-zd_dj
if PP>10 then
Response.Write "<script language=JavaScript>{alert('〖"&to1&"〗你的战斗等级与"&to1&"相差10级以上,根本就解不了他的哑穴啊,等他自己冲开穴道吧!');}</script>"
set rs=nothing 
set conn=nothing
exit function
end if
application("jiutian_dianyaxue")=replace(application("jiutian_dianyaxue"),to1,"")
jiexue=from1& "耗费了内力2万，经验1万，对" & to1 & "的哑穴一指，" & to1 & "猛然醒悟过来，哑穴被解开了,原因是"&fn1
sql="update 用户 set 内力=内力-20000,经验=经验-10000 where 姓名='" & from1 & "'"
conn.execute sql               
rs.close
conn.close
set rs=nothing 
set conn=nothing
end function
%>