查人人中国名人网张秀行书的书写技巧:哪位朋友能帮我注释一下这段代码
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/30 00:21:06
<%
dim visitors
whichfile=server.mappath("counter/counter.txt")
set fs=server.createobject("Scripting.FileSystemObject")
set thisfile=fs.opentextfile(whichfile)
visitors=thisfile.readline
thisfile.close
countlen=len(visitors)
for i=1 to 5-countlen
response.write "<img src=counter/0.gif>"
next
for i=1 to countlen
response.write "<img src=counter/" & mid(visitors,i,1) & ".gif></img>"
next
visitors=visitors+1
set out=fs.createtextfile(whichfile)
out.writeline(visitors)
out.close
set fs=nothing
%>
或加我QQ：389563507
谢谢了
dim visitors
whichfile=server.mappath("counter/counter.txt")
set fs=server.createobject("Scripting.FileSystemObject")
set thisfile=fs.opentextfile(whichfile)
visitors=thisfile.readline
thisfile.close
countlen=len(visitors)
for i=1 to 5-countlen
response.write "<img src=counter/0.gif>"
next
for i=1 to countlen
response.write "<img src=counter/" & mid(visitors,i,1) & ".gif></img>"
next
visitors=visitors+1
set out=fs.createtextfile(whichfile)
out.writeline(visitors)
out.close
set fs=nothing
%>
或加我QQ：389563507
谢谢了
<%
//创建一个文件对象
dim visitors
whichfile=server.mappath("counter/counter.txt")
set fs=server.createobject("Scripting.FileSystemObject")
set thisfile=fs.opentextfile(whichfile)
//从counter.txt里面读一行字符串出来
visitors=thisfile.readline
thisfile.close
//获取visitors字符串的长度
countlen=len(visitors)
//前面的空白位都为0图片 列如00123
for i=1 to 5-countlen
response.write "<img src=counter/0.gif>"
next
//有数字值的位都显示相应的图片
for i=1 to countlen
response.write "<img src=counter/" & mid(visitors,i,1) & ".gif></img>"
next
//被浏览了一次 访问量加1
visitors=visitors+1
//创建输出文件对象并写入数值
set out=fs.createtextfile(whichfile)
out.writeline(visitors)
out.close
//关闭对象
set fs=nothing
%>
简单，就是读一下那个文本文件
然后根据文件内容来输出图片
然后将那个变量加1再写到文本文件中
也就是一个图片记数器程序！