asp+access+as3+flash留言本

文件一：建立一个文本文档复制下面的内容（不包含行号），另存为conn.asp放在IIS测试目录里
1         <%
2         On Error Resume Next
3         set conn=server.createobject("adodb.connection")
4         connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("db2.mdb")
5         conn.open connstr
6         If Err Then
7         err.Clear
8         Set Conn = Nothing
9         End If
10 %>
说明一下上面的文档：
第一行和最后一行的<% %>符号表示asp代码的开始和结束；
第二行的意思是,如果在执行（代码）过程中出错，则执行下一行；
第三行到第五行的功能是，和数据库建立连接，并打开这个连接；
第六行到第九行的功能是，如果执行过程中有错误，则清空所有错误信息；并断开连接。
以上文档，并非完全必要，你也可以把它进行简单化处理,比如：
<%
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("db2.mdb")
conn.open connstr
%>
文档中出现的db2.mdb就是asp+access+as3+flash留言本教程——asp篇中建立的数据库名称。
文件二：
下面建立一个读取数据库中信息的asp页面文件，index.asp
内容如下：
<%@LANGUAGE="VBScript" codepage="936"%>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select name,qq,mail,content,date from book order by id desc"
rs.open sql,conn,1,1
%>
<guestbook>
<%do while not rs.eof%> <record>
         <name> <%=rs("name")%> </name>
         <date> <%=rs("date")%> </date>
         <content><%=rs("content")%></content>
         <qq> <%=rs("qq")%> </qq>
         <email> <%=rs("mail")%> </email>
</record>
<%
rs.movenext
loop
%></guestbook>
说明一下上面的文档：
<%
set rs=server.createobject("adodb.recordset")
sql="select name,qq,mail,content,date from book order by id desc"
rs.open sql,conn,1,1
%>
这一段的含义是建立一个查询数据集合，又叫记录集（RecordSet）



文件三： addsave.asp
<%@LANGUAGE="VBScript" codepage="936"%>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select name,qq,mail,content,date from book"
rs.open sql,conn,1,3
rs.addnew
rs("name")=Request.querystring("name")
rs("qq")=Request.querystring("qq")
rs("mail")=Request.querystring("mail")
rs("content")=Request.querystring("content")
rs.update
rs.close
set rs=nothing
conn.close
set rs=nothing
%>
文件的作用是向数据库中添加文件。



把下面的代码复制到第一帧：

import fl.controls.dataGridClasses.DataGridColumn;
import fl.data.DataProvider;
import flash.events.Event;

System.useCodePage=true;

var loader:URLLoader = new URLLoader();
var txturl:String="http://127.0.0.1/notebook/index.asp";
var request:URLRequest = new URLRequest(txturl);
var listrecord:XML;

request.method = URLRequestMethod.GET;
loader.dataFormat = URLLoaderDataFormat.TEXT;
loader.addEventListener(ProgressEvent.PROGRESS, progressHandler);
loader.addEventListener(Event.COMPLETE, loader_complete);
mylist.addEventListener(Event.CHANGE, myDG_change);
loader.load(request);

function loader_complete(evt:Event):void {
listrecord=new XML(loader.data);
loading.visible=false;
var contentCol:DataGridColumn = new DataGridColumn("content");
contentCol.headerText = "内容摘要";
contentCol.width = 120;
contentCol.sortable =false;
//var myDG:DataGrid
var myDP:DataProvider = new DataProvider(listrecord);
mylist.columns = [contentCol];
mylist.dataProvider = myDP;
mylist.sortableColumns ;
//myDG.dataProvider =new dataProvider(listrecord);
}

function myDG_change(evt:Event) {
var i:Number =mylist.selectedIndex;
mycontent.htmlText="姓名："+listrecord.record.name+"<br>";
mycontent.htmlText+="日期："+listrecord.record.date+"<br>";
mycontent.htmlText+="ＱＱ："+listrecord.record.qq+"<br>";
mycontent.htmlText+="email："+listrecord.record.email+"<br>";
mycontent.htmlText+="内容："+listrecord.record.content+"<br>";
}

说明一下上面的代码
import fl.controls.dataGridClasses.DataGridColumn;
import fl.data.DataProvider;
import flash.events.Event;
//导入运行时必备的一些类库。

System.useCodePage=true;
//设置系统的语言支持，如果没有这一句的话，汉字会显示成乱码。

var loader:URLLoader = new URLLoader();
//定义一个加载数据类URLLoader 的一个实例loader。
var txturl:String="http://127.0.0.1/notebook/index.asp";
//定义网址字符串。
var request:URLRequest = new URLRequest(txturl);
//定义URLRequest，用来和 loader结合从网站获取数据。
var listrecord:XML;
//定义xml用来接收loader从网站上获取来的数据

request.method = URLRequestMethod.GET;
//相当于在网页中的form标签里设置数据获取方式为GET。
loader.dataFormat = URLLoaderDataFormat.TEXT;
//格式化数据
loader.addEventListener(ProgressEvent.PROGRESS, progressHandler);
//为loader添加事件处理函数：
//事件为ProgressEvent.PROGRESS，即加载数据的进度
//函数为：progressHandler（见下文）
loader.addEventListener(Event.COMPLETE, loader_complete);
//为loader添加事件处理函数：
//事件为Event.COMPLETE，即数据加载完毕
//函数为：loader_complete（见下文）
mylist.addEventListener(Event.CHANGE, myDG_change);
//为mylist添加事件处理函数：
//事件为Event.CHANGE，即当前列表项焦点发生变化时
//函数为：myDG_change（见下文）
loader.load(request);
//开始加载数据

function loader_complete(evt:Event):void {
/*数据加载完毕执行的代码
/
/
/
*/
listrecord=new XML(loader.data);
loading.visible=false;
var contentCol:DataGridColumn = new DataGridColumn("content");
contentCol.headerText = "内容摘要";
contentCol.width = 120;
contentCol.sortable =false;
//var myDG:DataGrid
var myDP:DataProvider = new DataProvider(listrecord);
mylist.columns = [contentCol];
mylist.dataProvider = myDP;
mylist.sortableColumns ;
//myDG.dataProvider =new dataProvider(listrecord);
}


function myDG_change(evt:Event) {
/*留言列表被单击时执行的代码

*/
var i:Number =mylist.selectedIndex;
mycontent.htmlText="姓名："+listrecord.record.name+"<br>";
mycontent.htmlText+="日期："+listrecord.record.date+"<br>";
mycontent.htmlText+="ＱＱ："+listrecord.record.qq+"<br>";
mycontent.htmlText+="email："+listrecord.record.email+"<br>";
mycontent.htmlText+="内容："+listrecord.record.content+"<br>";
}

function progressHandler(event:ProgressEvent):void {
/*数据加载过程中执行的代码

*/
loading.setProgress(event.bytesLoaded*150/event.bytesTotal, loading.maximum);
}