saima.asp

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

<%Response.Expires=0%>
<!--#include file="../config/config.asp"-->
<%nickname=Session("hxf_u_nickname")
if nickname="" or Session("hxf_u_inthechat")<>"1" then Response.Redirect "close.asp"
Session("hxf_u_inthechat")="0"
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
ip=Request.ServerVariables("REMOTE_ADDR")
Application.Lock
onlinelist=Application("hxf_c_onlinelist")
dim newonlinelist()
useronlinename=""
onliners=0
js=1
ubl=UBound(onlinelist)
for i=1 to ubl 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
 else
  savetime=onlinelist(i+5)
 end if
next
useronlinename=useronlinename&" "
if savetime<>"" 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
 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)="消息"
	sd(176)="大家"
	sd(177)="660099"
	sd(178)="660099"
	sd(179)="对"
    sd(180)="<font color=black>【公告】</font>" & nickname & ("赌马成瘾！顾不得和好友说声再见就跑去赌马了！") & "(" & t & ")"
 Application("hxf_c_sd")=sd
End if
Application.UnLock
if savetime<>"" then
 Set conn=Server.CreateObject("ADODB.CONNECTION")
 Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
 conn.open connstr
 sql="SELECT grade,allvalue,mvalue,lasttime,lastip FROM 用户 WHERE 姓名='" & nickname & "'"
 rs.open sql,conn,1,3
 addvalue=DateDiff("n",savetime,sj)
 if Not(rs.Eof and rs.Bof) then
  grade=rs("grade")
  rs("allvalue")=rs("allvalue")+addvalue
  if DateDiff("m",savetime,sj)=0 then
   rs("mvalue")=rs("mvalue")+addvalue
  else
   rs("mvalue")=addvalue
  end if
  rs("lasttime")=sj
  rs("lastip")=ip
  allvalue=int(rs("allvalue"))
  rs("grade")=grade
  Session("hxf_u_grade")=grade
  Session("hxf_u_value")=rs("allvalue")
  rs.Update
 end if
end if
'Response.Redirect "../horse/horse.asp target='_top'"%>
<script language=javascript>
this.top.window.close();
saimawin=window.open("../horse/horse.asp","bethorse","toolbar=yes,location=yes,status=yes,menubar=yes,scrollbars=yes,resizable=yes");
saimawin.moveTo(0,0);
saimawin.resizeTo(screen.availWidth,screen.availHeight);
</script>