| 用FLASH和ASP实现数据库查询__教程 |
|
| 日期：2007-5-20 0:34:16 人气：73 [大 中 小] |
|
|
|
|
|
本文给你介绍一种在Flash中应用ASP技术实现数据库查询的新方法，它不但在客户端完全隐藏了.asp程序，而且Flash的易用性、图形化使你的网页与众不同。
基本原理
1.Flash处理外部变量的方法
Flash通过取Frame Properties中URL指定的文件所输出的字符串作为自身变量及其值，这个文件可以是CGI程序或ASP程序，输出的字符串必须定义成如下的格式：
company=Macromedia＆address=600＋Townsend＆
city=San＋Francisco＆zip=94103
这个字符串导入到Flash后，分成4个变量并赋予不同的值，即：
利用ASP中Server.URLEncode方法很容易实现这种格式；另外你也可以通过编程来实现：
< ％@Language=“VBScript”％ >
< ％
option explicit
dim var(3),i,count
i=0
count=3
var(0)=“Red”
var(1)=“Yellow”
var(2)=“Blue”
do while i< count
response.write“var”＆i＆“=”＆var(i)＆“＆”
i=i＋1
loop
response.write“i=”＆i
％ >
执行这个ASP程序的结果是：
var0=Red＆var1=Yellow＆var2=Blue＆i=3
2.在ASP和Flash之间传递数据
当你的ASP程序产生上述格式的字符串以后，可以使用 Load variables (“myscript.asp",0)的动作描述将其传入到Flash中（如图1）：
其中，0表示装入动画的层为第一层，1表示第二层，以此类推。
使用Load variables (“myscript.asp",0,vars=POST) 动作描述，ASP可用以下两种方法实现从Flash中取出数据 ：
1、Request.Form(“flash_var_1")
2、Request(“flash_var_1")
使用Load variables (“myscript.asp",0,vars=GET) 动作描述，ASP从Flash中取出数据的方法：
Request.QueryString(“flash_var_1")
实例制作
下面我们就以电话查询为例，制作一个网页。
1.创建数据库
打开ACCESS 2000，创建名为yjytelep.mdb的数据库，设计一个本单位职工电话情况的表，表名为yjytelep，格式如下：
将表和数据库保存到指定目录中，如C:\testasp\。
2.用Flash制作网页
①打开Flash 4，在Frame 1中创建电话查询的画面，如图2。在文本编辑框上右击鼠标→Properties→Varible输入变量名namestr；为阻止动画向下播放，在Frame 1→Properties→Action中选“STOP”，这样，只有当你输入姓名并按 “查询”按钮，动画才继续播放。“查询”按钮上右击鼠标→Properties→Action描述为：
On( Release)
Go to and Play (2)
End On
②创建Frame 2，是一个blank keyframe，Action描述为：
Load variables (“yjytelep.asp", 0, vars=GET)
③Frame 3－8创建的是一个动画，告诉用户ASP程序正在执行查询，如图3所示。
Frame 3的Action描述为：
If (handnum ne“")
Go to and Stop (9)
End If
Frame 8的Action描述为：
Go to and Play (3)
这样，只有ASP程序查询了所有的记录并返回一个完整的记录时，才执行Frame 9。
④Frame 9为结果画面，如图4所示。
在“姓名”下方创建5个文本编辑框，其变量名分别为 name、utelnum、ptelnum、callnum、handnum。创建一个“返回再查”的按钮，Action 描述为：
On (Release)
Go to and Stop (1)
End On
⑤保存这个Flash文件在C:\testasp中，文件名为： yjytelep.fla。然后点击File→Publish，生成yjytelep.html和 yjytelep.swf。到此，Flash的工作已经做完，接下来要编写ASP程序了。
3.编写ASP程序
打开记事本，输入以下程序并将其保存到C:\testasp中，文件名为：yjytelep.asp。
< ％@Language=“VBScript"％ >
< ％
Dim oRS, oConn
Set oRS = Server.CreateObject(“ADODB.Recordset")
Set oConn= Server.CreateObject
(“ADODB.Connection") oConn.ConnectionString =
“Driver={Microsoft Access Driver (＊.mdb)};DBQ=
”＆ Server.MapPath(“yjytelep.mdb")
oConn.Open
oRS.Open “SELECT ＊ FROM yjytelep", oConn, 2, 3
oRS.Find “Name= ‘" ＆ Request.QueryString
(“namestr") ＆ “'"
If oRS.EOF Then
Response.Write “Name=查无此人＆utelnum=－＆ptelnum=
－＆callnum=－＆handnum=－"
Else
Response.Write “Name=" ＆ Server.URLEncode(oRS |
|
|
| 出处：本站原创 作者：佚名 |
|
|
