| 站点地图 | 联系我
| www.asm32.net | 2006版 | 资料中心 | linux | asm/asm32 | C/C++ | VC++ | java | 书签 | ASP.Net书签 | 上善若水 厚德载物
 现在位置 :: 主页 >> 资料中心 >> ROOT / CODE / B/S / HTML / FLASH /
 

用FLASH和ASP做留言本-FLASH篇

来源(第一空间教程网)

From: http://www.host01.com/Print.Html?17053
From: http://www.host01.com/Print.Html?17052
From: http://www.host01.com/Print.Html?17051

用FLASH和ASP做留言本-FLASH篇
关于用ASP向FLASH中写入数据:如:要让FLASH知道A=1这个值,必须这样输入&A=1°ASP中用这样的语句response.write("&A=1").
在FLASH中引入ASP文件,可以用这样的语句来得到:
loadVariables ("http://localhost/view.asp", "");

(这里是默为本地机子)
  而ASP要从FLASH中取得数据(比如在FLASH中有一个 INPUT TEXT的VARIABLE值为TEXT1)可用这样的语句:loadVariables ("http://localhost/send.asp", "", "POST");
(这里是默为本地机子),然后用REQUEST("TEXT")就可以得到这个INPUT TEXT的值 。

这里的VIEW。ASP是用来显示记录到FALSH中的文件,SEND。ASP是用来取得数据并记录到数据库中。具体看"用FLASH和ASP做留言本-ASP篇(上,下)"。
下面主要介绍FLASH得到数据库中的记录的分页,--这儿用分条显示的效果。源程序如下:
name1 = eval("name" add i);
text1 = eval("text" add i);


name1和text1分别为显示记录的两个dymanic text,从view.asp中可以看出所输入的记录变量是:
name1,name2,name3...
text1,text2,text3...

这样只要做两个按钮就可以上下显示记录内容,比如其中一个的源程序为:
on (press)  {
    x = i-1;
    if (x==eval("total")) {
        //如果i到达最大(显示最后一条),i就变为1(显示第一条)
        i = 2;
    } else {
        i = i+1;
    }
    //

通过改变i的值来改变TEXT中的内容

其它就可以自己解决!!

用FLASH和ASP做留言本-ASP篇(上)
这个是关于view.asp的源程序:
<%
constr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("luiyan.mdb") & ";"
set conn = server.createobject("ADODB.Connection")
conn.open constr
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from message order by id"
rs.open sql,conn,3,1
rs.movefirst                                        // 连接数据库

response.write("&total="&rs.recordcount)
do while not rs.eof
    response.write("&name"&rs("id")&"="&rs("name"))
    response.write("&text"&rs("id")&"="&rs("text"))
    rs.movenext
loop
rs.close
%>


用FLASH和ASP做留言本-ASP篇(下)
有关send.asp,基本同view.asp
<%
name=request("name")
text=request("text")
constr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("luiyan.mdb") & ";"
set conn = server.createobject("ADODB.Connection")
conn.open constr
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from message"
rs.open sql,conn,2,2
application.lock
rs.addnew
rs("name")=name
rs("text")=text
rs.update
rs.close
application.Unlock
response.write("&sendok=1")
%>


Link: http://www.asm32.net/article_details.aspx?id=2275


浏览次数 357 发布时间 2007/1/13 22:01:41 从属分类 FLASH 【评论】【 】【打印】【关闭
 
| www.asm32.net | 2006版 | 资料中心 | linux | asm/asm32 | C/C++ | VC++ | java | 书签 | ASP.Net书签 | 京ICP备09029108号-1