【導(dǎo)讀】從E-mai到InterPhone，網(wǎng)絡(luò)帶來(lái)了通訊速度的提升，更降低了通訊成。而隨著寬帶網(wǎng)絡(luò)的普及，人們對(duì)網(wǎng)絡(luò)通訊也有了進(jìn)一步的要求。發(fā)展，改變了傳統(tǒng)網(wǎng)絡(luò)通訊的質(zhì)量和形式，使交流不再只是局限于普通語(yǔ)言文字，利用視頻讓天各一方的朋友能夠彼此相見(jiàn)。在線聊天系統(tǒng)是一個(gè)通過(guò)Inter進(jìn)行多人通訊的系統(tǒng)。目前，信息交流的。限性，體現(xiàn)在通訊速度、通訊費(fèi)用等方面。在線聊天系統(tǒng)就能很好的解決這個(gè)問(wèn)。題，我們不需要聚集在同一地點(diǎn)，各自在不同的地點(diǎn)就可以在聊天系統(tǒng)中發(fā)言，中加強(qiáng)聯(lián)系，創(chuàng)造出更多的財(cái)富。

　　

【正文】 電出版社， [2] 劉瑞軍 。淺談流媒體技術(shù)在教學(xué)中的應(yīng)用 [J]。電腦知識(shí)與技術(shù) (學(xué)術(shù)交流 )。2020年 02期 [3] 朱志國(guó)，繆亮 陳艷麗 .Flash [M].清華大學(xué)出版社， [4] 章精設(shè)，胡登濤 . [M].清華大學(xué)出版社， [5] 陳綠春 .Flash經(jīng)典案例完美表現(xiàn) 200例 [M].清華大學(xué)出版社， [6] 黃岡 于林 .Macromedia Flash MX 標(biāo)準(zhǔn)教程 [M] .希望 電子 出版社 ， 2020. [7] 張海藩 .軟件工程導(dǎo)論 [M].北京 .清華大學(xué)出版社 ,2020 . [8] 牟艷霞、王強(qiáng)、李紹勇 . Flash CS4中文版入門(mén)與提高 [M].清華大學(xué)出版社 , 2020. [9] 李方捷 .ActionScript [M].清華大學(xué)出 版社 ,2020. [10] 陳冰 .lash第 1步 :ActionScript編程篇 [M] .清華大學(xué)出版社 ， 2020 . [11] 王紅衛(wèi) . Photoshop CS4完全自學(xué)教程 [M].機(jī)械工業(yè)出版社 ,2020 . [12] 蔡朝暉 .ActionScript互動(dòng)編程技術(shù)與實(shí)例 [M]. [13] 吳志華 .Flash CS4動(dòng)畫(huà)設(shè)計(jì)與制作 208例 [M]. [14] 孫穎 .Flash ActionScript3殿堂之路 [M]. 附錄 本系統(tǒng)的其他部分，例如登錄模塊，是由 ASP 技術(shù)實(shí)現(xiàn)的 。 代碼如下： % 39。獲取從 Flash 提交的數(shù)據(jù) tmpUserName=Request(userName) tmpPassWord=Request(passWord) 39。SQL 語(yǔ)句中的用戶名和密碼需要用單引號(hào)括起來(lái) tmpUserName=39。amp。tmpUserNameamp。39。 tmpPassWord=39。amp。tmpPassWordamp。39。 39。創(chuàng)建 Connection 對(duì)象 Set conn =() 39。設(shè)置驅(qū)動(dòng) tmpPD=Provider= 39。指定數(shù)據(jù)庫(kù)的路徑 tmpDS=Data Source=amp。() 39。指定數(shù)據(jù)庫(kù)的密碼 tmpPW=Jet OLEDB:Database Password=123 39。構(gòu)造打開(kāi)字符串 tmpSTR=tmpPDamp。amp。tmpDSamp。amp。tmpPW 39。利用 Connection 對(duì)象的 Open 方法打開(kāi)數(shù)據(jù)庫(kù) tmpSTR 39。建立庫(kù)連接 Set rs = () 39。SQL 語(yǔ)句 ,從數(shù)據(jù)表 userInfoTable 中查詢與 Flash 提交的用戶名和密碼一致的記錄 sql = select * from userInfoTable where userName=amp。tmpUserNameamp。 and passWord=amp。tmpPassWord 39。打開(kāi)從庫(kù)中讀出的記錄集 sql, conn, 1, 3 39。While 循環(huán)語(yǔ)句 ,如果有符合條件的記錄就輸出 While Not 39。從表中讀取 userName、 passWord 和 level 列的值 ,并將其賦予三個(gè)變量 userName = rs(userName) passWord = rs(passWord) level = rs(level) 39。將獲取的值輸出并用 隔開(kāi) userName passWord level 39。轉(zhuǎn)到下一條記錄前用 隔開(kāi) ,以便在 Flash 中處理 39。到下一條記錄 Wend 39。利用 Connection 對(duì)象的 Close 方法關(guān)閉連接 39。將 Connection 對(duì)象從內(nèi)存中刪除 ,以釋放資源 Set rs = Nothing Set conn = Nothing % 系統(tǒng)的另一聊天功能為文字聊天，功能實(shí)現(xiàn)代碼如下： package { //導(dǎo)入所需的類 import .*。 import .*。 import .*。 import .*。 import .*。 import .*。 import 。 import 。 import 。 import 。 public class textChat extends Sprite { //聲明變量 public var IP:String。 public var fmsPath:String。 public var myNC:NetConnection。 public var myNS:NetStream。 public var userName:String。 public var mySO:SharedObject。 public var peopleArray:Array。 public var tmpName:String。 public var msg:String。 public var now:Date。 //構(gòu)造函數(shù) public function textChat() { init()。 startConnect()。 } //初始化 public function init() { //設(shè)置所有組件的樣式 var myTF:TextFormat = new TextFormat()。 =12。 (textFormat,myTF)。 IP=。 fmsPath= + IP + /textChat。 userName=guest + int(() * 10000)。 =userName。 =所有人 。 now=new Date()。 (,selectChatTo)。 } //開(kāi)始連接 public function startConnect() { myNC=new NetConnection 。 =this。 =。 (,Status)。 (,asyncError)。 (,securityError)。 //開(kāi)始連接 FMS 服務(wù)器，把 userName 一起傳給服務(wù)器 (fmsPath,userName)。 } //偵聽(tīng)事件 public function Status(event:NetStatusEvent):void { switch () { case : +=連接成功 !。 //連接成功后開(kāi)始創(chuàng)建一個(gè)遠(yuǎn)程共享對(duì)象 setMySO()。 //單擊發(fā)送按鈕時(shí)發(fā)送聊天內(nèi)容 (,sendMsgByMouse)。 //按下回車鍵時(shí)發(fā)送聊天內(nèi)容 (,sendMsgByKey)。 break。 case : +=連接失敗 !。 break。 case : +=。 break。 } } public function securityError(event:SecurityErrorEvent):void { +=安全性錯(cuò)誤 !。 } //創(chuàng)建一個(gè)遠(yuǎn)程共享對(duì)象 public function setMySO():void { mySO=(mySO,false)。 (,mySoSync)。 (myNC)。 } //偵聽(tīng)事件 public function asyncError(event:AsyncErrorEvent):void { } //利用遠(yuǎn)程共享對(duì)象創(chuàng)建在線列表 public function mySoSync(e:SyncEvent):void { peopleArray=new Array 。 for (var tmp in ) { (tmp)。 } //添加 DataProvider var tmpDP:DataProvider=new DataProvider。 for (var i=0。 i 。 i++) { tmpName=peopleArray[i]。 ({label:tmpName})。 } (label)。 //在用戶列表頂端加一個(gè) 所有人 ({label:所有人 },0)。 =tmpDP。 } //按發(fā)送按鈕時(shí)發(fā)送聊天內(nèi)容 public function sendMsgByMouse(event:MouseEvent):void { sendMsg()。 } //按回車鍵時(shí)發(fā)送聊天內(nèi)容 public function sendMsgByKey(event:KeyboardEvent):void { if (==13) { sendMsg()。 } } //發(fā)送聊天內(nèi)容 public function sendMsg():void { if ( 0) { //自己不能給自己發(fā)信息 if ( == ) { += 您不能對(duì)自己發(fā)言！ + \n。 =。 } else { var allPeople:Array=new Array。 for (var i=0。 i 。 i++) { //發(fā)言時(shí)不發(fā)給自己和所有人，直接寫(xiě)入 History，提高效率 if ((i).label != 所有人 amp。amp。 (i).label != ) { ((i).label)。 } } //利用 Html 標(biāo)簽格式化被發(fā)送的聊天內(nèi)容 ,突出顯示用戶名和發(fā)送時(shí)間 msg = font color=39。ff000039。++/font+ 對(duì) +font color=39。ff000039。++/font+ 說(shuō) +(+font color=39。0000ff39。+()+:+((()10) ? 0+() : ())+:+((()10) ? 0+() : ())+/font+)+:+\n++\n。 if ( == null) { =所有人 。 } //呼叫服務(wù)器端函數(shù) ,并傳遞參數(shù) (msgFromClient,null,msg,allPeople)。 //同時(shí)改變聊天內(nèi)容框的內(nèi)容 += msg。 =。 =。 } } } //客戶端獲取服務(wù)器端的信息 public function msgFromSrvr(msg) { += msg。 =。 } //選擇聊天對(duì)象 private function selectChatTo(event:MouseEvent):void { = 。 } } }