CSDN博客

img madein82

请问怎样实现FLASH+ASP留言板?

发表于2004/9/30 11:31:00  1237人阅读

分类: 技术文章

请问怎样实现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的变量,内容是读取出来的字段内容。  
阅读全文
0 0

相关文章推荐

img
取 消
img