|
这个Flash计数器是由两部分组成。一部分用于表现，使用Flash制作，那么另一部分用来统计，使用ASP制作。
一、计数器的Flash部分
1.画出计数器中0～9的数字图像，每个数字都做成大小一致的一张小图，最好是矢量的。但因为计数器不用很大，所以位图的也可以。打开Flash，然后把画好的图像逐一引入到你的Flash里，根据每张图的大小和你需要的位数来确定movie大小。我的图是15×25的，需要5位，所以movie尺寸是75×25。然后Insert→New symbol属性是Graphic，起个名字叫作counternum。把数字图像从上到下按0～9的顺序排整齐。再创建一个叫roller的属性为Move Clip（简称MC）的Symbol。在此MC里画一个文本框，用右键点出文本框的Properties,在ariable里填digit，在Options里，把后三项打钩，倒数第三项的text length为1，utlines用默认的就行了。
2.在Symbol里加入两个新层，利用Flash的mask（遮罩）功能。第一层里画一个和每个数字图像大小相同的实心矩形，目的是用它来遮罩数字串（counternum）。进入下面的一层，把存有数字串的Symbol拉到这一层，把字串里的“0”套在那个矩形中，使它正好被矩形压住，隔50帧左右插入一个Keyframe（关键帧），把数字串向上拉（计数器加1），直到“9”，和那个矩形重合。在这两帧中做一个Motion。现在选择矩形层为遮罩并把时间轴延长到和下面那层一样长，拖动时间控制柄应该能看到0～9一个一个滚动出现了！回到刚才那个放文本框的层，时间轴和下面找平后在第一帧的Action里加入stop。现在拖动时间控制柄，同时观察下面的mask，当“1”全部出现后，在此帧中加入Action：
If (Digit = ″1″)
Stop
End If
后面的帧依次类推，mask里的数字是多少Digit就等于多少，作用是使数字串产生滚动并停止于Digit变量当时的值。在最后一帧的Action里写入Go to and Play (2)。
3.回到scene,把刚刚做的那个MC重复拖到里面，一共5个，排整齐后应该正好把movie填满。
4.每个MC起一个Instance Name， 缫来纹鹈鸐1～M5。再添加一个新层，第一帧里写入如下Action：
Load Variables (″counter.txt″, 0)
Set Variable: ″/M1:Digit″ = Substring ( c, 1, 1 )
Set Variable: ″/M2:Digit″ = Substring ( c, 2, 1 )
Set Variable: ″/M3:Digit″ = Substring ( c, 3, 1 )
Set Variable: ″/M4:Digit″ = Substring ( c, 4, 1 )
Set Variable: ″/M5:Digit″ = Substring ( c, 5, 1 )
Go to and Play (″StartOver″)
第二帧的Action里写：
Load Variables (″counter.txt″, 0)
第三帧的Action里写：
If (/M5:digit$#@60;$#@62;substring(c,5,1))
Set Variable: ″/M1:Digit″ = Substring ( c, 1, 1 )
Set Variable: ″/M2:Digit″ = Substring ( c, 2, 1 )
Set Variable: ″/M3:Digit″ = Substring ( c, 3, 1 )
Set Variable: ″/M4:Digit″ = Substring ( c, 4, 1 )
Set Variable:″/M5:Digit″ = Substring ( c, 5, 1 )
Go to and Play (″StartOver″)
Else
Go to and Play (″wait″)
End If
第四帧里的Label记为“startover”,并写入以下Action：
Begin Tell Target (″/M1″)
Play
End Tell Target
后面每隔几帧再创建一个Keyframe,隔的这几帧就是每个数字位变化的间隔时间。在这帧里写入以下Action：
Begin Tell Target (″/M2″)
Play
End Tell Target
依次类推……直到最后一帧，也就是/M5所在的那帧后紧挨着建立一个Keyframe，Label记成“wait”，再隔几帧创建一个Keyframe，Action里写入Go to and Play (2)。所隔的帧数是每次判断“c”是否有变化所隔的时间。现在,计数器的Flash部分也就完成了。
二、ASP部分
打开HTML编辑器，在body里写入以下VBScript代码：
$#@60;％
whichfile=server.mappath(″count.txt″)
Set fs=CreateObject(″ScriptingystemObject″)
set thisfile=fs.opentextfile(whichfile,1,true)
If Not thisFile.AtEndOfStream Then
line=thisfile.Readline
else line=″c=1″
end if
visitors=mid(line,3)
thisfile.close
visitors=visitors＋1
set out=fs.createtextfile(whichfile)
out.writeline(″c=″＆visitors)
out.close
set fs=nothing
％$#@62;
好了，一个用Flash制作的计数器就完成了。看完上面的介绍，你自己再用Flash做一个在线人数统计就很容易了。现在上传到服务器上去吧，记住服务器可要支持ASP哦！
|
