© Copyright 香港復康會 2010. All rights reserved.    |     私隱條款     |     聲明     |     Visitor count : <% on error resume next set fso = createobject("scripting.filesystemobject") set act = fso.opentextfile(server.mappath("/hitsFile.txt")) counter = clng(act.readline) counter = counter + 1 act.close Set act = fso.CreateTextFile(server.mappath("/hitsFile.txt"), true) act.WriteLine(counter) act.Close Response.Write counter %> <% ' ================= [End] Show User Interface Visitor Counter ================ %>