统计网页浏览人数代码

<%
Dim NumVisits
NumVisits=0
Application.Lock
Application("NumVisits") = Application("NumVisits") + 1 
Application.Unlock
%>
<script src="http://s21.cnzz.com/stat.php?id=1629758&web_id=1629758&show=pic1" language="JavaScript" charset="gb2312"></script>


<% 
Dim NumVisits 
NumVisits=0 
Application.Lock 
Application("NumVisits") = Application("NumVisits") + 1 
Application.Unlock 
%> 
欢迎光临本网页，你是本页的第 <%= Application("NumVisits") %> 位访客! 



<Script language="javascript" src="http://yhwy.net:81/mgxab/mf_002/Ang/count.asp?name=husi&ty=3"></Script>


<%
'一个简单的计数器程序
Set fs=CreateObject("Scripting.FileSystemObject")
Set a=fs.openTextFile(server.mappath("count.txt"))
count=a.readline
response.write "现在的访问量是：" & count