
<%

Set FS=Server.CreateObject("Scripting.FileSystemObject")

Set RS=FS.OpenTextFile(Server.MapPath("/example/aspe/counter.txt"), 1, False)

fcount=RS.ReadLine

RS.Close



fcount=fcount+1



'This code is disabled due to the write access security on our server:

'Set RS=FS.OpenTextFile(Server.MapPath("counter.txt"), 2, False)

'RS.Write fcount

'RS.Close



Set RS=Nothing

Set FS=Nothing



%>

<html>

<body>

<p>

本页已被访问了 <%=fcount%>  次。

</p>

</body>

</html>