0 then response.write "" end if chatpoin=application("chatpoin")'谈天室指针 chatcomm=application("chatcomm")'谈天室内容 chatdata" /> 
快捷搜索:

刷新帧,文件名fresh.asp

刷新帧:文件名fresh.asp

0 then

response.write ""

response.end

end if

if instr(kicklist,"'"&Request.ServerVariables("remote_addr")&"'")>0 then

response.write ""

end if

chatpoin=application("chatpoin")'谈天室指针

chatcomm=application("chatcomm")'谈天室内容

chatdata=application("chatdata") '谈天室用户数据

sendid=-1

reciid=-1

for i=0 to 50

if chatdata(i,0)=user and chatdata(i,1)=Request.ServerVariables("remote_addr") then sendid=i '留意,在些反省IP地址,预防被穿墙

if chatdata(i,0)=whoto then reciid=i

next

if sendid=-1 then

response.write "用户没有进入谈天室"

response.end

end if

chatdata(sendid,4)=(chatdata(sendid,4) mod 104) '置标志,预防被自动踢出谈天室

msg=right(time,8)&","&user&","&request.form("action")&","&whoto&","&request.form("color")

if ws then

msg=msg&",1"

else

msg=msg&",0"

end if

msg="'"&msg&","&tmsg

if reciid=-1 and whoto("&whoto&"不在此谈天室)"

msg=msg&"'

"

if tmsg"所有人" then chatdata(sendid,3)=chatdata(sendid,3)&msg

if reciidreciid thenchatdata(reciid,3)=chatdata(reciid,3)&msg

application.lock

application("chatdata")=chatdata

application.unlock

end if

if not ws or ws and whoto="所有人" then'属于整个人的数据

if chatpoin=49 then

chatpoin=0'数组转头,轮回调用

call checkname

else

chatpoin=chatpoin+1

end if

chatcomm(chatpoin)=msg'将内容写进application内

application.lock

application("chatcomm")=chatcomm

application("chatpoin")=chatpoin

application.unlock

end if

end if

%>">"" then'显示私聊内容

response.write thidename

dispstr=""

dim temps

tsecretly=split(tsecretly,"

")

for i=0 to ubound(tsecretly)-1

tmpstr=split(tsecretly(i),",")

if instr(thidename,",'"&tmpstr(3)&"'")

您可能还会对下面的文章感兴趣: