计算机毕业论文:FLASH与ASP的组合
时间：2022-10-08 03:53:00
摘要：本文介绍了FLASH与ASP组合实现动态留言板的方法与技巧、前后台信息传递，以及
SQLSERVER与ASP相关的知识。
关键词：loadVariableFILEDSN动态链接库
一、FLASH+ASP的概念
FLASH电影与在ASP的交互上有点类似于传统HTML页与ASP脚本的关系。FLASH主要是接收用户输入的信息并将脚本处理完的信息传递给用户，而幕后所有的工作都由ASP脚本来处理。
ASP作为服务器端的脚本可以访问数据库，并可以处理从FLASH中传递来的信息，然后再传递回FLASH电影，这样FLASH的功能得到极大的扩展。这们做使FLASH更人性化，可以保存用户的信息，从而诸如留言板、论坛、购物车等也可以使用FLASH来实现了。这对喜欢FLASH编程的网页设计人来说真是个激动人心的消息。
二、在FLASH和ASP中传递信息：动态留言板
在FLASH中可以使用很多种方法来和ASP传递信息。每种方法和动作都使用特别的协议通过URL编码的格式来传递信息：getURL、loadVaviables、loadMovie；三种方法使用HTTP或者HTTPS协议以XML的形式来传递信息：XML.send、XML.load、XML.sendAndLoad；还有两种方法通过建立TCP/IP的连接来以XML的形式传递信息：XMLSocket.connect、XMLSocket.send。
而我们将着重介绍loadVariable方法，使用loadvariable方法基本可以实现大多数的功能了。
成熟的网站都有自己独具风格的留言板来接受用户的意见和建议，更好地和用户交流。为了不抑止大家的更好的创意，下面笔者所介绍的FLASH只是一个普通的留言板，而把更好的想象和创意留给读者，而笔者重点介绍的是方法与脚本的实现。
FLASH留言板在后台使用SQLServer作为保存用户输入的信息和意见的数据库服务器,使用FLASH制作客户端留言板的页面。
1、数据库结构设计
为本内容的实例新增一个数据库FLASH，制作FILEDSN。在数据库中插入表message，用以保存用户输入的信息和意见建议，表中其定义三个字段（如下），分别为：
列名数据类型长度精度小数位
namechar1500
emailchar3000
messagetext1600
?Name：留言者的姓名。
?Email：留言者的Email地址。
?Message：留言。
2、简单的FLASH动态电影如下：
图1-1
说明：○1在“您的姓名：”的文本后用文字工具创建一个输入框，在文本框属性面板中选择“InputText（输入文本）”。在“Variable（变量）”框输入“name”选中“Border/Bg”选项，如图1-2所示。
图1-2设置文本框属性
○2同样在“您的Email：”文本后插入输文框，在“Variable(变量)”中分别输入“Email”。在“您的意见：”文本后插入输框，在“Variable（变量）”输入“advice”，将“Singleline（单行）”下拉框改为“Multiline（多行）”。
○3制作一个“提交”字样的FLASH按钮，如下图书1-3，其所在位置如图1-1所示。
图1-3
3、给FLASH中“提交”按钮加代码。
○1在FLASH场景中选中“提交”按钮。
○2用鼠标右键单击场景中的“提交”按钮，在弹出的菜单中选择“Actions”，在弹出的“ObjectAction(对象面板)”单击右上方的三角，选择“ExpertModel(专家模式)”。选择“On”动作，“Event(事件)”是“release（释放）”。在“Actions(动作)”中选择“LoadVariable(导入变量)”，括号中应该是（“insert.htm”，“”，“post”），意思是使用post方法向insert.htm传递信息，再传回到电影中来。全部Script脚本的如图1-4所示。
图1-4
4、ASP脚本
留言板共有两个脚本，一个是来接受用户输入的服务器端脚本insert.htm，一个是网站的管理人员察看的脚本view.htm,可以使用一般的文本编辑器来编定这两文件，如Notepad等。
Oinset.htm脚本：
<%@Lanuage=VBscript%>
<%
functionCheckStr(str)
dimtstr,c,j,i,ch
j=len(str)
fori=1toj
ch=mid(str,i,j)
ifch=”“then
tstr=tstr+””
endif
tstr=tstr+ch
next
CheckStr=tstr
endfunction
%>
<%
name=CheckStr(Request.Form(“name”))
email=CheckStr(Reques.Form(“email”))
message=CheckStr(Request.Form(“advice”))
ifemail=”“then
email=”none”
endif
ifmessage<>“”andname<>“”then
setcon=Server.CreateObject(“ADODB.Connection”)
con.Open“FILEDSN=c:\inetpub\wwwroot\aspbook\flash\flash.dsn;UID=adm;PWD=fulei”
setcmd=Server.CreateObject(“mand”)
setcmd.ActiveConnection=con
mandText=“insertintomessage(name,email,message)
Values(‘“&name&”’,‘“&email&”’,‘“&message&”’)”
cmd.Execue
Response.Write(“flag=操作成功”)
elseifmessage=””then
Response.Write(“flag=操作失败，留言为空”)
elseifname=”“then
Response.Write(“flag=操作失败，请留下芳名”)
else
Response.Write(“flag=操作失败，内部错误”)
endif
con.close
%>
说明：本脚本开始定义了一个函数CheckStr用于检查字段中是否有单引号（单引号会使插入记录的SQL语句发生错误），然后得到从FLASH中传来的几个参数。如果所有参数都符合要求则插入记录，flag用以记录插入的结果。使用Response.write将flag变量传回FLASH电影中。
view.htm脚本：
<%@Lanuage=VBScript”%>
<html>
<head>
<%
setcon=Server.CreateObject(“ADODB.Connection”)
con.Open“FILEDSN=c:\inetpub\wwwroot\aspbook\flash\flash.dsn;
UID=adm;PWD=fulei”
setcmd=Server.CreateObject(“mand”)
setcmd.ActiveConnection=con
setrec=Server.CreateObject(“ADODB.Recordset”)
mandText=”select*frommessage”
setrec=cmd.Execute
%>
</head>
<body>
<%
Response.Write(“<tablewidth=’75%’border=’1’“)
Response.Write(“<tr><td>留言者</td><td>Email</td><td>内容</td></tr>”)
dowhilenotrec.EOF
Response.Write(“<tr><td>”&rec(“name”)&“</td.></tr>”&rec(“email”)&“</td><td>”
&rec(“message”)&“</td></tr>”)
red.MoveNext
loop
Response.Write(“</table>”)]
%>
</body>
</html>
最终的页面效果如图1-5所示。
图1-5
参考文献：
1．网易FLASH站（）
2．极限FLASH站（）
3．李博、于骞译[美]GreyBuczek,MCSD.MCT编著“ASP应用开发指南”科学出版社，2000年9月。
4．荣钦科技主笔室编著“ASP入门与应用”中国铁道出版社，2001年1月。