jrss.asp

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

<%
'加入天网
function jrtw(from1)  
if session("hxf_u_grade")<8 then
        join="<font color=00000>〖<a href=javascript:parent.sw('["&from1&"]'); target=f2>" & from1 & "</a>〗</font>,你的等级太低了，要8级才能加入天网组织！"
Response.End
exit function
end if	
Set cn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
datestr=Application("hg_connstr")
cn.open datestr
sql="SELECT 武功,攻击 FROM 用户 WHERE 姓名='" & from1 & "'"
Set Rs=cn.Execute(sql)
if rs("武功")<500000 or rs("攻击")<8000000 then
Response.Write "<script language=JavaScript>{alert('武功50万,攻击800万以上才能申请杀手');}</script>"
Response.End
exit function
end if	
jrtw="〖<a href=javascript:parent.sw('["&from1&"]'); target=f2>" & from1 & "</a>〗你成功加入了我们庞大的天网杀人组织，现在你的任务就是收人钱财，替人消灾!"
sql="update 用户 set 门派='天网', 身份='杀手' where 姓名='" & from1 & "'"
cn.execute sql
session("mypai")="天网"
onlinelist=Application("hxf_c_onlinelist")
ubl=UBound(onlinelist)
for i=1 to ubl step 6
if onlinelist(i+1)=from1 then onlinelist(i+3)="天网"
next
APPlication("hxf_c_onlinelist")=onlinelist
cn.close		
set cn=nothing
end function
%>