在看這個(gè)例子之前，先講講Flash和Asp結(jié)合的原理，其實(shí)懂一點(diǎn)ASP的朋友都知道ASP是基于HTML的.

　　其實(shí)Flash和Asp接口的原理和純ASP文件之間交互的原理是一樣的,簡(jiǎn)單地說(shuō)就是頁(yè)面之間的數(shù)據(jù)交換。了解了這一點(diǎn)之后，我們來(lái)看看下面這個(gè)簡(jiǎn)單的例子：

　　這個(gè)例子是把ACCESS內(nèi)的數(shù)據(jù)讀出來(lái)，并在Flash內(nèi)顯示出來(lái)。這個(gè)例子一共有三個(gè)主要文件，一個(gè)是ACCESS的數(shù)據(jù)庫(kù)文件employees.mdb，它有一個(gè)employees表，有四個(gè)字段：ID，Namelast，Lastname，Position。

　　現(xiàn)在我們就來(lái)看看這個(gè)例子的制作過(guò)程吧。第一個(gè)影幀，ACTION是stop，有一個(gè)供用戶(hù)輸入查詢(xún)字段的文本框：strSearch，一個(gè)按鈕：submit，它的ACTION是

　　于 (放開(kāi))

　　　跳至并播放 (2)

　　退出于

　　第二個(gè)影幀的ACTION是：載入?yún)��?shù) ("employee.asp", 0, vars=GET)

　　這個(gè)ACTION的作用是通過(guò)ASP文件把ACCESS數(shù)據(jù)庫(kù)內(nèi)符合用戶(hù)查詢(xún)條件的數(shù)據(jù)讀出來(lái)。

　　第三個(gè)影幀的ACTION是：

　　如果(NameFirst ne "")

　　　跳至并停止 (9)

　　退出如果

　　意思是如果NameFirst不等于空值的話(huà)，就跳到第九個(gè)影幀；否則將會(huì)執(zhí)行下去（即播放下一個(gè)影幀）。

　　第4-7個(gè)影幀都沒(méi)有ACTION哦。

　　第八個(gè)影幀的ACTION是：

　　跳至并播放 (3)

　　回過(guò)頭來(lái)再看看第三個(gè)影幀看看，呵呵，懂了吧？

　　如果沒(méi)有符合的數(shù)據(jù)的話(huà)，就一直讀到有為止；讀到了就跳到第九個(gè)影幀哦。

　　那么再來(lái)看看第九個(gè)影幀：

　　一共有三個(gè)文本框：NameFirst，NameLast，Position

　　數(shù)據(jù)庫(kù)內(nèi)符合查詢(xún)條件的數(shù)據(jù)將會(huì)顯示在他們之中哦！

　　還有一個(gè)按鈕：Do It Again

　　它的ACTION是：

　　于 (放開(kāi))

　　　　跳至并停止 (1)

　　退出于

　　好了，再來(lái)看看employee.asp這個(gè)文件吧：

Dim oRS, oConn 定義兩個(gè)變量
Set oRS = Server.CreateObject("ADODB.Recordset"） 定義oRS為RECORDSET對(duì)象
Set oConn = Server.CreateObject("ADODB.Connection") 定義oConn為CONNECTION對(duì)象
oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};
DBQ=" & Server.MapPath("employees.mdb")
oRS.Open "SELECT * FROM Employees", oConn, 2, 3
嘿嘿，這兩句不用說(shuō)了吧？打開(kāi)數(shù)據(jù)庫(kù)哦
oRS.Find "NameLast = " & UCase(Request.QueryString("strSearch")) & ""
找到符合條件的數(shù)據(jù)

If oRS.EOF Then 如果數(shù)據(jù)指針已到底
　Response.Write "NameLast=Not+Found&NameFirst=Not+Found&Position=Not+Found"
　 呵呵，那么NameLast就是沒(méi)有找到符合條件的數(shù)據(jù)咯
　Else
　　Response.Write "NameFirst="
　　& Server.URLEncode(oRS("NameFirst"))
　　& "&NameLast=" & Server.URLEncode(oRS("NameLast"))
　　& "&Position=" & Server.URLEncode(oRS("Position"))
　　找到的話(huà)就是找到咯（廢話(huà)嘛。。。）
End If

oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing 關(guān)閉并清空數(shù)據(jù)庫(kù)對(duì)象