版权所有(2007):瑞安市文明办 严禁拷贝 您是第<%
CountFile=Server.MapPath(txtcounter.txt)
Set FileObject=Server.CreateObject(Scripting.FileSystemObject)
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counter=Out.ReadLine
Out.Close
SET FileObject=Server.CreateObject(Scripting.FileSystemObject)
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
Application.lock
counter= counter + 1
Out.WriteLine(counter)
Application.unlock
Response.Writedocument.write(&counter&)
Out.Close
%> 位访问者 |