|
 |
栏目导栏 |
|
| |
|
|
|
|
|
资料搜索 |
|
| |
|
|
|
|
|
热门文章 |
|
| |
|
|
|
|
|
最新文章 |
|
| |
|
|
|
| |
| |
|
|
|
|
在看这个例子之前，先讲讲Flash和ASP结合的原理，其实懂一点ASP的朋友都知道ASP是基于HTML的. 33rLinux联盟
33rLinux联盟
其实Flash和Asp接口的原理和纯ASP文件之间交互的原理是一样的,简单地说就是页面之间的数据交换。了解了这一点之后，我们来看看下面这个简单的例子： 33rLinux联盟
33rLinux联盟
这个例子是把Access内的数据读出来，并在Flash内显示出来。这个例子一共有三个主要文件，一个是ACCESS的数据库文件employees.mdb，它有一个employees表，有四个字段：ID，Namelast，Lastname，Position。 33rLinux联盟
33rLinux联盟
现在我们就来看看这个例子的制作过程吧。第一个影帧，ACTION是stop，有一个供用户输入查询字段的文本框：strSearch，一个按钮：submit，它的ACTION是 33rLinux联盟
33rLinux联盟
于 (放开) 33rLinux联盟
33rLinux联盟
跳至并播放 (2) 33rLinux联盟
33rLinux联盟
退出于 33rLinux联盟
33rLinux联盟
第二个影帧的ACTION是：载入参数 ("employee.asp", 0, vars=GET) 33rLinux联盟
33rLinux联盟
这个ACTION的作用是通过ASP文件把ACCESS数据库内符合用户查询条件的数据读出来。 33rLinux联盟
33rLinux联盟
33rLinux联盟
第三个影帧的ACTION是： 33rLinux联盟
33rLinux联盟
如果(NameFirst ne "") 33rLinux联盟
33rLinux联盟
跳至并停止 (9) 33rLinux联盟
33rLinux联盟
退出如果 33rLinux联盟
33rLinux联盟
意思是如果NameFirst不等于空值的话，就跳到第九个影帧；否则将会执行下去（即播放下一个影帧）。 33rLinux联盟
33rLinux联盟
第4-7个影帧都没有ACTION哦。 33rLinux联盟
33rLinux联盟
第八个影帧的ACTION是： 33rLinux联盟
33rLinux联盟
跳至并播放 (3) 33rLinux联盟
33rLinux联盟
回过头来再看看第三个影帧看看，呵呵，懂了吧？ 33rLinux联盟
33rLinux联盟
如果没有符合的数据的话，就一直读到有为止；读到了就跳到第九个影帧哦。 33rLinux联盟
33rLinux联盟
那么再来看看第九个影帧： 33rLinux联盟
33rLinux联盟
一共有三个文本框：NameFirst，NameLast，Position 33rLinux联盟
33rLinux联盟
数据库内符合查询条件的数据将会显示在他们之中哦！ 33rLinux联盟
33rLinux联盟
还有一个按钮：Do It Again 33rLinux联盟
33rLinux联盟
它的ACTION是： 33rLinux联盟
33rLinux联盟
于 (放开) 33rLinux联盟
33rLinux联盟
跳至并停止 (1) 33rLinux联盟
33rLinux联盟
退出于 33rLinux联盟
33rLinux联盟
好了，再来看看employee.asp这个文件吧： 33rLinux联盟
33rLinux联盟
Dim oRS, oConn 定义两个变量 33rLinux联盟
Set oRS = Server.CreateObject("ADODB.Recordset"） 定义oRS为RECORDSET对象 33rLinux联盟
Set oConn = Server.CreateObject("ADODB.Connection") 定义oConn为CONNECTION对象 33rLinux联盟
oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)}; 33rLinux联盟
DBQ=" & Server.MapPath("employees.mdb") 33rLinux联盟
oRS.Open "SELECT * FROM Employees", oConn, 2, 3 33rLinux联盟
嘿嘿，这两句不用说了吧？打开数据库哦 33rLinux联盟
oRS.Find "NameLast = " & UCase(Request.QueryString("strSearch")) & "" 33rLinux联盟
找到符合条件的数据 33rLinux联盟
33rLinux联盟
If oRS.EOF Then 如果数据指针已到底 33rLinux联盟
Response.Write "NameLast=Not+Found&NameFirst=Not+Found&Position=Not+Found" 33rLinux联盟
呵呵，那么NameLast就是没有找到符合条件的数据咯 33rLinux联盟
Else 33rLinux联盟
Response.Write "NameFirst=" 33rLinux联盟
& Server.URLEncode(oRS("NameFirst")) 33rLinux联盟
& "&NameLast=" & Server.URLEncode(oRS("NameLast")) 33rLinux联盟
& "&Position=" & Server.URLEncode(oRS("Position")) 33rLinux联盟
找到的话就是找到咯（废话嘛。。。） 33rLinux联盟
End If 33rLinux联盟
33rLinux联盟
oRS.Close 33rLinux联盟
Set oRS = Nothing 33rLinux联盟
oConn.Close 33rLinux联盟
Set oConn = Nothing 关闭并清空数据库对象 33rLinux联盟
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
|
|
|
|
