func.asp

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

<%
function isin(name)
if Not(towho="大家" or Instr(Application("hxf_c_useronlinename")," "&towho&" ")<>0) then
isin=999
end if
end function
sub boot(to1)
Application.Lock
onlinelist=Application("hxf_c_onlinelist")
dim newonlinelist()
useronlinename=""
onliners=0
js=1
for i=1 to UBound(onlinelist) step 6
 if CStr(onlinelist(i+1))<>CStr(to1) then
  onliners=onliners+1
  useronlinename=useronlinename & " " & onlinelist(i+1)
  Redim Preserve newonlinelist(js),newonlinelist(js+1),newonlinelist(js+2),newonlinelist(js+3),newonlinelist(js+4),newonlinelist(js+5)
  newonlinelist(js)=onlinelist(i)
  newonlinelist(js+1)=onlinelist(i+1)
  newonlinelist(js+2)=onlinelist(i+2)
  newonlinelist(js+3)=onlinelist(i+3)
  newonlinelist(js+4)=onlinelist(i+4)
  newonlinelist(js+5)=onlinelist(i+5)
  js=js+6
 else
  kickip=onlinelist(i+2)
 end if
next
useronlinename=useronlinename&" "
if kickip<>"" then
 if onliners=0 then
  dim listnull(0)
  Application("hxf_c_onlinelist")=listnull
 else
  Application("hxf_c_onlinelist")=newonlinelist
 end if
 Application("hxf_c_useronlinename")=useronlinename
 Application("hxf_c_chatrs")=onliners
else
 Application.UnLock
 Response.Redirect "manerr.asp?id=204&kickname=" & server.URLEncode(kickname)
end if
Application.UnLock
end sub
 Function SqlStr(data)
 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
t=s & ":" & f & ":" & m
sj=n & "-" & y & "-" & r & " " & t
  SqlStr="'" & Replace(data,"'","''") & "'"
 End Function
%>