网站访问人数代码

一、在网站目录下新建一个文本：txtcounter.txt 而后在文本填写1就能够了！

二、新建一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

%>

三、在须要统计的网页加入：总访问<script language="JavaScript" src="count.asp"></script>次