怎么用flash链接数据库,最好麻烦会的朋友做一下给我发个源文件

怎么用flash链接数据库,最好麻烦会的朋友做一下给我发个源文件,第1张

NET)结合才能实现。 我不知道你用什么语言的,我写两个最简单的例子: 一.FLASH读取外部信息--------------- 建一文本文件,其内容如下: myvar1=aaa&myvar2=bbb 同目录建一FLASH,保存为a.fla,在第一桢,建两个动态文本,在下面属性栏,分别设置其变量名为myvar1和myvar2,在桢上写as代码: loadVariables("myvar.txt",_root) 运行一下看看。 你应该可以用动态语言读取数据库并输出类似以上文本文件内容吧 二。FLASH向外部发送数据: 以上面的flash文件和asp为例, 建一个a.asp,其内容如下: 在flash里新建一个按纽,并为按纽写代码: on(release){ getURL("a.asp","_blank","GET")} 在网站环境下运行试试,假设你的网站在本机测试,刚才的文件在网站根目录,则用地址“”测试一下看

先讲讲Flash和Asp结合的原理,其实懂一点ASP的朋友都知道ASP是基于HTML的.

其实Flash和Asp接口的原理和纯ASP文件之间交互的原理是一样的,简单地说就是页面之间的数据交换。了解了这一点之后,我们来看看下面这个简单的例子:

这个例子是把ACCESS内的数据读出来,并在Flash内显示出来。这个例子一共有三个主要文件,一个是ACCESS的数据库文件employees.mdb,它有一个employees表,有四个字段:ID,Namelast,Lastname,Position。

现在我们就来看看这个例子的制作过程吧。第一个影帧,ACTION是stop,有一个供用户输入查询字段的文本框:strSearch,一个按钮:submit,它的ACTION是

于 (放开)

 跳至并播放 (2)

退出于

第二个影帧的ACTION是:载入参数 ("employee.asp", 0, vars=GET)

这个ACTION的作用是通过ASP文件把ACCESS数据库内符合用户查询条件的数据读出来。

第三个影帧的ACTION是:

如果(NameFirst ne "")

 跳至并停止 (9)

退出如果

意思是如果NameFirst不等于空值的话,就跳到第九个影帧;否则将会执行下去(即播放下一个影帧)。

第4-7个影帧都没有ACTION哦。

第八个影帧的ACTION是:

跳至并播放 (3)

回过头来再看看第三个影帧看看,呵呵,懂了吧?

如果没有符合的数据的话,就一直读到有为止;读到了就跳到第九个影帧哦。

那么再来看看第九个影帧:

一共有三个文本框:NameFirst,NameLast,Position

数据库内符合查询条件的数据将会显示在他们之中哦!

还有一个按钮:Do It Again

它的ACTION是:

于 (放开)

跳至并停止 (1)

退出于

好了,再来看看employee.asp这个文件吧:

Dim oRS, oConn 定义两个变量

Set oRS = Server.CreateObject("ADODB.Recordset") 定义oRS为RECORDSET对象

Set oConn = Server.CreateObject("ADODB.Connection") 定义oConn为CONNECTION对象

oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)}

DBQ=" &Server.MapPath("employees.mdb")

oRS.Open "SELECT * FROM Employees", oConn, 2, 3

嘿嘿,这两句不用说了吧?打开数据库哦

oRS.Find "NameLast = " &UCase(Request.QueryString("strSearch")) &""

找到符合条件的数据

If oRS.EOF Then 如果数据指针已到底

 Response.Write "NameLast=Not+Found&NameFirst=Not+Found&Position=Not+Found"

  呵呵,那么NameLast就是没有找到符合条件的数据咯

 Else

Response.Write "NameFirst="

&Server.URLEncode(oRS("NameFirst"))

&"&NameLast=" &Server.URLEncode(oRS("NameLast"))

&"&Position=" &Server.URLEncode(oRS("Position"))

找到的话就是找到咯(废话嘛。。。)

End If

oRS.Close

Set oRS = Nothing

oConn.Close

Set oConn = Nothing 关闭并清空数据库对象

有两种情况。

第一种是将用户名密码直接在flash里写好,然后再帧上写代码,if((username.text==US)&&(password.text==PS)){gotoAndPlay(2)}

第二种是添加数据库,在数据库中输入用户名和密码,然后再flash中调用。


欢迎分享,转载请注明来源:内存溢出

原文地址:https://54852.com/sjk/6809299.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-03-28
下一篇2023-03-28

发表评论

登录后才能评论

评论列表(0条)

    保存