如何用ASP做一个计数器？

[fifi]

[tianyi]

转载的文章:
十分美妙，图形计数器实例

<% dim visitors
countfile=server.mappath("images/count.txt")
Set fs=CreateObject("Scripting.FileSystemObject")
Set thisfile=fs.OpenTextFile(countfile)
visitors=thisfile.readline
thisfile.close
countlen=len(visitors)
for i=1 to 5-countlen
response.write"<img src=images/0.jpg alt=图形计数器>"
next
for i=1 to countlen
response.write"<img src=images/" & mid(visitors,i,1) & ".jpg alt=图形计数器>"
next
visitors=visitors+1
Set thisfile=fs.CreateTextFile(countfile)
thisfile.WriteLine(visitors)
thisfile.close
set fs=nothing%>


请把此程序存在你宿主目录下,起名 count.asp
在你的宿主目录下建立 images 目录,用 photoshop
设计十个代表 0--9 的小图片,起名为:0.jpg ,1.jpg
.....9.jpg,存到 images 目录下。
在 images 目录下建立count.txt文件，文件中放任一
数字。