count.asp

＜ html ＞

＜ head ＞

＜ meta http-equiv="Content-Type"

content="text/html; charset=gb2312" ＞

＜title＞随风起舞之千变计数器＜/title＞

＜/head＞

＜body＞

＜p＞

＜%

dim out

countfile=server.mappath("aspcount.txt")

set objfile=server.createobject("scripting.filesystemobject")

' 定义一个服务器组件.

set out=objfile.opentextfile(countfile,1,false,false)

counter=out.readline

' 读取数据.

out.close

set objfile=server.createobject("scripting.filesystemobject")

set out=objfile.createtextfile(countfile,trUE,FALSE)

application.lock

' 暂时锁定.

counter=counter+1

' 访客次数加1.

out.writeline(counter)

' 写入数据.

application.unlock

' 解锁.

out.close

%＞

＜script language=""＞

function countdisp(countvar){

var countvar1="000000"+countvar;

' 实现随机显示,不足6位以0补全.

var howFar1=countvar1.length;

countvar1=countvar1.substring(howFar1, howFar1-1)

var index=""+Math.floor(Math.random()*10);

if (index=="10"){

index="0"};

for (var icount=0;icount＜ 6;icount++＝{

var g=countvar1.substring(icount,icount+1);

document.images[icount].src="http://

localhost/images/"+index+g+".gif";

}

＝

＜/script＞＜/p＞

＜＞

您是第＜img src="http://localhost/images/00.gif" height=20 width=20＞

＜img src="http://localhost/images/00.gif" height=20 width=20＞

＜img src="http://localhost/images/00.gif"height=20 width=20＞

＜img src="http://localhost/images/00.gif"height=20 width=20＞

＜img src="http://localhost/images/00.gif"height=20 width=20＞

＜img src="http://localhost/images/00.gif"height=20 width=20＞位访问者！

＜script language=""＞

count(counter);

' 调用count()函数,实现计数器的动态图像显示.

＜/script＞

＜/body＞

＜/html＞

[1]