用flash制作计数器
用flash 制作计数器
一、在你的盘符（如 D ，E ，F ）建个文件夹，命名“count”
二、先用记事本建立个记数页，代替数据库。 1、打开记事本创建一个新文档，键入“00001” ， （00001 是初始值，你可以改）然后保存为 count.txt ，放在“count”文件夹里，这一步就完成了。
三，创建 ASP 文档
1、在打开记事本新创建一个文档，将如下代码复制到记事本中：
asp 语句：
Dim count
Set Fs=Server.CreateObject("Scripting.FileSystemObject")
file_path=Server.MapPath("count.txt")
Set CounterFile=Fs.OpenTextFile(file_path)
OldCounterValue=CounterFile.ReadLine
NewCounterValue=OldCounterValue+1
Response.Write("count="&NewCounterValue)
CounterFile.Close
Set CounterFile=Fs.OpenTextFile(file_path,2)
CounterFile.WriteLine(NewCounterValue)
CounterFile.Close %>
2、点另存为，在另存为对话框里，在“保存在”：栏里找到你放 count 文件夹的盘符，并 将这个文件保存在“count”文件夹里，文件改名为 count.asp ，这个文档就完成了。这步完成了。
四，创建 SWF 文件
1、打开 Flash 软件，建个文档，另存为，在另存为对话框中，把保存在改成盘符下的 count 文件夹，文件名改为 count.swf 。
2、把文档属性宽设置为55 象素，高为 15象素，桢频为48。 （根据您爱好设置背景色） 3 、在 130 桢插入普通桢，点第一桢，点文本工具， 在属性面板里把文本工具改为动态文本，字体任意，大小改为20，加粗，居中对齐。
4、在场景里拖出一个文本框，在属性面板里变量输入 count
5、点选择工具，选中拖出的框，点水平中齐和垂直中齐，（尺寸不对时，先在属性里把尺寸改为 55X15）
6、添加图层 2，点第一桢，打开动作面板，输入如下代码：
SWF 第一桢语句：
loadVariablesNum("count.asp?count=NewCounterValue", 0, "GET");
在 129 桢插空白关键桢，输入如下代码：
SWF 第129桢语句：
if (count eq "") {
gotoAndPlay(129);
} else {
gotoAndStop(131);
}
在 130 桢插空白关键桢，输入如下代码： g = String(count); c = length(g); long = 6; createEmptyMovieClip("countor", 0); countor._x = 642; countor._y = 402; if (c
thev._x = i*21+dx;
}
} stop();
7，点保存，测试，测试时出来一个对话框，不用管 ，打开 count 文件夹，里面有 SWF 文 件就完成了。
好了计数器就做好了。