開發Flash留言本一直都是Flash后臺交互的進階技術，本例通過ASP和XML簡單高速地同數據庫交互。教程介紹的很詳細，思路也很清晰，教程很實用，轉發過來，希望對大家有所幫助！
本例思路：
<1> 創建數據庫。
<2> 編寫ASP程序。
<3> 在Flash中制作留言本皮膚。
<4> 編寫AS與ASP程序交互。
實例步驟：
(1)先安裝IIS服務器，安裝方法請查閱相關資料。
(2)交互流程：
顯示：使用ASP讀取數據庫數據再輸出成XML，Flash再去讀取這個XML文件。
留言：Flash將用戶輸入留言內容發送給ASP，ASP接收到數據后再存入數據庫。
交互流程如圖所示。
圖14-1 流程圖
(3)本范例使用到的三個ASP文件為：
“head/conn.asp”打開數據庫。
“listXML.asp”讀取ACCESS數據庫里的數據并轉化為XML格式顯示出來。
“post.asp”接收Flash里的值存入數據庫。
(4)先創建數據庫名為“db.mdb”，新建一個表名為“book”，各字段與作用如圖14- 2所示.
圖14-2 新建表
(5)先編寫打到數據庫的conn.asp文件。
ASP/Visual Basic代碼
<%
Db = "head/db.mdb"
conn = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
%>
(6)編寫顯示留言列表的ASP文件listXML.asp，先打開表“book”。
ASP/Visual Basic代碼
<%@LANGUAGE="VBSCRIPT" %>
<!--#include file="head/conn.asp" -->
<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = conn
rs.Source = "SELECT * FROM book ORDER BY id DESC"
rs.CursorType = 0
rs.CursorLocation = 3
rs.LockType = 1
rs.Open()
%>
處理 SSI 文件時出錯
(7)在Flash中讀取數據庫數據時，還要考慮分頁的問題，我們每次默認讀取10條數據可以在調用時設置顯示條數，使用變量“itemNum”。并判斷當前顯示的頁碼，使用變量“pageNum”。
ASP/Visual Basic代碼
<%
Dim itemNum,pageNum,recordTotal
itemNum = Request.QueryString("itemNum")
If itemNum <> "" Then
itemNum = Int(itemNum)
else
itemNum =10
end if
recordTotal = rs.RecordCount
pageNum = Request.QueryString("pageNum")
If pageNum <> "" Then
pageNum = Int(pageNum)
rs.move(pageNum*itemNum)
end if
%>
(8)將數據打印成XML文件現顯出來。
ASP/Visual Basic代碼
<?xml version='1.0' encoding='gb2312'?>
<XML total='<%=(recordTotal)%>'>
<%
While ((itemNum <> 0) AND (NOT rs.EOF))
%>
<%
id=rs("id")
myname=Trim(rs("name"))
mytitle=Trim(rs("title"))
msg=Trim(rs("msg"))
qq=Trim(rs("qq"))
redate=Trim(rs("date"))
%>
<item id="<%=id%>" name="<%=myname%>" title="<%=mytitle%>" msg="<%=msg%>" qq="<%=qq%>" date="<%=redate%>"/>
<%
itemNum=itemNum-1
if NOT rs.EOF then
rs.MoveNext()
end if
Wend
%>
</XML>
第27行，標識XML版本與語言類型。
第28行，使用屬性total記錄數據庫所有數據。
第40行，輸出XML元素，每條記錄著一條用戶留言。
(9)使用IE瀏覽“listXML.asp”，這個XML文件的結構比較簡單，每條留言記錄都是一個XML節點名為“item”，使用節點屬性來存放數據，XML結構可以更為簡潔，如圖14-4所示。
圖14-3 listXML.asp
(10)打開Flash先制作一個用于顯示留言列表的“顯示條”，畫個矩形背景再創建兩個文本框名為“title”和“date”用來顯示標題和日期，如圖14-5所示。
圖14-4 制作“顯示條”
(11)將“顯示條”轉化為影片剪輯名為“item”，類路徑為“com.GB4.Item”，如圖1- 所示。
圖14-5 轉化為影片剪輯
(12)編寫顯示條的AS類文件“Item.as”。
AS3代碼
package com.GB4{
import flash.display.*;
import flash.events.*;
import flash.events.IOErrorEvent;
import flash.system.System;
import flash.text.TextField;
public class Item extends MovieClip {
var id:Number;
public function Item() {
stop();
this.addEventListener(MouseEvent.MOUSE_OVER,overFun);
this.addEventListener(MouseEvent.MOUSE_OUT,outFun);
this.addEventListener(MouseEvent.CLICK,clickFun);
}
private function overFun(event:MouseEvent):void {
gotoAndStop(2);
date.textColor=0x000000;
title.textColor=0x000000;
}
private function outFun(event:MouseEvent):void {
gotoAndStop(1);
date.textColor=0xffffff;
title.textColor=0xffffff;
}
private function clickFun(event:MouseEvent):void {
main.showMsg(id)
}
}
}
(13)好了，再編寫main文檔類，我們先把數據讀進去。
AS3代碼
package com.GB4{
import flash.display.*;
import flash.events.*;
import flash.net.URLLoader;
import flash.net.URLRequest;
import flash.events.IOErrorEvent;
import flash.system.System;
import flash.utils.*;//使用MC時引入
import flash.text.TextField;
import fl.transitions.Tween;
import fl.transitions.easing.*;
public class main extends Sprite {
private var pageNum:Number = 0;
private var item:Item;
private var itemBox:Sprite;
private var controlBar:ControlBar;
public static var showMsg:Function;
private var getXML:XML;
private var msgBox:MsgBox = new MsgBox;
private var writeBox:WriteBox = new WriteBox;
private var thenPage:Number=1;
private var allPage:Number=0;
public function main() {
showMsg=showMsgFun;
controlBar=new ControlBar;
controlBar.x=50;
controlBar.y=300;
addChild(controlBar);
loadPage(1);
addChild(msgBox);
msgBox.visible=false;
msgBox.x=120
msgBox.y = 50
writeBox.visible=false;
writeBox.x=120
writeBox.y = 50
addChild(writeBox);
writeBox.closeBt.addEventListener(MouseEvent.CLICK, hideWriteBox);
msgBox.closeBt.addEventListener(MouseEvent.CLICK, hideMsgBox);
controlBar.prevPage.addEventListener(MouseEvent.CLICK, prevPageFun);
controlBar.nextPage.addEventListener(MouseEvent.CLICK, nextPageFun)
controlBar.writeBt.addEventListener(MouseEvent.CLICK,writeFun)
}
/*加載數據庫轉化的XML文件*/
private function loadPage(_pageNum:Number):void {
var myLoader:URLLoader = new URLLoader();
System.useCodePage=true;
myLoader.addEventListener(Event.COMPLETE,loadComplete);
myLoader.addEventListener(IOErrorEvent.IO_ERROR,loadError);
myLoader.load(new URLRequest("http://localhost/GB4/listXML.asp?pageNum=" + (_pageNum-1) + "&tag=" + Math.random() * 50));
thenPage=_pageNum
}
/*XML文件獲取轉化*/
private function loadComplete(event:Event):void {
XML.ignoreWhitespace = true;
var str:String=event.target.data;
str=str.slice(0,str.lastIndexOf(">")+1);
getXML = new XML(str);
allPage =Number(getXML.@total)
if (allPage % 10==0) {
allPage=int(allPage/10)
}else {
allPage=int(allPage/10)+1
}
controlBar.showTxt.text="當前第"+thenPage+"頁 總共"+allPage+"頁"
printItem();
}
技術看板：AS代碼解釋
第20行，初始化時先讀取第1頁。
第23行，私有函數loadPage()帶有一個參數“_pageNum”控制要加載的頁數，加載listXML留言列表文件。
第24行，文件的加載路徑，讀者可以跟據自己在IIS中設置的路徑來修改，最后一個“&tag=”的作用防止讀取緩存中的數據，所以多設了個變量“tag”并使用隨機值保證每次都從數據庫從新加載資料。
第30行，將所加載的頁面賦給變量“thenPage”將當前頁存放起來在翻動頁面時使用。
第37行，加載成功后轉化為XML對象“getXML”。
第38~43行，讀取數據庫所有留言數計算出總共頁數，每頁為10條記錄，如果能被整除則取整為總頁數否則取整加一為總頁數。
上一頁12 下一頁 閱讀全文
