用Flash结合ASP制作计数器

用Flash结合ASP制作计数器

Blackflash

虽然现在有很多网站提供免费的计数器,如果自己能动手做一个不是更好吗?所以今天我就教大家通过Flash结合ASP来制作计数器。

1.新建一个文件,把当前层命名为“背景”,可以自己选择颜色,你也可以在此层中加入Movie Clip,这样可以让你的计数层更加动感,这可是文本计数器不可能实现的。再新建一层,命名为“数字”,用来存放计数器的显示数字。

2.按“Ctrl+F8”新建一个“Movie Clip”,命名为“number”。在时间线中插入10帧,每一帧填写一个数字(从0~9),并用“Ctrl+K”来调整位置。回到背景层中,用“Ctrl+L”打开库。拖出6个“number”符号,用“Ctrl+K”调整位置,让它们之间的距离保持相等。打开菜单Modify→Instance面板,把它们从左到右命名为“100000”、“10000”、“1000”、“100”、“10”、“1”。

3.计数器是由数据库来存放访问数记录的,每次打开时应该加上1位数字,所以我们就需要创建数据库文件。首先启动Microsoft Access(本人使用的是Access97),新建一个数据库,在新表中建一个字段“Count”,类型为整数。把这个表也命名为“Count”。打开任务栏中PWS图标的设置窗口,把计数器所在的目录定义为“Counter”的虚拟目录,并允许执行脚本程序。在Windows的控制面板里双击“ODBC数据源(32位)”图标,为数据库加一个系统DSN,命名为“Counter”。

4.现在让我们回到Flash中,新建层“Action”用来存放脚本程序。选中第一帧,在脚本面板中写下Aciton(我们可以按面板右边的小三角转到Expert mode模式)

count = “12345”

tellTarget (“/1”) {

stop ();

j = /:count.length;

i = /:count.charAt(j-1);

gotoAndStop (++i);

}

tellTarget (“/10”) {

stop ();

j = /:count.length;

I = /:count.charAt(j-2);

gotoAndStop (++i);

}

tellTarget (“/100”) {

stop ();

j = /:count.length;

I = /:count.charAt(j-3);

gotoAndStop (++i);

}

tellTarget (“/1000”){

stop ();

j = /:count.length;

I = /:count.charAt(j-4);

gotoAndStop (++i);

}

tellTarget (“/10000”) {

stop ();

j = /:count.length;

I = /:count.charAt(j-5);

gotoAndStop (++i);

}

tellTarget (“/100000”) {

stop ();

j = /:count.length;

I = /:count.charAt(j-6);

gotoAndStop (++i);

}

以上的脚本程序中,我们把变量Count值设为“12345”。现在可以按Ctrl+Enter来测试是否能正确地把一个内容为数字的字符串转换为用Movie Clip表示图形数字。

接下来我们就开始编写ASP程序我们可以使用UltrEdit32或UltraDev4等软件来进行编写:

5.建立新文件,命名为“Counter.asp”。工作流程应该是通过系统DSN建立与数据库“Counter.mdb”的连接,取出存在Count表里的数字值,并把这个值另加1以后存回数据库,最后把没有加1的数值返回给脚本程序,存入Count变量中。按照这样的思路,“Counter.asp”的代码应该这样写:

<%

count = 0

Set objConn=Server.CreateObject(“ADODB.Connection”)

ObjConn.Open(“DSN=counter”)

StrQuery=“SELECT * FROM count”

Set objRs=objConn.Execute(strQuery)

Count=objRs(“count”)

StrQuery=“UPDATE count SET count=” & count+1

ObjConn.Execute (strQuery)

ObjRs.Close

Set objRs=Nothing

ObjConn.Close

Set objConn=Nothing

Response.Write(“count=”&count)

%>

写好之后我们就可以用浏览器不断刷新来对它进行测试,看是否每次数值会增加1。

6.最后我们要做的就是把ASP程序和Flash脚本程序结合起来。回到Flash中在时间线上选中“Action”层和“数字”层的第1帧向后拖到第3帧。然后在“Action”层第1、2帧用F6插入关键帧。在“数字”层第1帧插入关键帧,第2帧用F5沿用。在“背景”层中第3帧用F5沿用第1帧内容。

选中“Aciton”层的第1帧里写下:

count = 0

tellTarget (“1”) {

gotoAndstop (1);

}

tellTarget (“10”) {

gotoAndstop (1);

}

tellTarget (“100”) {

gotoAndstop (1);

}

tellTarget (“1000”) {

gotoAndstop (1);

}

tellTarget (“10000”) {

gotoAndstop (1);

}

tellTarget (“100000”) {

gotoAndstop (1);

}

loadVariables (“counter.asp”,“”);

程序使每一个数字显示为“0”,在最后高速为“Counter.asp”。为了使原来的脚本增加新的判断,下面就对它进行修改:

if count <> 0) {

tellTarget (“/1”) {

stop ();

j = /:count.length;

i = /:count.charAt(j-1);

gotoAndStop (++i);

}

tellTarget (“/10”) {

stop ();

j = /:count.length;

I = /:count.charAt(j-2);

gotoAndStop (++i);

}

tellTarget (“/100”) {

stop ();

j = /:count.length;

I = /:count.charAt(j-3);

gotoAndStop (++i);

}

tellTarget (“/1000”) {

stop ();

j = /:count.length;

I = /:count.charAt(j-4);

gotoAndStop (++i);

}

tellTarget (“/10000”) {

stop ();

j = /:count.length;

I = /:count.charAt(j-5);

gotoAndStop (++i);

}

tellTarget (“/100000”) {

stop ();

j = /:count.length;

I = /:count.charAt(j-6);

gotoAndStop (++i);

}

stop ();

} else {

gotoAndPlay (2);

)

至此计数器就做好了,可以把它放在浏览器中测试了。

MySQL数据库从入门实战课

12-31
限时福利1:购课进答疑群专享柳峰(刘运强)老师答疑服务。 限时福利2:购课后添加学习助手(微信号:csdn590),按消息提示即可领取编程大礼包! 注意:原价129的课程,最后2天限时秒杀仅需49元!! 为什么说每一个程序员都应该学习MySQL? 根据《2019-2020年中国开发者调查报告》显示,超83%的开发者都在使用MySQL数据库。 使用量大同时,掌握MySQL早已是运维、DBA的必备技能,甚至部分IT开发岗位也要求对数据库使用和原理有深入的了解和掌握。 学习编程,你可能会犹豫选择 C++ 还是 Java;入门数据科学,你可能会纠结于选择 Python 还是 R;但无论如何, MySQL 都是 IT 从业人员不可或缺的技能! 【课程设计】 在本课程中,刘运强老师会结合自己十多年来对MySQL的心得体会,通过课程给你分享一条高效的MySQL入门捷径,让学员少走弯路,彻底搞懂MySQL。 本课程包含3大模块:  一、基础篇: 主要以最新的MySQL8.0安装为例帮助学员解决安装与配置MySQL的问题,并对MySQL8.0的新特性做一定介绍,为后续的课程展开做好环境部署。 二、SQL语言篇: 本篇主要讲解SQL语言的四大部分数据查询语言DQL,数据操纵语言DML,数据定义语言DDL,数据控制语言DCL,学会熟练对库表进行增删改查等必备技能。 三、MySQL进阶篇: 本篇可以帮助学员更加高效的管理线上的MySQL数据库;具备MySQL的日常运维能力,语句调优、备份恢复等思路。  
©️2020 CSDN 皮肤主题: 大白 设计师: CSDN官方博客 返回首页
实付0元
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值