首 页 ┆ 源码下载 ┆ IT学院 ┆ 字体下载 ┆ 模板下载 ┆ 源码发布 ┆ 广告合作 ┆ 网站地图
► 设为首页
► 加入收藏
► 联系我们
源码下载 >> ASP源码 | PHP源码 | ASP.net源码 | JSP源码 | CGI源码 | VC/C++源码 | VB源码 | Delphi源码 | Flash源码
文章学院 >> 网络编程 | 网页设计 | 图形图象 | 数据库 | 服务器 | 网络媒体 | 网络安全 | 操作系统 | 办公软件 | 软件开发 | 黑客知识
字体下载 >> 精制字体 | 非英字体 | 艺术字体 | 著名字体 | 哥特式 | 简单字体 | 手写体 | 节假日 | 图案字体 | 精度像素 | 中文字体
模板下载 >> 企业门户 | 数码网络 | 休闲娱乐 | 影视音乐 | 旅游名胜 | 文化艺术 | 电子商务 | 个性展示 | 登陆导航 | Flash模板
►►您当前的位置:源码园 → IT学院 → 网络编程 → ASP专区 → 文章内容

Flash和Asp数据库的结合应用

作者:风未起时  来源:中国站长学院  发布时间:2007-2-6 12:52:55
在看这个例子之前,先讲讲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中Cookie使用指南
  • 下一篇文章:asp模块化分页制作详解

  • 相关文章:
  • Flash中if条件语句的用法
  • [组图]教你利用Flash制作梦幻仙境效果
  • [组图]用Flash制作简单光晕效果的
  • flash菜单与asp.net进行交互
  • Delphi让你发送Flash电子邮件(2)
  • Delphi让你发送Flash电子邮件(1)
  • Delphi让你发送Flash电子邮件
  • Delphi的两个实用技巧(1)播放Flash
  • 类似于FlashGet的悬浮框的制作
  • 让Word也来播放Flash动画
  • [图文]把Word文件转换成Flash
  • 基于S3C4510B的系统的Flash擦除与烧写问题(一)
关于本站 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图 - 源码发布
Copyright © 2003-2009 Ymyasp.Com. All Rights Reserved .
备案序号:粤ICP备07029071号