<%
dim visitors
whichfile=server.mappath("../count/count.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(whichfile)
visitors=thisfile.readline
thisfile.close
visitors=visitors+1
Set out=fs.CreateTextFile(whichfile)
out.WriteLine(visitors)
out.close
set fs=nothing
%> <%
dim visitor
whichfile=server.mappath("../ftp/nofe/101/news.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(whichfile)
visitor=thisfile.readline
thisfile.close
visitor=visitor+1
Set out=fs.CreateTextFile(whichfile)
out.WriteLine(visitor)
out.close
set fs=nothing
%>
地址：东湖路17号
邮编：200031 电话：（021）64745678 传真：（021）64318438
版权所有 青年报社 电子媒介部 2000
