send.asp

使用flash Socket 实现聊天室功能

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

set objDom = server.CreateObject("microsoft.xmldom")
objDom.loadxml(Request.Form)
set objname = objdom.documentElement.SelectSingleNode("//SEND/USERNAME")
username = objname.text

set objcnt = objdom.documentElement.SelectSingleNode("//SEND/CONTENT")
content = objcnt.text

tempstr= username & " say: " & content & "..."
application("AllCanSee") = application("AllCanSee") & tempstr

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