ASP + FLASH + ACCESS教程

 ASP部分:

<%
added=request("added")
del=request("del")
action=request.QueryString("action")
set conn=server.createObject ("adodb.connection")
set rs=server.createObject ("adodb.recordset")
dbpath=server.MapPath ("db1.mdb")
connstr="Driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
conn.Open connstr
if (action <> "add" and action <>"added") then
'下面是读取数据库信息部分
sql="select * from shu where id=1"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
Response.Write "a=" & (RS("number"))
response.Write "&eof=true"
end if
end if
%>
<%
'下面部分为删除按扭信息部分
if (action="add") then
sql="select * from shu where id=1"
rs.Open sql,conn,1,3
rs("number")=del
rs.update
response.write "ok=1"
rs.close
end if
%>
<%
'下面的部分是保存按扭信息部分
if (action="added") then
sql="select * from shu where id=1"
rs.Open sql,conn,1,3
rs("number")=added
rs.update
response.write "save=1"
rs.close
end if
%>

FLASH部分:
第一部分是初始化变量:
eof = "false";
a=0; //按扭的初始数量
r = random(65500);
loadVariables("read.asp?action=" add r, "");//添加随机数的目的是防止不同浏览器不无法刷新变量的(不过可能是画蛇添足,哈哈)第9贞:
if (eof ne "true") {
gotoAndPlay("read");
}
判断是否读取数据成功!
第十贞:
a = Number(a);
if (a == 0 or a<0) {
a = 1;
for (i=1; i<=a; i++) {
_root.attachMovie("m"+i, "m"+i, i+1);
if (i<=5) {
eval("m"+i)._x = 200+i*eval("m"+i)._width;
eval("m"+i)._y = 200;
}
if (i>5 and i<=10) {
eval("m"+i)._x = i*eval("m"+i)._width-50;
eval("m"+i)._y = 250;
}
}
} else {
for (i=1; i<=a; i++) {
_root.attachMovie("m"+i, "m"+i, i+1);
if (i<=5) {
eval("m"+i)._x = 200+i*eval("m"+i)._width;
eval("m"+i)._y = 200;
}
if (i>5 and i<=10) {
eval("m"+i)._x = i*eval("m"+i)._width-50;
eval("m"+i)._y = 250;
}
}
}
stop();
//根据数据库中按扭数量"a"的大小添加按扭,并且以5*2的顺序进行排序!加载按扭:
on (release) {
if (a<=10 and a>=1) {
a =Number(a)+1;
trace(a);
_root.attachMovie("m"+a, "m"+a, a+1);
if (a<=5) {
eval("m"+a)._x = 200+a*eval("m"+a)._width;
eval("m"+a)._y = 200;
}
if (a>5 and a<=10) {
eval("m"+a)._x = a*eval("m"+a)._width-50;
eval("m"+a)._y = 250;
}
}
if (a>10) {
_root.aa.attachMovie("wrong", "wrong", 1000);
this.wrong._width = 600;
this.wrong._height = 400;
this.wrong._x = 225;
this.wrong._y = 200;
a=10
}
}
根据A的数量进行在次加载按扭(这里只采用FLASH内部加载),如果超按扭数量超过10个,则停止加载并出现警告!删除按扭部分:
on (release) {
del = a-1;
loadVariables("read.asp?action=add", "", "POST");
for(i=1;i<=a;i++){
removeMovieClip(eval("m"+i));
}
gotoAndPlay("do_del");

}

//确定删除后A的值,并将其传送个ASP!但是此处需要清理FLASH内部A的数量,以防止FLASH内部没有刷新而造成删除后A的数量减少,但按牛数量没有减少的情况!保存按扭部分:
on (release) {
added = a;
for(i=1;i<=a;i++){
removeMovieClip(eval("m"+i));
}
loadVariables("read.asp?action=added", "", "POST");
gotoAndPlay("do_save");
}//将A的数值传给ASP 然后存到数据库中,此处也清空了FLASH内部A的值,原因同上!

时间: 2024-12-23 18:50:02

ASP + FLASH + ACCESS教程的相关文章

AJAX教程实例,ASP+AJAX+ACCESS数据库应用教程(附源码)

access|asp+|数据|数据库|ajax教程 AJAX教程实例[阿里西西原创]  其实说起AJAX的初级应用是非常简单的,通俗的说就是客户端(javascript)与服务端(asp或php等)脚本语言的数据交互. 看完本篇ajax实例教程,我相信你也可以轻松做出一个初级的AJAX应用. 你也可以直接访问:http://www.alixixi.com/web/web/ajax/jiaocheng.html预览此篇ajax教程的源码示例. 好,下面我们就始一步步让你了解AJAX+ASP基础应用

《ASP网页制作教程》笔记

笔记|教程|网页 <ASP网页制作教程>.王国荣 编著,人民邮电出版社. 打开MDB数据库的方法:先定义一个OpenMDB子程序,然后在主程序中调用.<%Option ExplicitSub OpenMDB(dbname,pwd,conn)'dbname-数据库文件的相对路径,pwd-数据库文件的密码,conn-用户定义的Connection对象.'对于没有密码的数据库,pwd值可任意.dim connstrSet conn = Server.CreateObject("ADO

ASP+AJAX+ACCESS数据库实例讲解三个步骤分享_AJAX相关

看完本篇ajax实例教程,我相信你也可以轻松做出一个初级的AJAX应用. 你也可以直接访问:http://www.jb51.net/codes/57017.html 下载ajax教程的源码示例. 好,下面我们就始一步步让你了解AJAX+ASP基础应用,我们将分三步讲解,如下. 1. 前台AJAX代码(javascript)的创建. 2. 后台服务端ASP AJAX代码的编写. 3. ASP+AJAX+数据库的实例演示及讲解. 第一步:前台AJAX代码(javascript)的创建. 我们先创建一

asp,asp.net学习教程下载_自学过程

XML与ASP网站实作大全 ASP经典百例 ASP.NET 1.1专业开发 ASP.NET完全手册 ASP.NET 技术参考 ASP.netdatabase开发圣经 ASP数据库系统开发实例导航 怎样用ASP和COM进行Web编程 Asp.Net技术文档 ASP Net密技集錦(C#) 即时应用ASP脚本第二版 简单易学的ASP教程 ASP开发中的错误信息中文说明大全 10天学会ASP ASP中文使用手册 ASP.NET服务器控件高程 ASP.NET 实用全书 ASP 3.0高级编程 ASP.N

ASP+AJAX+ACCESS数据库实例讲解三个步骤分享

看完本篇ajax实例教程,我相信你也可以轻松做出一个初级的AJAX应用. 你也可以直接访问:http://www.jb51.net/codes/57017.html 下载ajax教程的源码示例. 好,下面我们就始一步步让你了解AJAX+ASP基础应用,我们将分三步讲解,如下. 1. 前台AJAX代码(javascript)的创建. 2. 后台服务端ASP AJAX代码的编写. 3. ASP+AJAX+数据库的实例演示及讲解. 第一步:前台AJAX代码(javascript)的创建. 我们先创建一

如何通过ASP在ACCESS数据库新建表(自动编号ID)

access|数据库 下面代码是一个最简单的利用ASP创建ACCESS表的示例代码,创建的ID编号为自动编号.   <%dim conn dim dbpath set conn=server.createobject("adodb.connection") dbpath=Server.mappath("data/data.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=&qu

高手支招ASP及Access的安全隐患及对策

随着Internet的发展,Web技术日新月异.继通用网关接口(CGI)之后,"ASP"作为一种典型的服务器端网页设计技术,被广泛地应用在网上银行.电子商务.搜索引擎等各种互联网应用中.同时Access数据库作为微软推出的以标准JET为引擎的桌面型数据库系统,由于具有操作简单.界面友好等特点,具有较大的用户群体.因此ASP+Access成为许多中小型网上应用系统的首选方案.但ASP+Access解决方案在为我们带来便捷的同时,也带来了不容忽视的安全问题. ASP+Access的安全隐患

FLASH创意设计教程:试读-“都市恋爱”

教程|设计 1.3 基础效果制作 1.3.1帧动画 1. 都市恋爱 在充满诗意的黄昏,都市的大厦闪烁着灯光,逐渐的灯光隐灭,留下了"LOVE"恋爱的音符--这个创意来源于网络,看到过一个大学生宿舍灯光求爱的图片,所以想到了这个效果. 效果展示 其中一帧画面如图1.3.1所示(完整效果参见光盘中的"\第一部分\第三章\都市恋爱.swf") 点击这里下载源文件 效果讲解 在Flash中,朋友们可以通过改变连续排列的帧内容来实现动画.创建动画序列有两种方法.逐帧动画和渐变

FLASH创意设计教程:试读-临摹绘画技术

教程|设计 上一节:FLASH创意设计教程:试读-"都市恋爱" 2.2 临摹绘画 Flash动画主要有两个部分组成,其一为绘画,其二为电影等姊妹艺术的表现方法.初学朋友们在创作Flash动画过程中,往往无法准确.生动地把自己头脑中构思的角色形象在电脑中表现出来.如何提高创作者本身的美术技能技巧,是朋友们非常关心的问题.我们在论坛上也经常遇到朋友提出这样的问题"没有学习过美术,能制作出优秀的Flash动画吗?",答案非常明确"不能".因为,Flas