<% Set FS=Server.CreateObject("Scripting.FileSystemObject") Set RS=FS.OpenTextFile(Server.MapPath("/text/counter.txt"), 1, False) fcount=RS.ReadLine RS.Close fcount=fcount+1 '此例代码仅适用于此服务器 'Set RS=FS.OpenTextFile(Server.MapPath("/text/counter.txt"), 2, False) 'RS.Write fcount 'RS.Close Set RS=Nothing Set FS=Nothing %> <html> <body> <p> 这个页面被 <%=fcount%> 人次访问过 </p> </body> </html>
效果会显示在右边 Create by 软晨网（RuanChen.com）