Q许愿墙
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("/hits.txt")
counter= Clng(a.ReadLine)
counter = counter + 1
a.close
Set a = fs.OpenTextFile("/hits.txt")
a.WriteLine(counter)
a.Close
Set a=nothing
Set fs=nothing
%>
你是本站的第 个访问者