实现计数器

一，ASP无数据库
《背景：根目录下有个COUNTER文件夹，内存放0，1...8,9数字的图片和counter.txt文件》;
<%
file=server.mappath("/counter/counter.txt")
Set files = CreateObject("Scripting.FileSystemObject")
Set openfile = files.OpenTextFile(file)

visitors=openfile.readline
openfile.close

countsize=len(visitors)
for n=1 to countsize
response.write "<img src=http://127.0.0.1/counter/"& mid(visitors,n,1) & ".gif>"
next

If IsEmpty(Session("visitors")) Then
   visitors=visitors+1
   Set out=files.CreateTextFile(file)
   out.WriteLine(visitors)
   out.close
End If
Session("visitors") = True
%>

二，数据库...