5.asp

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

<%
'警告
function jing(fn1,from1,to1)
fn1=trim(fn1)
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
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
	sql="SELECT 门派 FROM 用户 WHERE 姓名='" & from1 & "' and 门派='六扇门'"
	Set Rs=conn.Execute(sql)
	if rs.eof or rs.bof then
Response.Write "<script language=JavaScript>{alert('你不是网管!');}</script>"
Response.End
	else
		jing="<font color=red><b>[江湖]严肃地对[<a href=javascript:parent.sw('["&to1&"]'); target=f2>" & to1 & "</a>]说：" & fn1 & "!["&from1&"] </b></font>"
	end if
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
end function
%>