用FLASH结合ASP制做计数器

　各位网友大家好，在我们访问网站总是可以看到各种形式的计数器，它可以用来统计网站受欢迎的程度。现在有很多网站提供免费的计数器，如果自己能动手做一个不是更好吗？所以今天我就教大家通过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的控制面板里双击图标，为数据庫加一个系统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”,””);

[1] [2]  下一页