flash+asp+access資料載入進LIST組件

簡單asp載入access資料庫並產生XML檔案,簡單asp載入access資料庫，並產生XML，然後再將XML資料載入進LIST組件範例學習。

asp代碼:

 

<% @language="VBScript" @codepage="65001"%>
<%
'開啟顯式變數聲明
Option Explicit
'設定輸出類型
Response.contentType="text/xml"
'定義三個變數，conn（Connection對象）、connstr（ConnectionString）、sql（一個SQL語句）
dim conn,connstr,rs,sql,i
'定義ConnectionString的值
i=1
connstr="provider=Microsoft.Jet.OLEDB.4.0;data source="&Server.MapPath("test.mdb")&";"
'建立伺服器連線物件
set conn=Server.CreateObject("ADODB.Connection")
'建立資料集對象
set rs=Server.CreateObject("ADODB.RecordSet")
'開啟資料連線
conn.open connstr
'本句的意思是到word資料表內按id欄位值的升序取出前100個song1name，dong1url欄位的值。值被附加到資料集對象上被當作資料集的一個屬性。
sql="select top 100 [song1name],[dong1url] from [test]  order by id desc"
'遊標類型和鎖定類型都設定為1，這是一個只能向前的唯讀行為，讀取速度最快
rs.open sql,conn,1,1
Response.Write("<?xml version='1.0' encoding='utf-8'?><淘沙網>")
'進行do while迴圈，條件迴圈到合格最後一項
do while not rs.eof
'這是修改的部分，使輸出的檔案能夠被Flash中的LoadVars對象識別。
Response.Write("<歌曲資訊><歌名>"&rs("song1name")&"</歌名><地址>"&rs("dong1url"))&"</地址></歌曲資訊>"
'記錄下移
rs.movenext
i=i+1
'與do while呼應的loop方法，為主迴圈體
loop
Response.Write("</淘沙網>")
'將資料集對象關閉
rs.close
'將資料庫連接關閉
conn.close
'釋放資料集資源
set rs=nothing
'釋放資料庫連接資源
set conn=nothing
%>
在flash中的第一貞加上下面代碼

//定義組件
var my_TextArea:mx.controls.TextArea;
var my_List:mx.controls.List;
var my_XML:XML = new XML();
my_XML.load("http://www.111cn.net");
my_XML.onLoad = function(ok:Boolean) {
if (ok) {
for (i=0; i[td] my_List.addItem({label:this.firstChild.childNodes.childNodes[0].childNodes[0].nodeValue, data:this.firstChild.childNodes.childNodes[1].childNodes[0].nodeValue});
}
}
};
var my_Object:Object = new Object();
my_Object.change = function(eventObj:Object):Void {
my_TextArea.text += eventObj.target.selectedItem.label+"\n";
};
my_List.addEventListener("change", my_Object);