updatenamelist.asp

基于ASP开发的聊天室源码

<%Response.Expires=0
Response.Expires=0
Response.ExpiresAbsolute=Now()-1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
if not IsArray(Session("info")) then Response.Redirect "err.asp?kind=20"
info=Session("info")
Response.Write ("<Script Language=JavaScript>var newonline=new Array();")
online = Application("online" & info(7))
for i = 1 to ubound(online)
 Response.Write "newonline[" & i-1 & "] = " & chr(34) & online(i) & chr(34) & ";" & chr(13) & chr(10)
next
Response.Write "parent.online=newonline;parent.zzbird_name='" & Application("zzbird_name_" & info(7)) & "';parent.showlist();</Script>"
%>