k.asp

asp.net +AJAX无刷新聊天室

<%
dim node,i,nodecount,isk
isk=false
set xml = CreateObject("Microsoft.XMLDOM") 
xml.async = false 
xml.load(Server.MapPath("online.xml")) 
set root = xml.documentElement 
set nodeLis = root.childNodes 
nodeCount = nodeLis.length
For i=1 to nodeCount 
set node = nodeLis.nextNode()
if node.selectSingleNode("username").text=session("username") then
isk=true
end if
next
set node=nothing
set nodeLis=nothing

if session("username")="" or not isk then
response.Write("showScreen")
end if
%>