sendmess.asp

asp.net +AJAX无刷新聊天室

<%
username=session("username")
mess = request("mess")
posttime=mid(date(),6)&" "&time()
mtowho=request("mtowho")
mfont=request("mfont")
mfcolor=request("mfcolor")
elist=request("elist")
if username<>"" then
strSourceFile = Server.MapPath("data.xml")
'获取XML文件的路径这里根据你的虚拟目录不同而不同
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
'创建XML对像
objXML.load(strSourceFile)
'把XML文件读入内存中
Set objRootlist = objXML.documentElement
'选取<NewList>节点
brstr=chr(13)&chr(10)&chr(9)
'为了插入XML文件中的节点换行空格排列整齐（当然你也可以不用这样只是为了XML数据好看而以）
XMLnode=brstr&"<book>"&brstr & _
"<time>"&posttime&"</time>"&brstr & _
"<user>"&username&"</user>"&brstr & _
"<mess>"&mess&"</mess>"&brstr & _
"<mtowho>"&mtowho&"</mtowho>"&brstr & _
"<mfont>"&mfont&"</mfont>"&brstr & _
"<mfcolor>"&mfcolor&"</mfcolor>"&brstr & _
"<elist>"&elist&"</elist>"&brstr & _
"</book>"&chr(13)
'根据得到的数据建立XML片段
set objXML2=Server.CreateObject("Microsoft.XMLDOM")
'建立一个新XML对像
objXML2.loadXML(XMLnode)
'把XML版片段读入内存中
set rootNewNode=objXML2.documentElement
'获得objXML2的根节点
objRootlist.appendChild(rootNewNode)
'把XML片段插入到List.xml中
objXML.save(strSourceFile)
'存储lsit.xml文件（因为不存储List.xml只在内存中更新了）
set objXML=nothing
set objXML2=nothing
end if 
%>