asp access數(shù)據(jù)庫(kù)并生成XML文件范例

% @language="VBScript" @codepage="65001"%>
%
'開(kāi)啟顯式變量聲明
Option Explicit
'設(shè)置輸出類(lèi)型
Response.contentType="text/xml"
'定義三個(gè)變量，conn（Connection對(duì)象）、connstr（ConnectionString）、sql（一個(gè)SQL語(yǔ)句）
dim conn,connstr,rs,sql,i
'定義ConnectionString的值
i=1
connstr="provider=Microsoft.Jet.OLEDB.4.0;data source="Server.MapPath("test.mdb")";"
'建立服務(wù)器連接對(duì)象
set conn=Server.CreateObject("ADODB.Connection")
'建立數(shù)據(jù)集對(duì)象
set rs=Server.CreateObject("ADODB.RecordSet")
'打開(kāi)數(shù)據(jù)連接
conn.open connstr
'本句的意思是到word數(shù)據(jù)表內(nèi)按id字段值的升序取出前100個(gè)song1name，dong1url字段的值。值被附加到數(shù)據(jù)集對(duì)象上被當(dāng)作數(shù)據(jù)集的一個(gè)屬性。
sql="select top 100 [song1name],[dong1url] from [test] order by id desc"
'游標(biāo)類(lèi)型和鎖定類(lèi)型都設(shè)置為1，這是一個(gè)只能向前的只讀行為，讀取速度最快
rs.open sql,conn,1,1
Response.Write("?xml version='1.0' encoding='utf-8'?>淘沙網(wǎng)>")
'進(jìn)行do while循環(huán)，條件循環(huán)到符合條件的最后一項(xiàng)
do while not rs.eof
'這是修改的部分，使輸出的文件能夠被Flash中的LoadVars對(duì)象識(shí)別。
Response.Write("歌曲信息>歌名>"rs("song1name")"/歌名>地址>"rs("dong1url"))"/地址>/歌曲信息>"
'記錄下移
rs.movenext
i=i+1
'與do while呼應(yīng)的loop方法，為主循環(huán)體
loop
Response.Write("/淘沙網(wǎng)>")
'將數(shù)據(jù)集對(duì)象關(guān)閉
rs.close
'將數(shù)據(jù)庫(kù)連接關(guān)閉
conn.close
'釋放數(shù)據(jù)集資源
set rs=nothing
'釋放數(shù)據(jù)庫(kù)連接資源
set conn=nothing
%>

//定義組件
var my_TextArea:mx.controls.TextArea;
var my_List:mx.controls.List;
var my_XML:XML = new XML();
my_XML.load("http://www.taoshaw.com/taoshaw/study/accessAndList/xml.asp");
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);

useCodePage 屬性
useCodePage:Boolean [read-write]
語(yǔ)言版本 : ActionScript 3.0
Player 版本 : Flash Player 9
一個(gè)布爾值，它告訴 Flash Player 使用哪個(gè)代碼頁(yè)來(lái)解釋外部文本文件。 當(dāng)該屬性設(shè)置為 false 時(shí)，F(xiàn)lash Player 使用 Unicode 解釋外部文本文件。 （保存這些文件時(shí)，必須使用 Unicode 對(duì)其進(jìn)行編碼。） 當(dāng)該屬性設(shè)置為 true 時(shí)，F(xiàn)lash Player 使用運(yùn)行播放器的操作系統(tǒng)的傳統(tǒng)代碼頁(yè)來(lái)解釋外部文本文件。 useCodePage 的默認(rèn)值是 false。
作為外部文件加載（使用 flash.display.Loader.load()、flash.net.URLLoader、flash.net.URLStream 或 XML 類(lèi)）的文本必須已使用 Unicode 編碼格式保存，這樣 Flash Player 才能將它識(shí)別為 Unicode。 若要使用 Unicode 對(duì)外部文件進(jìn)行編碼，請(qǐng)?jiān)谥С?Unicode 的應(yīng)用程序（例如，Windows 2000 上的“記事本”）中保存這些文件。
如果加載的外部文本文件不是 Unicode 編碼格式，則應(yīng)將 useCodePage 設(shè)置為 true。 在將加載數(shù)據(jù)的 SWF 文件的第一幀中，在最前面添加以下代碼，使之成為第一行代碼：
System.useCodePage = true;有了這一行代碼，F(xiàn)lash Player 將使用運(yùn)行 Flash Player 的操作系統(tǒng)的傳統(tǒng)代碼頁(yè)來(lái)解釋外部文本。 對(duì)于英文 Windows 操作系統(tǒng)，該代碼頁(yè)通常為 CP1252；對(duì)于日語(yǔ)操作系統(tǒng)，該代碼頁(yè)通常為 Shift-JIS。 如果將 useCodePage 設(shè)置為 true，則 Flash Player 6 和更高版本處理文本的方式與 Flash Player 5 相同。 （Flash Player 5 將所有文本都視為按運(yùn)行播放器的操作系統(tǒng)的傳統(tǒng)代碼頁(yè)編碼的文本。）
如果將 useCodePage 設(shè)置為 true，應(yīng)注意：在運(yùn)行播放器的操作系統(tǒng)的傳統(tǒng)代碼頁(yè)中必須包括您的外部文本文件中使用的字符，這樣才能顯示文本。 例如，如果您加載了一個(gè)包含中文字符的外部文本文件，則這些字符不能顯示在使用 CP1252 代碼頁(yè)的系統(tǒng)上，因?yàn)樵摯a頁(yè)不包括中文字符。
為確保所有平臺(tái)上的用戶(hù)都能查看您的 SWF 文件中使用的外部文本文件，應(yīng)將所有外部文本文件按 Unicode 進(jìn)行編碼，并保留 useCodePage 的 false 設(shè)置不變。 這樣，F(xiàn)lash Player 6 和更高版本將按 Unicode 解釋文本。