您是本站的第
<%
file=server.mappath("counter/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 "![](counter/") "
next
If IsEmpty(Session("visitors")) Then
visitors=visitors+1
Set out=files.CreateTextFile(file)
out.WriteLine(visitors)
out.close
End If
Session("visitors") = True
%>
位访问者，感谢光临！ |
版本所有:木里图镇人民政府
Copyright (C) 2005 All Rights Reserved
站长信箱：mltdangwei@126.com 邮编：028024
蒙·网警1523010017
管理员登陆 |
|
