Simple ASP Web page counter source code

Note:

1. Create a new text in the website directory: txtcounter.txt fill in text 1 or other words

2. Create an ASP file: Count. asp. Add the followingCode:

<%
Countfile = server. mappath ("txtcounter.txt ")
Set fileobject = server. Createobject ("scripting. FileSystemObject ")
Set out = fileobject. opentextfile (countfile, 1, false, false)
Counter = out. Readline
Out. Close
Set fileobject = server. Createobject ("scripting. FileSystemObject ")
Set out = fileobject. createtextfile (countfile, true, false)
Application. Lock
Counter = counter + 1
Out. writeline (Counter)
Application. Unlock
Response. Write "document. Write (" & Counter &")"
'To correctly display the counter value on the page, call the VBScript function document. Write
Out. Close
%>