地址：中国山西省太原市桃园南路27号412室 | 邮政编码：030001 计数器::
<%
dim file ,files,openfile,visitors,countsize,n,out
file=server.mappath("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 ""
next
if isempty(session("visitors")) then
visitors=visitors+1
set out=files.createtextfile(file)
out.writeline(visitors)
out.close
end if
session("visitors") = true
%>
