用Flash制作计数器
这个Flash计数器是由两部分组成。一部分用于表现，使用Flash制作，那么另一部分用来统计，使用ASP制作。
#1 一、计数器的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用默认的就行了（如^29040203b^2）。
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），时间轴如^29040203c^3。
3.回到scene，把刚刚做的那个MC重复拖到里面，一共5个，排整齐后应该正好把movie填满（如^29040203d^4）。
4.每个MC起一个Instance Name，比如依次起名M1～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<>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部分也就完成了。
#1 二、ASP部分
打开HTML编辑器，在body里写入以下VBScript代码：
<％
whichfile=server.mappath（″count.txt″）
Set fs=CreateObject（″Scripting.FileSystemObject″）
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
％>
好了，一个用Flash制作的计数器就完成了。看完上面的介绍，你自己再用Flash做一个在线人数统计就很容易了。现在上传到服务器上去吧，记住服务器可要支持ASP哦！如有什么问题，请与我联系，我的E－mail：kekeguo@sina.com。