用Flash和XML来构造一个聊天室

来源：PConline 作者：翅膀出处：巧巧读书 2005-11-07 进入讨论组

　　C、Asp部分

　　新建一个空白文件，命名为send.asp，其内容如下：

<%
Set MyFileObject = Server.CreateObject("Scripting.FileSystemObject") ‘注释1
Set MyTextFile = MyFileObject.CreateTextFile("G:\写作\flashxmlchat\source\login.xml", 8, TRUE)
MyTextFile.WriteLine(Request.Form) ‘注释2

set objDom = server.CreateObject("microsoft.xmldom") ‘注释3
objDom.loadxml(Request.Form) ‘注释4
set objname = objdom.documentElement.SelectSingleNode("//SEND/USERNAME") ‘注释5
username = objname.text

set objcnt = objdom.documentElement.SelectSingleNode("//SEND/CONTENT") ‘注释6
content = objcnt.text

tempstr= username & " say: " & content & "..."
application("AllCanSee") = application("AllCanSee") & tempstr ‘注释7

'返回
response.write("<SEND><RESULT sflag=""true"" scontent=""" & application("AllCanSee") & """>aa</RESULT></SEND>") ‘注释8
%>

　　注释1：利用FileSystemObject组件建立一个文件对象，将通讯过程中传送的东西写在文件里面，方便调试。
　　注释2：把Request.Form是传送进来的所有内容都写在文件里面，在服务器端留下调试痕迹。
　　注释3：创建一个XML对象。
　　注释4：通过loadxml()函数，导入Flash端传送进来的XML格式字符串。
　　注释5：建立USERNAME结点的对象，取得相应内容。
　　注释6：建立CONTENT结点的对象，取得相应内容。
　　注释7：将从Flash端发送过来的内容添加到application("AllCanSee")对象中。
　　注释8：直接构造一个XML字符串，并通过write函数写到Flash端。