<%
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
%>
