Flash连接数据库
来源:互联网 发布:淘宝能追评几次 编辑:程序博客网 时间:2024/05/01 09:14
首先在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
%>
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连接数据库
- FLASH连接数据库
- FLASH连接数据库方法
- Flash连接数据库
- FLASH连接数据库
- flash与数据库的连接
- flash运用sendAndLoad()连接数据库
- Flash与ASP进行连接数据库操作
- 在Flash中实现与数据库的连接
- Flash连接服务器
- Flash 连接 Mysql
- FLASH找不到连接设备
- flash 连接 erlang
- flash builder plugin BlazeDS 连接Flex和Java,数据库SQL server 2008
- FLASH调用数据库
- flash 与数据库 图解
- oracle 数据库 Flash back
- flash的socket连接安全策略
- Ant学习系列 -- Web项目发布到远程服务器上
- vim 配置文件 ,高亮+自动缩进+行号+折叠+优化
- 浅谈敏捷与CMMI
- execCommand全集
- Bluetooth profile移植(键盘,鼠标)
- Flash连接数据库
- SAP移动类型详细说明
- LoadRunner11录制无法打开IE的解决办法
- Js 屏蔽右键
- 关于JSP显示中文乱码的困恼。
- java基本数据类型及其封装类
- JS控制FLASH
- 利用udf函数将hive统计结果直接插入到mysql
- 黑马程序员 Java基础<八>---> 集合-工具类