|
|
 |
 |
 |
 |
|
 |
 |
|
 |
 |
|
●简体中文 |
●日本語 |
||
访问量统计：<%=visitors%>人次
|
||||||||||||
|
||||||||||||
|
<%
dim visitors
dim mailobject
whichfile=server.mappath("counter.txt")
set fs=createobject("scripting.filesystemobject")
set thisfile=fs.opentextfile(whichfile)
visitors=thisfile.readline
thisfile.close
visitors=visitors+1
set thisfile=fs.createtextfile(whichfile)
thisfile.writeline(visitors)
thisfile.close
set fs=nothing
%>
访问量统计：<%=visitors%>人次 |
||||||||||||