chat.asp

是一个基于ajax的聊天室！实现了在线聊天

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%><%
	Session.CodePage = "65001"
	Response.ContentType = "application/xml"
	Response.Expires = 0
%><%
function repla(str){
	str = str.replace(/\&/g, "&amp;");
	str = str.replace(/\>/g, "&gt;");
	str = str.replace(/\</g, "&lt;");
	str = str.replace(/\"/g, "&quot;");
	str = str.replace(/\'/g, "&#39;");
	return str;
}


var useIp = Request.ServerVariables("REMOTE_ADDR")
if(!Application("chatcounts")){
	Application("chatcounts") = 0
}
if(Request("cont").Count != 0){
	Application.Lock()
		if(Application("chatcounts") < 21){		
			Application("chatcounts") += 1
		}else if(Application("chatcounts") >= 21){
			Application("chatcounts") = 1
		}
		var Cnum = Application("chatcounts")
		var Msgs = Request("cont")
		Application("ips" + Cnum) = useIp +""
		Application("msgs" + Cnum) = Msgs +""
		if(Request("named").Count != 0){
			var names = Request("named")
		}else{
			var names = ""
		}
		Application("names" + Cnum) = names +""
	Application.UnLock()
}
if(Request("cont") == "cls"){
	Application.Contents.RemoveAll()
}
%><?xml version="1.0" encoding="utf-8" ?>
<ppl>
	<num><%=Application("chatcounts")%></num>
	<%
	if(Request("clien") == "m"){
	%>
	<items>
		<ip><%=useIp%></ip>
	</items>
	<%
	}else if(Request("clien") < Application("chatcounts")){
		for(var i=Request("clien"); i<Application("chatcounts"); i++){
			s = Number(i)+1
			var useName = Application("names" + s)
			var useMsg = Application("msgs" + s)
			var useIp = Application("ips" + s)
	%>
	<items>
		<name><%=useName%></name>
		<conts><%=useMsg%></conts>
		<ip><%=useIp%></ip>
	</items>
	<%
		}
	}else if(Request("clien") > Application("chatcounts")){
		for(var i=Request("clien"); i<21; i++){
			var useName = Application("names" + i)
			var useMsg = Application("msgs" + i)
			var useIp = Application("ips" + i)
	%>
	<items>
		<name><%=useName%></name>
		<conts><%=useMsg%></conts>
		<ip><%=useIp%></ip>
	</items>
	<%
		}
		for(var m=1; m<=Application("chatcounts"); m++){
			var useNameM = Application("names" + m)
			var useMsgM = Application("msgs" + m)
			var useIpM = Application("ips" + m)
	%>
	<items>
		<name><%=useNameM%></name>
		<conts><%=useMsgM%></conts>
		<ip><%=useIpM%></ip>
	</items>
	<%
		}
	}else if(Request("clien") == Application("chatcounts")){
		
	}
	%>
</ppl>