读写文本文件

<%
Const fileName = "counter.txt"
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Dim oFSO, oFile, sFileContent

filePath=Server.MapPath(fileName)
Set oFSO = Server.CreateObject("Scripting.FileSystemObject") 
If Not oFSO.FileExists(filePath) Then
    oFSO.CreateTextFile filePath,True,True
    Set oFile=oFSO.OpenTextFile(filePath,ForWriting)
    oFile.Write 0
    oFile.Close()
    Set oFile=Nothing
End If

Set oFile=oFSO.OpenTextFile(filePath,ForReading)
count=oFile.ReadLine
oFile.Close()
Set oFile=Nothing

If (IsNull(count) or IsEmpty(count)) Then
    count=0
Else
    count=count+1
    Application.Lock '利用Application特性防止并发写入
    Set oFile=oFSO.OpenTextFile(filePath,ForWriting)
    oFile.Write count
    oFile.Close()
    Set oFile = Nothing
    Application.UnLock
End If
response.write "<div style='text-align: center; font-size: 50px;'>已随机访问【"&count&"】次</div>"
Set oFSO = Nothing
%>