dianyaxue.asp

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

<%
'点哑穴
function yaxue(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
f=Minute(time())
if f<20 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)
ljlmp=rs("门派")
if zd_dj1>99 then zd_dj1=99
pp=zd_dj1-zd_dj
if PP>20 or ljlmp="六扇门" then
Response.Write "<script language=JavaScript>{alert('〖"&from1&"〗你的战斗等级比"&to1&"的相差超过了20级或者对方是官府的人,根本就封不了他的哑穴啊!');}</script>"
set rs=nothing 
set conn=nothing
exit function
end if
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
Application.Lock
application("jiutian_dianyaxue")=application("jiutian_dianyaxue")&to1&"_"&sj2&"_"&";"
Application.UnLock
yaxue=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
%>