func.asp

来自「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 62 行

<%
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
%>