请问怎样实现FLASH+ASP留言板?
---------------------------------------------------------------
下面是本人以前写的一个教程,ASP与Flash就是这样交互的,如果你会用asp操作Access的话,那变一变就很了,不会的话,最后面有教你如何读取access
---------------------------------------------------------------------
本教程实现的内容:模拟登录,浏览者从flash输入用户名和密码,经过ASP页面验证,再返回是否正确的标志。 (注:用户名是arbiter,密码是123456)
首先,ASP页面的内容如下:
<%
username=Request.Form("uid") '取得从flash提交过来的变量
password=Request.Form("pwd") '同上
'判断用户名及密码是正确
If username="arbiter" and password="123456" then
'向flash传送变量flag
Response.Write("flag="+Server.URLEncode("yes"))
Else
Response.Write("flag="+Server.URLEncode("no"))
End If
%>
然后是flash文件部分:
1.在主场景上建立三个层,分别叫MCs、AS、Label
2.每层都设定4个关键帧
3.Label层的第1个关键帧Label name是"login",第2个关键帧Label name是"check",第3个Label name是"pass",第4个关键帧的Label name是"wrong"
4.MCs层第1个关键帧放2个input输入框,一个的variable叫uid(用户名),一个的variable叫pwd(密码),还有一个确定按钮,按钮的AS为:
on (release) {
loadVariables ("test.asp", "", "POST");
gotoAndStop("check");
}
然后第2个关键帧只有一个确定按钮,AS如下:
on (release) {
//取得从test.asp里传过来的变量flag
nowflag = flag;
if (nowflag == "yes") {
gotoAndStop ("pass");
} else {
gotoAndStop ("wrong");
}
}
第3个关键帧只有一句文字:"你已经成功登录!"
第4个关键帧有一句文字:"输入的用户名或密码有错,请返回并重新输入。",和一个返回按钮,按钮的AS为:
on (release) {
gotoAndStop ("login");
}
5.最后是AS层,每一个关键帧的AS都是:
stop();
至此,你已经完成了这一个flash,输出swf文件,放在一个html文件里,连同test.asp文件一起放上支持asp的空间(或利用本机的PWS/IIS)来测试。
如有错漏,请指出。
----------------------------------------------------
读取access:
set conn=server.createobject("adodb.connection")
conn.open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("数据库名")
set rs=server.createobject("adodb.recordset")
rs.open "select * from 表名",conn,0,1
Response.Write("test="+Server.URLEncode(rs("字段名")))
这样就可以向flash传送一个叫test的变量,内容是读取出来的字段内容。
---------------------------------------------------------------
下面是本人以前写的一个教程,ASP与Flash就是这样交互的,如果你会用asp操作Access的话,那变一变就很了,不会的话,最后面有教你如何读取access
---------------------------------------------------------------------
本教程实现的内容:模拟登录,浏览者从flash输入用户名和密码,经过ASP页面验证,再返回是否正确的标志。 (注:用户名是arbiter,密码是123456)
首先,ASP页面的内容如下:
<%
username=Request.Form("uid") '取得从flash提交过来的变量
password=Request.Form("pwd") '同上
'判断用户名及密码是正确
If username="arbiter" and password="123456" then
'向flash传送变量flag
Response.Write("flag="+Server.URLEncode("yes"))
Else
Response.Write("flag="+Server.URLEncode("no"))
End If
%>
然后是flash文件部分:
1.在主场景上建立三个层,分别叫MCs、AS、Label
2.每层都设定4个关键帧
3.Label层的第1个关键帧Label name是"login",第2个关键帧Label name是"check",第3个Label name是"pass",第4个关键帧的Label name是"wrong"
4.MCs层第1个关键帧放2个input输入框,一个的variable叫uid(用户名),一个的variable叫pwd(密码),还有一个确定按钮,按钮的AS为:
on (release) {
loadVariables ("test.asp", "", "POST");
gotoAndStop("check");
}
然后第2个关键帧只有一个确定按钮,AS如下:
on (release) {
//取得从test.asp里传过来的变量flag
nowflag = flag;
if (nowflag == "yes") {
gotoAndStop ("pass");
} else {
gotoAndStop ("wrong");
}
}
第3个关键帧只有一句文字:"你已经成功登录!"
第4个关键帧有一句文字:"输入的用户名或密码有错,请返回并重新输入。",和一个返回按钮,按钮的AS为:
on (release) {
gotoAndStop ("login");
}
5.最后是AS层,每一个关键帧的AS都是:
stop();
至此,你已经完成了这一个flash,输出swf文件,放在一个html文件里,连同test.asp文件一起放上支持asp的空间(或利用本机的PWS/IIS)来测试。
如有错漏,请指出。
----------------------------------------------------
读取access:
set conn=server.createobject("adodb.connection")
conn.open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("数据库名")
set rs=server.createobject("adodb.recordset")
rs.open "select * from 表名",conn,0,1
Response.Write("test="+Server.URLEncode(rs("字段名")))
这样就可以向flash传送一个叫test的变量,内容是读取出来的字段内容。