Flash+ASP+XML+Access开发留言本（图文教程）

<%
Db = "head/db.mdb"
conn = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
%>

<%@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()
%>

<%
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
%>

<?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>

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)
}
}
}

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();
}