reload.asp

一个用vb开发的比较好的聊天系统

<!--#include file="usercheck.asp"-->
<%c_info=application("c_info"&session("room_id"))
  for i=0 to 239 step 5
    if c_info(i+4)<>"" then 
       if c_info(i)>=session("LoginTime") then
        if c_info(i+3)<>UserName then
           if c_info(i+1)=1 then
              if c_info(i+2)=UserName then
               response.write "<script>parent.my.document.writeln("""&c_info(i+4)&"<br>"");</script>"
              end if
           else
              if c_info(i+2)=UserName then
               response.write "<script>parent.my.document.writeln("""&c_info(i+4)&"<br>"");</script>"
              else
               response.write "<script>parent.pub.document.writeln("""&c_info(i+4)&"<br>"");</script>"
              end if
            end if
         end if
       end if  
    end if
  next
              
  session("LoginTime")=now()    
%> 
<script language="javascript">  
function userfresh(){
setTimeout("document.location.reload();",5000);
}
userfresh(); 
</script>