Flash+ASP+XML+Access開發(fā)留言本（圖文教程）
發(fā)布時間：2014-07-24 14:55:23 作者：佚名 
我要評論
我要評論開發(fā)Flash留言本一直都是Flash后臺交互的進階技術(shù)，本例通過ASP和XML簡單高速地同數(shù)據(jù)庫交互。教程介紹的很詳細，思路也很清晰，教程很實用，轉(zhuǎn)發(fā)過來，希望對大家有所幫助
(14)解析完XML文件，將其打印出來。
AS3代碼
復制代碼
代碼如下:/*XML文件獲取轉(zhuǎn)化*/
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();
}
/*打印留言列表*/
private function printItem():void {
msgBox.visible = false;
writeBox.visible = false;
writeBox.inputBox.visible=true;
writeBox.sendDia.visible=false;
var setY=0;
if (itemBox!=null) {
removeChild(itemBox);
}
itemBox=new Sprite;
itemBox.x=50;
itemBox.y=50;
addChild(itemBox);
for (var i:uint; i<getXML.child("*").length(); i++) {
item=new Item();
item.y=setY;
setY+=23;
item.title.text=getXML.child(i).@title;
item.date.text=getXML.child(i).@date;
item.id=i;
itemBox.addChild(item);
}
}
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();
}
/*打印留言列表*/
private function printItem():void {
msgBox.visible = false;
writeBox.visible = false;
writeBox.inputBox.visible=true;
writeBox.sendDia.visible=false;
var setY=0;
if (itemBox!=null) {
removeChild(itemBox);
}
itemBox=new Sprite;
itemBox.x=50;
itemBox.y=50;
addChild(itemBox);
for (var i:uint; i<getXML.child("*").length(); i++) {
item=new Item();
item.y=setY;
setY+=23;
item.title.text=getXML.child(i).@title;
item.date.text=getXML.child(i).@date;
item.id=i;
itemBox.addChild(item);
}
}
技術(shù)看板：AS代碼解釋
第49~51行，如果itemBox已經(jīng)有了，先移除。
第52行，itemBox用來放置所有item顯示條。
第60行，讀取XML中的“title”屬性即留言標題。
第61行，讀取XML中的“date”屬性即留言日期。
(15)先測試下如圖14-6 所示。
圖14-6 XML列表轉(zhuǎn)化測試
(16)接著往下做，制作控制框“ControlBar”，繪制翻頁用的按鈕和顯示頁數(shù)信息的框，各命名如圖14-7 所示。
圖14-7 代碼
(17)翻頁代碼。
AS3代碼
復制代碼
代碼如下:/*XML文件獲取轉(zhuǎn)化*/
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();
}
private function prevPageFun(event:MouseEvent):void {
if (thenPage > 1) {
loadPage(thenPage-1)
}
}
private function nextPageFun(event:MouseEvent):void {
if (thenPage < allPage) {
loadPage(thenPage+1)
}
}
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();
}
private function prevPageFun(event:MouseEvent):void {
if (thenPage > 1) {
loadPage(thenPage-1)
}
}
private function nextPageFun(event:MouseEvent):void {
if (thenPage < allPage) {
loadPage(thenPage+1)
}
}
技術(shù)看板：AS代碼解釋
第65行，顯示當前頁和總頁數(shù)信息。
第68~71行，上翻一頁。
第73~77行，下翻一頁。
(18)點擊留言列表后，顯示詳細信息，制作信息顯示框“msgBox”如圖14- 8 所示。
圖14- 8 信息顯示框
(19)顯示詳細數(shù)據(jù)。
AS3代碼
復制代碼
代碼如下:/*顯視留言內(nèi)容*/
private function showMsgFun(id:Number):void {
removeChild(itemBox);
itemBox=null;
msgBox.visible = true;
msgBox.showName.text = getXML.child(id).@name;
msgBox.qq.text = getXML.child(id).@qq;
msgBox.title.text = getXML.child(id).@title;
msgBox.msg.htmlText = getXML.child(id).@msg;
}
private function showMsgFun(id:Number):void {
removeChild(itemBox);
itemBox=null;
msgBox.visible = true;
msgBox.showName.text = getXML.child(id).@name;
msgBox.qq.text = getXML.child(id).@qq;
msgBox.title.text = getXML.child(id).@title;
msgBox.msg.htmlText = getXML.child(id).@msg;
}
(20)測試下如圖14-9 所示。
圖14- 9測試
(21)顯示數(shù)據(jù)制作完成，再編寫留言發(fā)送和程序，提交留言數(shù)據(jù)的ASP程序“post.asp”。
ASP/Visual Basic代碼
???? SSI ????????
復制代碼
代碼如下: <%@LANGUAGE="VBSCRIPT"%>
<!--#include file="head/conn.asp" -->
<%
postName=trim(request.form("in_name"))
qq=trim(request.form("in_qq"))
title=trim(request.form("in_title"))
msg=trim(request.form("in_content"))
set add = Server.CreateObject("ADODB.Recordset")
add.ActiveConnection = conn
add.Source = "SELECT * FROM book"
add.CursorType = 0
add.CursorLocation = 2
add.LockType = 2
add.Open()
add_numRows = 0
add.addnew
if qq<>"" then
add("qq")=int(qq)
else
add("qq")=0
end if
add("name")=postName
add("title")=title
add("msg")=msg
add.update
add.Close()
set add=nothing
%>
<!--#include file="head/conn.asp" -->
<%
postName=trim(request.form("in_name"))
qq=trim(request.form("in_qq"))
title=trim(request.form("in_title"))
msg=trim(request.form("in_content"))
set add = Server.CreateObject("ADODB.Recordset")
add.ActiveConnection = conn
add.Source = "SELECT * FROM book"
add.CursorType = 0
add.CursorLocation = 2
add.LockType = 2
add.Open()
add_numRows = 0
add.addnew
if qq<>"" then
add("qq")=int(qq)
else
add("qq")=0
end if
add("name")=postName
add("title")=title
add("msg")=msg
add.update
add.Close()
set add=nothing
%>
技術(shù)看板：ASP代碼解釋
第4~7行，接收Flash上傳來的值。
第17~21行，因為“qq”字段是整型的，所以要先判斷用戶留言時是否有填寫QQ號，默認為0。
第22~25行，寫入數(shù)據(jù)庫。
(22)在Flash中制作留言框“WriteBox”，如圖14- 10 所示。
圖14-10 留言發(fā)送框
(23)發(fā)送成功以后，會有一個提示框，制作提示框命名為“sendDia”如圖14- 11 所示。
圖14-11 提示框
(24)編寫“WriteBox.as”代碼。
AS3代碼
復制代碼
代碼如下:package com.GB4{
import flash.display.*;
import flash.net.URLRequest;
import flash.net.URLLoader;
import flash.net.URLVariables;
import flash.net.URLRequestMethod;
import flash.text.TextField;
import flash.events.MouseEvent;
import flash.events.*;
public class WriteBox extends MovieClip {
public function WriteBox() {
stop();
inputBox.sendBt.addEventListener(MouseEvent.CLICK, sendData);
sendDia.visible=true;
}
private function sendData(event:MouseEvent):void {
if (inputBox.showName.text==""||inputBox.msg.text=="") {
return;
}
var myLoader:URLLoader = new URLLoader();
var loadUrl:URLRequest=new URLRequest("http://localhost/GB4/post.asp");
var variables:URLVariables = new URLVariables();
&nbs, p; , ; variable, , s.in_name=inputBox.showName.text;
variables.in_qq=inputBox.qq.text;
variables.in_title=inputBox.title.text;
variables.in_content = inputBox.msg.text
;
loadUrl.data=variables;
loadUrl.method=URLRequestMethod.POST;
myLoader.addEventListener(Event.COMPLETE,loadComplete);
myLoader.addEventListener(IOErrorEvent.IO_ERROR,loadError);
myLoader.load(loadUrl);
}
private function loadComplete(event:Event):void {
sendDia.visible=true;
inputBox.visible=false;
inputBox.showName.text=inputBox.qq.text=inputBox.title.text=inputBox.msg.text="";
//留言成功以后，清空所有輸入框
}
private function loadError(event:IOErrorEvent):void {
trace("加載出錯");
}
}
}
import flash.display.*;
import flash.net.URLRequest;
import flash.net.URLLoader;
import flash.net.URLVariables;
import flash.net.URLRequestMethod;
import flash.text.TextField;
import flash.events.MouseEvent;
import flash.events.*;
public class WriteBox extends MovieClip {
public function WriteBox() {
stop();
inputBox.sendBt.addEventListener(MouseEvent.CLICK, sendData);
sendDia.visible=true;
}
private function sendData(event:MouseEvent):void {
if (inputBox.showName.text==""||inputBox.msg.text=="") {
return;
}
var myLoader:URLLoader = new URLLoader();
var loadUrl:URLRequest=new URLRequest("http://localhost/GB4/post.asp");
var variables:URLVariables = new URLVariables();
&nbs, p; , ; variable, , s.in_name=inputBox.showName.text;
variables.in_qq=inputBox.qq.text;
variables.in_title=inputBox.title.text;
variables.in_content = inputBox.msg.text
;
loadUrl.data=variables;
loadUrl.method=URLRequestMethod.POST;
myLoader.addEventListener(Event.COMPLETE,loadComplete);
myLoader.addEventListener(IOErrorEvent.IO_ERROR,loadError);
myLoader.load(loadUrl);
}
private function loadComplete(event:Event):void {
sendDia.visible=true;
inputBox.visible=false;
inputBox.showName.text=inputBox.qq.text=inputBox.title.text=inputBox.msg.text="";
//留言成功以后，清空所有輸入框
}
private function loadError(event:IOErrorEvent):void {
trace("加載出錯");
}
}
}
技術(shù)看板：ASP代碼解釋
第14行，先隱藏提示框。
第17行，如果用戶沒有輸入文字則不發(fā)送。
第20~23行，發(fā)送Flash上傳來的值。
第32行，發(fā)送成功，。
第22~25行，寫入數(shù)據(jù)庫。
(25)制作完成測試程序。
以上就是Flash+ASP+XML+Access開發(fā)留言本，雖然內(nèi)容比較多，大部分都是利用代碼編寫，但每一步都介紹的也很詳細，也對代碼進行講解，希望大家看完本教程之后有所收獲！
相關(guān)文章
flash cs6想要實現(xiàn)鼠標跟隨效果？該怎么制作呢？今天我們就來看看使用as2.0實現(xiàn)鼠標跟隨效果的教程，需要的朋友可以參考下2019-05-19
Flash cs6怎么使用代碼輸入中英文文本？Flash cs6中可以使用文字工具直接輸入文本，也可以使用代碼來輸入文本，該怎么使用代碼輸入文本呢？請看下文詳細的教程，需要的朋友2018-03-11
flash as3.0抽象類怎么定義？ as3.0中有很多抽象類，該怎么定義抽象類和抽象方法呢？下面我們就來看看簡單的例子，需要的朋友可以參考下http://www.fzitv.net/softs/408402.2018-02-28
flash cs6中怎么使用ActionScript3.0?
flash cs6中怎么使用ActionScript3.0？flash cs6中想要使用ActionScript3.0功能，該怎么使用呢？下面我們就來看看詳細的教程，需要的朋友可以參考下2018-01-25
本教程給大家分享一個Flash小教程，教大家在Flash CS6中怎么實現(xiàn)鼠標點擊決定圖像位置？方法很簡單，感興趣的朋友歡迎前來一起分享學習2018-01-12
本教程教腳本之家的ActionScript教程學習者在Flash中如何用代碼將圖片放在自己想要的舞臺位置，教程講解的詳細，感興趣的朋友歡迎前來分享學習2017-11-20
在Flash CS6中使用with函數(shù)繪制背景圖教程
本教程教腳本之家的ActionScript教程學習者如何在Flash CS6中使用with函數(shù)繪制背景圖？教程一步步講解的挺詳細，方法也不難，非常適合Flash新手入門學習2017-11-18
Flash怎么設(shè)置元件坐標?flash使用代碼設(shè)置元件的坐標的教程
Flash怎么設(shè)置元件坐標？flash中導如的元件需要添加坐標，該怎么定位元件坐標呢？下面我們就來看看flash使用代碼設(shè)置元件的坐標的教程，需要的朋友可以參考下2017-10-11
Flash怎么制作來回搖擺的花朵的動畫？Flash中想要給花朵制作一段搖擺的動畫效果，該怎么制作呢？下面我們就來看看詳細的教程，很簡單，需要的朋友可以參考下2017-05-23
Flash怎么制作流動七彩色的文字？想要讓文字動起來，該怎么使用flash給文字制作一個流動七彩色的動畫呢？下面我們就來看看詳細的教程，需要的朋友可以參考下2017-04-23
