網站訪問人數代碼

一、在網站目錄下新建一個文本：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>次