计算机科学论坛--[求助]XML聊天室

小弟刚学XML，用其做一个不用数据库的聊天室，不巧遇到人生一大难题，特来此求助于各位高手，源码如下：
1 StartChatroom.asp

<%
'建立聊天室的XML DOM
Set xmlDom = Server.CreateObject("MSXML2.DOMDocument.4.0")
xmlDom.async = "false"
xmlDom.loadXML("</>")

'建立Application变量存储聊天室信息
Application("ChatMessages") = xmlDom.xml
Application("MaxMessages") = 100
Application("DelMessages") = 80
Application("FirstTimeMsgs") = 10

'转向聊天室
Response.Redirect("default.asp")
%>

2.default.asp

<%
strName = Request.Form("UserName")
If strName<>"" Then
Session("UserName") = strName
Response.Redirect("Chatroom.asp")
End If
%>

<HTML>
<HEAD>
<TITLE>XML聊天室</TITLE>
</HEAD>
<BODY bgcolor="#FFCC99">
<BR>
<CENTER>
<B>请输入用户名称登陆聊天室</B><BR>
<FORM action="default.asp" method="POST">
<TABLE border=2>
  <TR><TD>用户名称:</TD><TD>
  <%
  If Not IsNull(Session("UserName")) Then
    Response.Write"<input type='TEXT' name='UserName' value='"& Session("UserName")& "'maxlength=12 maxsize=12>"
  Else
    Response.Write"<input tyep='TEXT' name='UserName' maxlength=12 maxsize=12>"
  End if
  %>
  </TD></TR>
  <TR><TD align=center colspan=2>
    <INPUT type="Submit" value="进入聊天室">
  </TD></TR>
</TABLE>
</FORM>
<BR>
</CENTER>
</BODY>
</HTML>

3.Chatroom.asp

<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html;charset=GB2312">
<TITLE>XML聊天室</TITLE>
<SCRIPT language="Javascript">
var enterRoom = true
var blnotLoadingChatMsgs = true

//获取聊天信息
function getChatMessage(){
  if (blnotLoadingChatMsgs){
    //第一次获取聊天信息
    blnotLoadingChatMsgs = false
    getxmlHttp = new ActiveXObject("MSXML2.XMLHTTP.4.0")
    xmlDom = new ActiveXObject("MSXML2.DOMDocument.4.0")
    xmlDom.async = false
    getxmlHttp.onreadystatechange = showChatMessage
    //发送第一次获取聊天信息
    var xmlDomStr = "<control>"
    xmlDomStr = "<control>"
    xmlDomStr = xmlDomStr + "<enter>" +enterRoom + "</enter>"
    xmlDomStr = xmlDomStr + "</control>"
    xmlDom.loadXML(xmlDomStr)
    enterRoom = false
    getxmlHttp.open("POST","getChatXML.asp",true)
    getxmlHttp.send(xmlDom)
  }
}

//显示聊天信息
function showChatMessage(){
  if (getxmlHttp.readystate==4){
    blnotLoadingChatMsgs=true
    if (getxmlHttp.responseXML.xml !=""){
      var msgxmlDom=getxmlHttp.responseXML
      var messageNodes=msgxmlDom.documentElement.selectNodes("message")
      //获取聊天信息
      for (i=0;i<messageNodes.length;i++){
        msgNode=messageNodes(i)
        //获取信息内容
        objText=msgNode.selectSingleNode("text")
        objUser=msgNode.selectSingleNode("user")
        objSay=msgNode.selectSingleNode("say")
        objColor=msgNode.selectSingleNode("color")
        strMessage=ChatMessages.innerHTML
        strMessage=strMessage + "<FONT color=" + objColor.text +"><B>" + objUser.text +"</B>:"
        strMessage=strMessage + "<SMALL>" + objSay.text + "</SMALL> -"
        strMessage=strMessage + objText.text + "</FONT><BR>"
        ChatMessages.innerHTML = strMessage
        ChatMessages.scrollIntoView(false)
      }
    }
  }
}

//更新聊天信息
function updateChatMessage(){
   //是否有聊天信息
  if (chatmsg.value !=""){
    var strMessage=chatmsg.value.replace(/</g," ")
    postxmlHttp=new ActiveXObject("MSXML2.XMLHTTP.4.0")
    xmlDom=new ActiveXObject("MSXML2.DOMDocument.4.0")
    xmlDom.async=false
    xmlDomStr="<message>"
    xmlDomStr=xmlDomStr + "<text>" + strMessage + "</text>"
    xmlDomStr=xmlDomStr + "<user><%=Session("UserName")%></user>"
    xmlDomStr=xmlDomStr + "<say>" + say.value +"</say>"
    xmlDomStr=xmlDomStr + "<color>" +msgcolor.value + "</color>"
    xmlDomStr=xmlDomStr + "</message>"
    xmlDom.loadXML(xmlDomStr)
    postxmlHttp.onreadystatechange=showMessageCount
    postxmlHttp.open("POST","updateChatXML.asp",true)
    postxmlHttp.send(xmlDom)
    chatmsg.value=""
  }
}

//显示聊天信息数
function showMessageCount(){
  if(postxmlHttp.readystate==4){
    CountMessages.innerHTML=postxmlHttp.responseText
  }
}
</SCRIPT>

<SCRIPT for="window" event="onLoad">
//设定执行getChatMessage函数的间隔时间
window.setInterval(getChatMessage,1000)
ChatMessages.innerHTML="<B>XML聊天室:<%=Session("UserName")%></B><BR>"
CountMessages.innerHTML="未知"
</SCRIPT>

</HEAD>
<BODY bgcolor="#FFCC99">
<DIV align="center">
<DIV align="left" STYLE="font:10pt;overflow-y:scroll;width=90%;height=480;background-color=#CCCCFF;">
  <DIV id="ChatMessages"></DIV>
</DIV>

<TABLE bgcolor="#CCCC99" width="90%" cellspacing="5">
  <TR><TD ALIGN=CENTER VALIGN=TOP>
    <FONT size=2>信息:</FONT>
    <INPUT id="chatmsg" type="text" size=40 name="message">
  </TD><TD ALIGN=CENTER VALIGN=TOP>
    <FONT size=2 color=#000000>语气</FONT>
    <SELECT id="say" name="usersay" size="1">
      <OPTION value="~十分高兴的说">高兴</OPTION>
      <OPTION value="~有些难过的说">难过</OPTION>
      <OPTION value="~哭天喊地的说">伤心</OPTION>
      <OPTION value="~脸红生气的说">生气</OPTION>
      <OPTION value="~嘴巴吐血的说">吐血</OPTION>
      <OPTION value="~有点想睡的说">想睡</OPTION>
    </SELECT>
  </TD><TD ALIGN=CENTER VALIGN=TOP>
    <FONT size=2 color=#000000>颜色:</FONT>
    <SELECT name="usercolor" id="msgcolor">
      <OPTION value="red" selected>红色</OPTION>
      <OPTION value="yellow">黄色</OPTION>
      <OPTION value="green">绿色</OPTION>
      <OPTION value="blue">蓝色</OPTION>
    </SELECT>
  </TD>
    <TD><input type="Button" name="Send" value="发送" onClick="updateChatMessage()">
  </TD></TR>
</TABLE>
服务器的聊天信息数:<SPAN id="CountMessages"></SPAN>
</DIV>
</BODY>
</HTML>

4.GetChatXML.asp

<%
'设定为XML文件
Response.ContentType="text/xml"
'设定不存储客户端缓存
Response.Expires=0

'获取客户端控制的XML DOM
Set clientxmlDom=Server.CreateObject("MSXML2.DOMDocument.4.0")
clientxmlDom.async="False"
clientxmlDom.load(Request)

'获取Application变量的聊天信息XML文件
strMessages=Application("ChatMessages")
Set serverxmlDom=Server.CreateObject("MSXML2.DOMDocument.4.0")
serverxmlDom.async="False"
serverxmlDom.loadXML(strMessages)

'建立响应的XML文件
Response.Write("<?xml version='1.0' encoding='GB2312'?>")
Response.Write("<chatroom>")

'是否为第一次进入
If clientxmlDom.documentElement.selectSingleNode("enter").text="true" Then
  '新增系统的欢迎信息
  strSystemMessage="<message>"
  strSystemMessage=strSystemMessage & "<text>欢迎["&Session("UserName")&"]进入聊天室</text>"
  strSystemMessage=strSystemMessage & "<user>系统管理者</user>"
  strSystemMessage=strSystemMessage & "<say>说</say>"
  strSystemMessage=strSystemMessage & "<color>white</color>"
  strSystemMessage=strSystemMessage & "</message>"
  '建立系统信息的XML DOM
  Set sysxmlDom=Server.CreateObject("MSXML2.DOMDocument.4.0")
  sysxmlDom.async="False"
  sysxmlDom.loadXML(strSystemMessage)

'新增系统信息
  serverxmlDom.documentElement.appendChild(sysxmlDom.documentElement)
  Set sysxmlDom=Nothing
  '更新Application变量
  Application("ChatMessages")=serverxmlDom.xml

'获取所有的聊天信息
  Set objMessages=serverxmlDom.documentElement.selectNodes("message")
  intlastLine=objMessages.length '计算显示的信息条数
  If intlastLine < Application("FirstTimeMsgs") Then
    intlastLine=0
  Else
    intlastLine=intlastLine - Application("FirstTimeMsgs")
  End if

Else
  '获取所有的聊天信息
  Set objMessages=serverxmlDom.documentElement.selectNodes("messages")
  '获取用户已获取的聊天信息数
  intlastLine=Session("ShowedLines")
  '是否有删除聊天信息
  If intlastLine > objMessages.length Then
    intlastLine = objMessages.length - 1
  End if
End if

intPos=0
'显示所有的信息
For Each objNode in objMessages
  If intPos >=intlastLine Then
    Set objText=objNode.selectSingleNode("text")
    Set objUser=objNode.selectSingleNode("user")
    Set objSay=objNode.selectSingleNode("say")
    Set objColor=objNode.selectSingleNode("color")
    Response.Write("<message>")
    Response.Write("<text>" & objText.text & "</text>")
    Response.Write("<user>" & objUser.text & "</user>")
    Response.Write("<say>" & objSay.text & "</say>")
    Response.Write("<color>" & objColor.text & "</color>")
    Response.Write("</message>")
  End if
  intPos=intPos + 1
Next

Session("ShowedLines")=objMessages.length
Response.Write("</chatroom>")
Set serverxmlDom=Nothing
Set clientxmlDom=Nothing
%>

5.UpdateChatXML.asp

<%
'设定不存储客户端缓存
Response.Expires=0

'获取客户端的XML DOM
Set clientxmlDom=Server.CreateObject("MSXML2.DOMDocument.4.0")
clientxmlDom.async="False"
clientxmlDom.load(request)

'获取聊天信息的XML文件
strMessages=Application("ChatMessages")
Set serverxmlDom=Server.CreateObject("MSXML2.DOMDocument.4.0")
serverxmlDom.async="False"
serverxmlDom.loadXML(strMessages)

'新增聊天信息
serverxmlDom.documentElement.appendChild(clientxmlDom.documentElement)

'删除过多的信息
intCurrMessages=serverxmlDom.documentElement.childNodes.length
intTotalMsgs=intCurrMessages
'是否超过最大的信息数
If intCurrMessages > Application("MaxMessages") Then
  '删除指定的信息数
  For intI=0 To Application("DelMessages")
    serverxmlDom.documentElement.removeChild(serverxmlDom.documentElement.firstChild)
    intTotalMsgs=intTotalMsgs - 1
  Next
End if

'响应信息数的文字内容
Response.Write(intTotalMsgs)
'更新Application变量
Application("ChatMessages")=serverxmlDom.xml
%>


	W 3 C h i n a ( since 2003 ) 旗下站点苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》	109.375ms