refresh.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("//REFRESH/USERNAME")
username = objname.text


'返回
response.write("<REFRESH><RESULT cflag=""true"" ccontent=""" & application("AllCanSee") & """ talker=""" & application("VisitorName") & """>aa</RESULT></REFRESH>")
%>