您是本第
<%
file=server.mappath("/count/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 "![](count/")
"
next
If IsEmpty(Session("visitors")) Then
visitors=visitors+1
Set out=files.CreateTextFile(file)
out.WriteLine(visitors)
out.close
End If
Session("visitors") = True
%>
位来访者 湘ICP备:湘ICP备08001976号
版权所有:张家界国际狩猎有限公司 网络实名:张家界国际狩猎 技术支持:能网国际数据中心
公司地址:湖南桑植澧源镇 电话0744-6224519 传真:0744-6221515
