快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

FLASH和ASP数据库的结合应用

在看这个例子之前,先讲讲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 \\\'关闭并清空数据库对象
返回类别: 教程
上一教程: ASP小偷程序的入门教程(远程数据获取)
下一教程: 汉字转化为拼音

您可以阅读与"FLASH和ASP数据库的结合应用"相关的教程:
· ASP与数据库的基础应用
· 应用数据库的唯一性约束并在ASP中捕获数据库的错误
· ASP打开数据库的五种方式
· 纯ASP上传图像文件到数据库的最佳例子
· ASP+Access数据库的终极安全方式18则
    微笑服务 优质保证 索取样品