关于聊天系统的源代码 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 ""&sd(i+1)&""
				end if
				next
				if newuserline>userline then dv_user(1)=newuserline
				session("dv_user")=dv_user
				Response.Write "setTimeout('this.location.reload();',3000);"
				Response.End
				%>