返回列表 回复 发帖

Flash和Asp数据库的结合应用

在看这个例子之前,先讲讲Flash和Asp结合的原理,其实懂一点ASP的朋友都知道ASP是基于HTML的.
# T* ~. i0 x6 l: k  其实Flash和Asp接口的原理和纯ASP文件之间交互的原理是一样的,简单地说就是页面之间的数据交换。了解了这一点之后,我们来看看下面这个简单的例子:
( m6 d. }. F. a' [  这个例子是把ACCESS内的数据读出来,并在Flash内显示出来。这个例子一共有三个主要文件,一个是ACCESS的数据库文件employees.mdb,它有一个employees表,有四个字段:ID,Namelast,Lastname,Position。 ; x/ q9 l* [: o8 ]* |
  现在我们就来看看这个例子的制作过程吧。第一个影帧,ACTION是stop,有一个供用户输入查询字段的文本框:strSearch,一个按钮:submit,它的ACTION是 0 N9 S( @" U5 R& L  b# Q2 H4 z# O
  于 (放开) 8 ^$ V) _+ c4 x- P9 I/ Q* @2 u: |
   跳至并播放 (2)
3 P6 |, l( l4 ?! I7 S  退出于   ?% U- X% X- J5 t! Z& A! v7 B3 W0 t
  第二个影帧的ACTION是:载入参数 ("employee.asp", 0, vars=GET) " b2 w8 V" d/ G, L% Y8 Z0 W1 h" t2 d
  这个ACTION的作用是通过ASP文件把ACCESS数据库内符合用户查询条件的数据读出来。 + i# W1 g9 E- l; @0 H
( a  c7 H- `) `- s. p/ `, Q
  第三个影帧的ACTION是: / @" X- r9 L4 W2 t. o
  如果(NameFirst ne "") * Q) N1 {( T8 u& ^6 L3 ]& O3 o
   跳至并停止 (9) 3 q) ?4 q, u' D
  退出如果 5 d4 U4 C/ w3 O
  意思是如果NameFirst不等于空值的话,就跳到第九个影帧;否则将会执行下去(即播放下一个影帧)。
1 F: o) W9 H- {3 ~: P  第4-7个影帧都没有ACTION哦。 ! H2 B; U1 g% E; t8 U  U  R' @
  第八个影帧的ACTION是: 9 N8 I% o; d; F
  跳至并播放 (3)
, d, g& |! S/ X0 u, g0 q  W  回过头来再看看第三个影帧看看,呵呵,懂了吧? , {( ]# L6 y8 h; z
  如果没有符合的数据的话,就一直读到有为止;读到了就跳到第九个影帧哦。 & d% p0 a& m5 Q
  那么再来看看第九个影帧:
: S6 t. [* e+ D& h7 d3 N8 _  一共有三个文本框:NameFirst,NameLast,Position
5 o  f2 Q& T, C/ n  数据库内符合查询条件的数据将会显示在他们之中哦! 6 t$ D: P+ W! f( s8 c) f
  还有一个按钮:Do It Again
' S2 T& z1 _* C3 k1 S' h  它的ACTION是: - S6 ~8 r3 g! _8 Y6 k+ @7 i
  于 (放开) $ j7 i) t' }: t  A
    跳至并停止 (1)
9 L! ~4 \6 s( Q2 i  退出于 . Q# _- [3 q  k
 再来看看employee.asp这个文件吧: * U5 D* G0 n' U1 ?( ^. @
Dim oRS, oConn ’定义两个变量
7 g6 c: n! f) ^Set oRS = Server.CreateObject("ADODB.Recordset") ’定义oRS为RECORDSET对象
' ?. K. T" [) q- M! h- B( ISet oConn = Server.CreateObject("ADODB.Connection") ’定义oConn为CONNECTION对象 0 O3 Y% h: L+ V8 Y7 P
oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};
7 J  n9 N7 S3 u( M& {DBQ=" & Server.MapPath("employees.mdb")
2 M7 p& n+ G, F, Z9 t6 ooRS.Open "SELECT * FROM Employees", oConn, 2, 3 ! w' a: {# a" w6 ^1 K4 ?0 y
’嘿嘿,这两句不用说了吧?打开数据库哦
! c% w1 }* q" S! doRS.Find "NameLast = ’" & UCase(Request.QueryString("strSearch")) & "’"
! K# g8 v7 s& i0 r’找到符合条件的数据
返回列表