global.asa

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

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
sub Application_OnStart
    connstr="Provider=Microsoft.Jet.OLEDB.4.0;"&_
	        	"Data Source="& Server.MapPath("ljl.ASP")
                        Application("hg_connstr")=connstr
                        Set conn=Server.CreateObject("ADODB.CONNECTION")
                        Set rs=Server.CreateObject("ADODB.RecordSet")
                        conn.open connstr
                        sql="SELECT name,value FROM system"
                        rs.open sql,conn,1,1
                        do while Not rs.Eof
    Select Case rs("name")
         Case "visitor"
           Application("hxf_c_visitor")=rs("value")
         Case "iplocktime"
           Application("hxf_c_iplocktime")=int(rs("value"))
         Case "disloginname"
           Application("hxf_c_disloginname")=rs("value")
    End Select
    rs.MoveNext
    loop
    rs.close
    conn.close
    set rs=nothing
    set conn=nothing
 
 Dim nameindex(0)
 useronlinename=" "
 onliners=0
 Application("hxf_c_onlinelist")=nameindex
 Application("hxf_c_useronlinename")=useronlinename
 Application("hxf_c_chatrs")=onliners
 Dim wbq(0)
 Application("hxf_c_webicq")=wbq
 webicqname=" "
 Application("hxf_c_webicqname")=webicqname
 s=Hour(time())
 f=Minute(time())
 m=Second(time())
 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
 Dim sd(180)
 for i=1 to 171
  sd(i)=0
 next
 sd(172)=1
 sd(173)=1
 sd(174)=0
 sd(175)="AutoMan"
 sd(176)="大家"
 sd(177)="660099"
 sd(178)="660099"
 sd(179)="对"
 sd(180)="<font color=black>【系统】</font><font color=red>会议中心开门啦!</font><font class=t>(" & t & ")</font>"
 Application("hxf_c_sd")=sd
 Application("hxf_c_line")=1
End sub
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnStart
 Session.Timeout=3
 Application.Lock
  Application("hxf_c_active")=Application("hxf_c_active")+1
 Application.UnLock
End Sub
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnEnd
 Application.Lock
 Application("hxf_c_active")=Application("hxf_c_active")-1
 if Session("hxf_u_inthechat")="1" then
  nickname=Session("hxf_u_nickname")
  useronlinename=Application("hxf_c_useronlinename")
  if InStr(useronlinename," " & nickname & " ")<>0 then
   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(nickname) 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
    end if
   next
   useronlinename=useronlinename&" "
   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
   s=Hour(time())
   f=Minute(time())
   m=Second(time())
   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
   sd=Application("hxf_c_sd")
   line=int(Application("hxf_c_line"))
   Application("hxf_c_line")=line+1
   for i=1 to 171
     sd(i)=sd(i+9)
   next
   sd(172)=line
   sd(173)=1
   sd(174)=0
   sd(175)=nickname
   sd(176)="大家"
   sd(177)="660099"
   sd(178)="660099"
   sd(179)="对"
   sd(180)="<font color=black>【掉线】</font><font color=F08000>由于山高路滑，“砰”的一声，<font color=red>" & nickname & "</font>重重地摔了下了马……</font>"
   Application("hxf_c_sd")=sd
  end if
 end if
 Application.UnLock
End sub
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnEnd
End sub
</SCRIPT>