刷新帧，文件名fresh.asp

刷新帧：文件名fresh.asp
<%
Option Explicit
dim msg,tmsg,ws,action,user,whoto,tcolor,kicklist,chatpoin,chatcomm,chatdata,sendid,i,reciid
dim tsecretly,thidename,dispstr,tchatpoin,tuserpoin,tchatcomm,j
dim sendname,address1,reciname
user=request("user")
whoto=request.form("whoto")
tmsg=request.form("SAYS")
tmsg=replace(tmsg,"","")
tmsg=replace(tmsg,",",",")
tmsg=replace(tmsg,"<","<")    '屏蔽所有的Html标记
tmsg=replace(tmsg,"<img","<img")     '放开<img标记
tmsg=replace(tmsg,"<b","<b")     '放开<b标记
if request.form("ws")="on" then
    ws=true
else
    ws=false
end if
kicklist=application("kicklist")
'是否被踢用户
if instr(kicklist,"'#"&user&"'")>0 then
    response.write "<script>parent.top.location='kickout.htm';</script>"
    response.end
end if
if instr(kicklist,"'"&Request.ServerVariables("remote_addr")&"'")>0 then
    response.write "<script>parent.top.location='kickout.htm';</script>"
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

补充：asp教程,高级应用