做三件事:
1.做一个包含有命名为 c的动态文字框的 swf文件。
2.做一个空的 count.txt文件。
3.写一个 asp文件,插入上面做的 swf文件,同时写入下面的代码:
<%
whichfile = server.mappath("count.txt")
Set fs = CreateObject("Scripting.FileSystemObjects")
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浏览计数器。样例:
http://www.zqihua.com/263/count.asp