<%
On Error Resume Next
Set objFile = Server.CreateObject("Scripting.FileSystemObject")
sPathCountFile = Server.MapPath("count.dat")
Set strmFile = objFile.OpenTextFile(sPathCountFile, 1, FALSE)
If Err.Number > 0 Then
iCount = 0
Else
iCount = strmFile.ReadLine
End If
iCount = iCount + 1
strmFile.Close
Set strmFile = objFile.OpenTextFile(sPathCountFile, 2, TRUE)
strmFile.WriteLine iCount
strmFile.Close
sCount = right("00000" & CSTR(iCount),5)
%>
あなたは <% =iCount %> 人目の来訪者です。
あなたは <% =sCount %> 人目の来訪者です。