getmsg.asp

聊天室工具

<%
if not isarray(session("dv_user")) then Response.End
dv_user=session("dv_user")
userline=dv_user(1)
sd=Application("chat_sd")
newuserline=0
for i=1 to 50 step 2
newuserline=sd(i)
if sd(i)>userline  then
Response.Write "<script language=javascript>"&sd(i+1)&"</script>"
end if
next
if newuserline>userline then dv_user(1)=newuserline
session("dv_user")=dv_user
Response.Write "<script Language=JavaScript>setTimeout('this.location.reload();',3000);</script>"
Response.End
%>