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

on(release){
if(length(_root.username)==0){//注释1
_root.username="guest";
}elseif(length(_root.userpwd)==0){//注释2
_root.username="guest";
}
loginXml=newXML();//注释3
loginElement=loginXml.createElement("LOGIN");//注释4
//namenode
nameElement=loginXml.createElement("USERNAME");//注释5
nameNode=loginXml.createTextNode("name");//注释6
nameNode.nodeValue=_root.username;
nameElement.appendChild(nameNode);//注释7
//pwdnode
pwdElement=loginXml.createElement("PWD");//注释8
pwdNode=loginXml.createTextNode("pwd");
pwdNode.nodeValue=_root.userpwd;
pwdElement.appendChild(pwdNode);//注释9
loginElement.appendChild(nameElement);//注释10
loginElement.appendChild(pwdElement);
loginXml.appendChild(loginElement);//注释11
xmlRepley=newXML();//注释12
xmlRepley.onLoad=onLoginReply;//注释13
functiononLoginReply(success){
if(success){
if(xmlRepley.firstChild.firstChild.attributes.right=="1"){//注释14
_root.gotoAndPlay("main");
}else{
_root.username="登陆失败";
}
}
}
loginXml.sendAndLoad("http://localhost/xmlchat/login.asp",xmlRepley);//注释15
} 注释1：检查输入框中用户名的长度，如为空，则默认为guest。
注释2：检查输入框中密码的长度。
注释3：新建一个XML对象，这是用来发送到服务器端的。
注释4：创建一个LOGIN结点对象。
注释5：创建一个USERNAME结点对象，注意不能直接在Element对象中放置文本内容，要在TextNode对象中才能放置文本内容。具体可以参见Flash帮助文件中有关XML.createElement()和XML.createTextNode()中的内容。
注释6：创建一个TextNode对象，用来放置USERNAME结点的文本内容。
注释7：将创建的TextNode结点插入到USERNAME结点对象中。
注释8：分别创建一个PWD结点对象和TextNode。
注释9：将TextNode结点插入到PWD结点对象中。
注释10：将USERNAME结点对象插入到LOGIN结点对象中，将PWD结点对象插入到LOGIN结点对象中。
注释11：将LOGIN结点对象插入到所创建的XML对象中，从而构造一个完整的XML对象。注意这里在构建XML对象时，是从最里面开始构建的。
注释12：新建一个XML对象，这里是用来放置接收到的XML对象的。
注释13：设置接收XML对象的响应函数，当服务器端返回XML对象的时候触发。
注释14：判断返回的XML对象中的结点属性是否符合要求。
注释15：利用sendAndLoad()函数，将Flash端的XML对象发送到服务器端，并接收从服务器端返回的XML对象。 C、Asp部分 1、新建一个文件，命名为global.asa，输入如下内容：
<scriptlanguage="vbscript"runat="server">
subapplication_onstart
application("VisitorNum")=0
application("VisitorName")=""
application("AllCanSee")=""
endsub
</script>2、新建一个Asp文件，命名为login.asp，输入如下的内容：
<%
SetMyFileObject=Server.CreateObject("Scripting.FileSystemObject")‘注释1
SetMyTextFile=MyFileObject.CreateTextFile("G:\写作\flashxmlchat\source\login.xml",8,TRUE)‘注释2
MyTextFile.WriteLine(Request.Form)‘注释3 setobjDom=server.CreateObject("microsoft.xmldom")‘注释4
objDom.loadxml(Request.Form)‘注释5
setobjname=objdom.documentElement.SelectSingleNode("//LOGIN/USERNAME")‘注释6
username=objname.text‘注释7 setobjpwd=objdom.documentElement.SelectSingleNode("//LOGIN/PWD")‘注释8
pwd=objpwd.text righ="-1"
"判断
setconn=Server.CreateObject("ADODB.Connection")‘注释9
conn.open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("/xmlchat/xmlchat.mdb")‘注释10
setrs=Server.CreateObject("ADODB.Recordset")‘注释11
strSql="select*fromUserInfowhereUserName=""&username&""andPwd=""&pwd&"""‘注释12
rs.openstrSql,conn,1,1
ifnot(rs.bofandrs.eof)then‘注释13
application("VisitorNum")=application("VisitorNum")+1
application("VisitorName")=application("VisitorName")&username&","&rs("ID")&";"‘注释14
righ=rs("Right")
tempstr=username&"login......"
application("AllCanSee")=application("AllCanSee")&tempstr‘注释15
Else
righ="0"
endif
rs.close‘注释16
conn.close "返回
response.write("<LOGIN><USRENAMEname="""&username&"""right="""&righ&""">"&username&"</USERNAME></LOGIN>")‘注释17
%> 注释1：利用FileSystemObject组件建立一个文件对象，将通讯过程中传送的东西写在文件里面，方便调试。
注释2：注意根据实际需要修改文件的路径。
注释3：把Request.Form是传送进来的所有内容都写在文件里面，在服务器端留下调试痕迹。可以用日志模式进一步完善此功能。
注释4：创建一个XML对象。可以在MSXML包中找到更多有关XML操作的信息。
注释5：通过loadxml()函数，导入Flash端传送进来的XML格式字符串。
注释6：建立USERNAME结点的对象。
注释7：取得USERNAME结点的内容。
注释8：建立PWD结点的对象，取得PWD结点的内容。
注释9：建立一个数据库Connection集合。
注释10：建立一个数据库的ADO连接，这里用到的是Access2000数据库，数据库的格式见后面的附录，请注意数据库的存放位置。
注释11：建立一个数据库Recordset集合。
注释12：根据取得的用户名和密码，构造一个SQL字符串。
注释13：判断查询结果是否为空。
注释14：将用户名和ID号添加到application("VisitorName")对象中。
注释15：将登陆信息添加到application("AllCanSee")对象中。
注释16：关闭数据库连接，释放资源。
注释17：直接构造一个XML字符串，并通过write函数写到Flash端。 三、发送 发送部分的基本原理是从Flash端发送XML格式的聊天内容到服务器端，在服务器端将聊天内容添加到application("AllCanSee")对象中，并将修改后的application("AllCanSee")对象的内容用XML格式返回到Flash端。 A、传递的XML 1、请求报文
<SEND><USERNAME>用户名</USERNAME><CONTENT>发送内容</CONTENT></SEND>2、响应报文
<SEND><RESULTsflag="true"scontent="聊天室显示的内容">用户名</RESULT></SEND> B、Flash部分 1、在主场景的第5帧中添加关键帧，将此帧命名为“main”，在帧的Action面板中增加下面的语句：
now=newDate();//注释1
starttime=now.getTime();
stop(); 注释1：这是为了在下面计算在线时间用的。 2、在主场景中拉一个文本框，属性设置如图2所示。