<% Response.Buffer = True Response.Expires=0 Response.ContentType="text/html" Response.Charset="GB2312" if session("TWT_ARR_ArgALL")="" then Response.Redirect "error.ASP?id=210" TWT_ArrArg_sys=split(Application("st_gohome"),",") jiutian_dabusi = TWT_ArrArg_sys(0) twt_sys_grade = TWT_ArrArg_sys(1) twt_admin_send = TWT_ArrArg_sys(2) set TWT_ArrArg_sys=nothing connstr=Application("hg_connstr") TWT_ArrArg=split(session("TWT_ARR_ArgALL"),"=") nickname=TWT_ArrArg(0) myid=TWT_ArrArg(1) grade=TWT_ArrArg(2) chatroomsn=TWT_ArrArg(3) useronlinename=Application("hxf_c_useronlinename"&chatroomsn) youname=nickname grade=Int(grade) maxtimeout=int(jiutian_maxtimeout) lasttime=TWT_ArrArg(8) if nickname="" or TWT_ArrArg(6)<>"1" or TWT_ArrArg(3)="" or Instr(LCase(useronlinename),LCase(" "&nickname&" "))=0 then TWT_ArrArg(6)="0" TWT_ArrArg(3)="" Response.Redirect "chaterr.asp?id=001" end if sj2=nowsj 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 call ErrALT("你已被哑穴，正在用内力冲穴道！离冲开穴道还有" & 60-DateDiff("s",yaxuename(1),sj2) & "秒!") else jiexue=dianxue(x)&";" application("jiutian_dianyaxue")=replace(application("jiutian_dianyaxue"),jiexue,"") call ErrALT("经过一分钟的努力，还好你内力深厚，你的哑穴被你冲开!") end if end if next end if QQQ_say=abs(DateDiff("s",lasttime,sj2)) if QQQ_say<3 then call ErrALT("有话慢慢说，别噎着哦！") t="(" & sj2 & ")" dim PPP_say PPP_say=DateDiff("n",lasttime,sj2) if PPP_say>maxtimeout then Response.Write "" Response.End end if if PPP_say>0 then TWT_ArrArg(8)=sj2 session("TWT_ARR_ArgALL")=join(TWT_ArrArg,"=") towho=Trim(Request.Form("towho")) if towho="" then towho="大家" towho1=towho if len(towho)>10 then towho=Left(towho,10) dim twt_c_ys twt_c_ys=Application("twt_c_yisheng") Tzhtai=isin(towho) says=Trim(Request.Form("sy")) if Tzhtai=999 then Call ErrALT("[" & towho & "]不在聊天室中，不能对其发言") elseif Tzhtai=888 then if left(says,2)<>"/6" then Call ErrALT("[" & towho & "]当前是离线状态，不能对其发言") end if act=0 towhoway=Request.Form("towhoway") if towhoway<>1 or towho="大家" then towhoway=0 addwordcolor=Request.Form("addwordcolor") sayscolor=Request.Form("sayscolor") addsays=Request.Form("addsays") writesay=1 '多文本的级别 if len(says)>150 and grade0 or instr(2,says,"/s")<>0 then call ErrALT("您不能在命令行后面使用UBB代码,JS代码，贴图。") if len(addwordcolor)<>6 then addwordcolor="008888" if len(sayscolor)<>6 then sayscolor="660099" says=chksay(says) neili=0 dim autosays act=1 towhoway=0 neili=0 i=instr(says," ") if i=0 then i=len(says)+1 says1=mid(says,i+1) %>