简单的ASP网页计数器代码

1、在网站目录下新建一个文本文件：txtcounter.txt，在文本填写1或其他数字

2、新建一个asp文件：count.asp，加入以下代码：

<%

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&")"

'为了在页面正确显示计数器的值，调用VBScript函数Document.write

Out.Close

%>

3、在需要计数的网页加入一下代码：

总访问<script language="JavaScript" src="count.asp"></script >次