用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<=long) {

j = long-c;

for (var i = 0; i

countor.attachMovie("z0", "f"+i, i);

var theF = eval("countor.f"+i);

theF._x = i*21;

dx = theF._x+21;

}

for (var i = 0; i

cchr = g.charAt(i);

countor.attachMovie("z"+cchr, "n"+i, i+6);

var thev = eval("countor.n"+i);

thev._x = i*21+dx;

}

}

stop();

7，点保存，测试，测试时出来一个对话框，不用管，打开count 文件夹，里面有SWF 文件就完成了。

好了计数器就做好了。