版权所有
©2005-2006 东莞市南北花园酒店
电话:86-0769-86018888 传真:86-0769-86018182 邮政编码: 510080
地址：中国广东省东莞市石碣镇明珠中路
您是第
<%whichfile=server.mappath("counter/count.txt")
Set fs=CreateObject("Scripting.FileSystemObject")
Set thisfile=fs.opentextfile(whichfile)
visitors=thisfile.readline
thisfile.close
ip=Request.ServerVariables("REMOTE_ADDR")
'比对新老IP
if not ip=session("OldIp") then
session("OldIp")=ip
visitors=visitors+1
else
visitors=visitors
end if
countlen=len(visitors)
for i=1 to countlen
response.write "![](counter/"&mid(visitors,i,1)&".gif) "
next
set out=fs.createtextfile(whichfile)
out.writeline(visitors)
out.close
set fs=nothing
%>
位访问者 |
