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

來源:設計前沿網上收集 作者:未知更新時間:2008-03-04點擊:
由于最近新手來的多, 所以順便寫了這篇簡單的例子... 當中列出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

%>


相關Flash教程:
最新評論:
loading.. 評論加載中....
發表評論:不能超過250字節,請自覺遵守互聯網相關政策法規.
  • 昵稱: 驗證: