如何使用Flash连接资料库(新手篇)
作者 佚名技术
来源 服务器技术
浏览
发布时间 2012-07-10
|
由于最近新手来的多, 所以顺便写了这篇简单的例子... 当中列出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")&" " ''' |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: flash中的自带调色板渐变下一篇: GoldWave的下载和基本使用
关于如何使用Flash连接资料库(新手篇)的所有评论
