你的位置: Kiyo'Space首页 ASP 阅读文章 欢迎留下您的足迹

用FLASH结合ASP制做计数器

[ ASP ] 分享

各位网友大家好,在我们访问网站总是可以看到各种形式的计数器,它可以用来统计网站受欢迎的程度。现在有很多网站提供免费的计数器,如果自己能动手做一个不是更好吗?所以今天我就教大家通过FLASH结合ASP来制作的计数器。:)
(1) 首先,新建一个文件,把当前层命名为“背景”,可以自己选择颜色,你也可以在些层中加入Movie clip,这样可以让你的计数层更加动感,这可是文本计数器不可能实现的。再新建一层,命名为“数字”,用来存放计数器的显示数字。</P><P>(2) 按Ctrl+F8新建一个“Movie Clip”,命名为“number”。在时间线中插入10桢,每一桢填写一个数字(从0-9),并用Ctrl+K来调整位置。如图:</P><P>             </P><P>回到背景层中,用Ctrl+L打开庫。拖出6个“number”符号,用Ctrl+K调整位置,让它们之间的距离保持相等。打开菜单Modify >Instance面板,把它们从左到右命名为“100000”“10000”“1000”“100”“10”“1”。如图:</P><P></P><P>(3) 计数器是由数据庫来存放访问数记录的,每次打开时应该加上1位数字,所以我们就需要创建数据庫文件。首先启动Microsoft Access(本人使用的是Access97),新建一个数据庫,在新表中建一个字段“Count”,类型为整数。把这个表也命名为“count”。</P><P></P><P>打开任务栏中的PWS图标的设置窗口,把计数器所在的目录定义为“counter”的虚拟目录,并允许执行脚本程序。在Windows的控制面板里双击 图标,为数据庫加一个系统DSN,命名为“counter”。</P><P></P><P>(4) 现在让我们回到FLASH中,新建层“Action”,用来存放脚本程序。选中第一桢,在脚本面板中写下Aciton(我们可以按面板右边的小三角转到Expert mode模式):</P><P>count = “12345”;</P><P>tellTarget (“/1”) {</P><P> stop ();</P><P>j = /:count.length;</P><P>i = /:count.charAt(j-1);</P><P>gotoAndStop (++i);</P><P>}</P><P>tellTarget (“/10”) {</P><P> stop ();</P><P> j = /:count.length;</P><P> I = /:count.charAt(j-2);</P><P> gotoAndStop (++i);</P><P>}</P><P>tellTarget (“/100”) {</P><P> stop ();</P><P> j = /:count.length;</P><P> I = /:count.charAt(j-3);</P><P> gotoAndStop (++i);</P><P>}</P><P>tellTarget (“/1000”) {</P><P> stop ();</P><P> j = /:count.length;</P><P> I = /:count.charAt(j-4);</P><P> gotoAndStop (++i);</P><P>}</P><P>tellTarget (“/10000”) {</P><P> stop ();</P><P> j = /:count.length;</P><P> I = /:count.charAt(j-5);</P><P> gotoAndStop (++i);</P><P>}</P><P>tellTarget (“/100000”) {</P><P> stop ();</P><P> j = /:count.length;</P><P> I = /:count.charAt(j-6);</P><P> gotoAndStop (++i);</P><P>}</P><P>以上的脚本程序中,我们把变量count值设为“12345”。现在可以用Ctrl+Enter用来测试是否能正确的把一个内容为数字的字符串转换为用movie clip表示图形数字。如果没有问题接下来我们就开始编写ASP程序,我们可以使用UltrEdit32或UltraDev4等软件来进行编写:</P><P>(5) 建立新文件,命名为“counter.asp”。工作流程应该是通过系统DSN建立与数据庫“counter.mdb”的连接,取出存在count表里的数字值,并把这个值另加1以后存回数据庫,最后把没有加1的数值返回给脚本程序,存在count变量中。按照这样的思路,“counter.asp”的代码应该这样写:</P><P><%</P><P>count = 0</P><P>Set objConn=Server.CreateObject(“ADODB.Connection”)</P><P>ObjConn.Open(“DSN=counter”)</P><P>StrQuery=”Select * FROM count”</P><P>Set objRs=objConn.Execute(strQuery)</P><P>Count=objRs(“count”)</P><P>StrQuery=”Update count SET count=” & count+1</P><P>ObjConn.Execute (strQuery)</P><P>ObjRs.Close</P><P>Set objRs=Nothing</P><P>ObjConn.Close</P><P>Set objConn=Nothing</P><P>Response.Write(“count=”&count)</P><P>%></P><P>写好之后我们就可以用浏览器来不断刷新来对它进行测试,看是否每次数值会增加1。</P><P>(6) 最后我们要做的就是把ASP程序和Flash脚本程序结合起来。回到FLASH中在时间线上选中“Action”层和“数字”层的第1桢向后拖到第3桢。然后在“Action”层第1、2桢用F6插入关键桢。在“数字”层第1桢插入关键桢,第2桢用F5沿用。在“背景”层中第3桢用F5沿用第1桢内容。</P><P>选中“Aciton”层的第1桢里写下:</P><P>count = 0</P><P>tellTarget (“1”) {</P><P> gotoAndstop (1);</P><P>}</P><P>tellTarget (“10”) {</P><P> gotoAndstop (1);</P><P>}</P><P>tellTarget (“100”) {</P><P> gotoAndstop (1);</P><P>}</P><P>tellTarget (“1000”) {</P><P> gotoAndstop (1);</P><P>}</P><P>tellTarget (“10000”) {</P><P> gotoAndstop (1);</P><P>}</P><P>tellTarget (“100000”) {</P><P> gotoAndstop (1);</P><P>}</P><P>loadVariables (“counter.asp”,””);</P><P>意思是程序使每一个数字显示为“0”,在最后调整用”counter.asp”。原来的脚本要新的增加判断,所以要对它进行修改:</P><P>if (count <> 0) {</P><P> tellTarget (“/1”) {</P><P> stop ();</P><P>j = /:count.length;</P><P>i = /:count.charAt(j-1);</P><P>gotoAndStop (++i);</P><P>}</P><P>tellTarget (“/10”) {</P><P> stop ();</P><P> j = /:count.length;</P><P> I = /:count.charAt(j-2);</P><P> gotoAndStop (++i);</P><P>}</P><P>tellTarget (“/100”) {</P><P> stop ();</P><P> j = /:count.length;</P><P> I = /:count.charAt(j-3);</P><P> gotoAndStop (++i);</P><P>}</P><P>tellTarget (“/1000”) {</P><P> stop ();</P><P> j = /:count.length;</P><P> I = /:count.charAt(j-4);</P><P> gotoAndStop (++i);</P><P>}</P><P>tellTarget (“/10000”) {</P>
<P> stop ();</P><P> j = /:count.length;</P><P> I = /:count.charAt(j-5);</P><P> gotoAndStop (++i);</P><P>}</P><P>tellTarget (“/100000”) {</P><P> stop ();</P><P> j = /:count.length;</P><P> I = /:count.charAt(j-6);</P><P> gotoAndStop (++i);</P><P>}</P><P>stop ();</P><P> } else {</P><P>gotoAndPlay (2);</P><P> )</P><P>到这里计数器就做好了,可以把它放在浏览器中测试了。ASP和FLASH结合还可以做出很多的东西,大家可以充分发挥自己的想像力。:)


欢迎在此留下您的脚步






评论内容 (*必填):
(Ctrl + Enter 快速提交)