提供一个简单的计数程序。
1、设一个counter.txt文件，放在需要添加“计数程序”的程序文件夹；
2、在需要显示计数的地方，加入下列代码（显示效果可以更改程序中的 class='p')；
3、显示效果：[访问：000001]
----------------------------------------------
代码：
<%
dim visitorss
whichfile=server.mappath("counter.txt")
set fs=server.createobject("Scripting.FileSystemObject")
set thisfile=fs.opentextfile(whichfile)
visitorss=thisfile.readline
thisfile.close
countlen=len(visitorss)
response.write("<font class='p'>[ 访问：" )
for i=1 to 6-countlen
response.write "0"
next
for i=1 to countlen
response.write (mid(visitorss,i,1))
next
response.write (" ]</font> " )
visitorss=visitorss+1
set out=fs.createtextfile(whichfile)
out.writeline(visitorss)
out.close
set fs=nothing
%> /span>
[refer=5,qwqw3]提供一个简单的计数程序。\r\n1、设一个counter.txt文件，放在需要添加“计数程序”的程序文件夹；\r\n2、在需...[/refer]
[nquote=2006-04-24 18:52,qwqw3]提供一个简单的计数程序。\r\n1、设一个counter.txt文件，放在需要添加“计数程序”的程序文件夹；\r\n2、在需...[/nquote]
|
