如何使用Flash連接資料庫_Flash教程
教程Tag:暫無Tag,歡迎添加,賺取U幣!
推薦: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,然后找兩副自己喜歡的圖片(不喜歡也行),新建一元件,把其中一副圖片居中放入第一楨,再把另一副圖片居
相關Flash教程:
- 相關鏈接:
- 教程說明:
Flash教程-如何使用Flash連接資料庫。