如何使用Flash連接資料庫_Flash教程

推薦：flash中數組的妙用
在flash中有一個random函數。它可以隨機產生出一個0-1之間的數字，我們可以通過這個函數與數組相結合，非常簡便地實現對一組對象的窮舉。以下是一個非常簡單的

由于最近新手來的多, 所以順便寫了這篇簡單的例子... 當中列出Flash如何通過ASP和PHP連接資料庫的例子...ASP部分未經測試(因為沒安裝IIS).. 但我想也差不了多少, 那么開始吧
首先在Flash中建立入下圖的物件

2個輸入框(name,msg), 1個動態文本(display)和一個按鈕(submit)
例子(一) : Flash ASP Microsoft Access 在Flash第一幀輸入:


function loadData() {
loader = new LoadVars();
loader.load("server.asp?time=" new Date().getTime()); //向ASP取得資料的連接, 這里我不使用Math.random是因為這樣有個缺點
loader.onLoad = function(success) {
if (success) {
display.htmlText = loader.Result; //loader.Result是ASP傳遞回來的資料
}
};
}
submit.onRelease = function() { //當按鈕按下放開的時候
if (name.text.length == 0) { //這里是判定輸入框是否為空
Selection.setFocus(name); //把光標設定在指定的輸入框
} else if (msg.text.length == 0) { //同上
Selection.setFocus(msg);
} else {
status.text = ""; //這個動態文本你們可以自己設定
sender = new LoadVars();
sender.name = name.text; //設定需要傳遞的變量
sender.msg = msg.text;
sender.onLoad = function(success) {
if (success) {
if (sender.Result == "Success") { //傳遞回來的訊息為Success時
status.text = "記錄成功...";
name.text = msg.text=""; //清空輸入欄位
loadData(); //重新刷新資料
} else {
status.text = "記錄失敗, 請再次嘗試...";
}
delete sender; //養成習慣把LoadVars變量刪除以釋放內存空間
}
};
sender.sendAndLoad("server.asp?action=save", sender, "POST"); //傳送出變量并等待資料傳回, 傳回的資料會在onLoad中截取
}
};
loadData(); //在一開始載入資料庫中的資料在ASP部分


<%
Set cnnDB = Server.CreateObject("ADODB.Connection") ''建立ADODB連接
Con = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("./Database.mdb") ''設定與資料庫的連接, 資料庫名為Database
cnnDB.Open Con ''進行連接

if Request("action") = "save" then ''當Flash傳遞來的action變量為save的時候
strName = Request("name") ''取得變量name, 在這里我沒有做符號的檢查, 你們可以自行編寫
strMsg = Request("msg")
strSQL = "INSERT INTO guestbook(Name, Message) VALUES (''"&strName&"'', ''"&strMsg&"'')" ''增加資料庫的設定, 資料表名為guestbook, 當中有Name和Message欄位
cnnDB.Execute strSQL ''執行增加資料
Response.Write "&Result=Success"
else
Set rstObj = Server.CreateObject("ADODB.Recordset") ''建立Recordset
strSQL = "SELECT * FROM guestbook" ''取得資料表中的所有資料
rstObj.Open strSQL, cnnDB ''使用Recordset連接資料表

Do While Not rstObj.EOF ''檢查資料是否為最后一筆, 不是就進行下列指令
record = record & rstObj("Name")&" : "&rstObj("Message")&"<br>" ''使用變量儲存每一行的資料
rstObj.MoveNext ''移動到下一筆資料
Loop

Response.Write "&Result="&record&"<br><b>Finish</b>" ''最后把變量傳遞回Flash

rstObj.Close ''結束Recordset連接
Set rstObj = Nothing ''把Recordset的指針設定為無
end if

cnnDB.Close ''結束資料庫連接
Set cnnDB = Nothing ''設定資料庫指針為無
%>

********** ASP 連接 MySQL 的方法 ***********


<%
Dim LE_DSN
Dim Conn
Dim ServerAddress
Dim DBName
Dim UID
Dim Password

ServerAddress = "localhost" ''服務器的DNS名
DBName = "Super-Tomato" ''資料庫名字
UID = "" ''用戶名
Password = "" ''用戶密碼

LE_DSN = "driver={MySql};server=" & ServerAddress & ";db=" & DBName & ";user id=" & UID & ";pwd=" & Password & ";option=16386"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open LE_DSN

Set rstObj = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM guestbook"
rstObj.Open strSQL,Conn

%>

分享：用as來控制圖片的曝光效果
制作方法：首先，我這里是建的場景大小是：550*400，然后找兩副自己喜歡的圖片（不喜歡也行），新建一元件，把其中一副圖片居中放入第一楨，再把另一副圖片居