鼻息肉手术是小手术吗:哪位帮我注释一下代码

来源:百度文库 编辑:高考问答 时间:2024/04/29 23:48:08
<%
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
%>