網(wǎng)頁統(tǒng)計訪客代碼
1.一個asp文件，一個計數(shù)的count.txt文件
asp文件
==========
<%
CountFile=Server.MapPath("count.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"您是第"&counter&"位訪客"
Out.Close
%>
==========
保存為count.asp，同目錄下放一文本文件count.txt，初始數(shù)值為任意數(shù)字
2.在需要計數(shù)的網(wǎng)頁加入：
<script language="JavaScript" src="http://。。。。。。/count.asp"></script>
|
|
