- 能帮我写出计算ASP网站访问量的代码吗，各位大侠．
- 能帮我写出计算网站访问量的代码吗，各位大侠．
- 没必要的啊，个免费的就行了。而且现在都不用单纯的计数器，都是流量统计呀。
我自己写的一个fso文本计数器。
<%
ispic=0 '是否使用图片计数，为1用图片，其它值不使用图片
set fs=createobject(" lesystemobject")
application.lock
if not leexists( ppath("test.txt")) then
set ts= eatetextfile( ppath("test.txt"))
end if
filepath= ppath("test.txt")
set fout=fs.opentextfile(filepath,,true)
count=cstr( adline)
count=count+1
ose
letefile filepath,true
set fin= eatetextfile(filepath)
fin.writeline count
application.unlock
if ispic=1 then
Function GCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & "
![](0/")
"
Next
response.write G
End Function
GCounter(count)
else
response.write count
end if
%>