通过FSO进行页面计数

<％
Function FileCounter(counter_file)
Dim fs,txt,file
Application.lock
Set fs=Server.CreateObject("Scripting.FileSystemObject")
file=Server.MapPath(counter_file)

Set txt=fs.OpenTextFile(file,1,true)
if Not txt.atEndOfStream then
FileCounter=CLng(txt.ReadLine)
End if
FileCounter=FileCounter+1
txt.Close

On Error Resume Next
Set txt=fs.CreateTextFile(file,True)
if Err.Number=70 then
FileCounter="请先将"&file&"的只读属性去掉！"
ElseIf Err.Number<>0 then
FileCounter=Err.Description
else
txt.writeLine FileCounter
txt.close
End if
Application.Unlock
End function
％>

<％=FileCounter("num.txt")％>