<%
Set FS=Server.CreateObject("Scripting.FileSystemObject")
Set RS=FS.OpenTextFile(Server.MapPath("counter.txt"), 1, False)
fcount=RS.ReadLine
RS.Close
fcount=fcount+1
'由於伺服器上的寫入訪問安全限制，這段程式碼已被停用
'Set RS=FS.OpenTextFile(Server.MapPath("counter.txt"), 2, False)
'RS.Write fcount
'RS.Close
Set RS=Nothing
Set FS=Nothing
%>
<!DOCTYPE html>
<html>
<body>
<p>
此頁面已被訪問<%=fcount%> 次。
</p>
</body>
</html>