推荐：asp 在线人数统计代码只要复制代码表中到一个文本文件并将其保存在主目录中的网站（ / Global.asa中 ） 。 SCRIPT LANGUAGE=VBScript RUNAT=Server Sub Application_OnStart application(activevisitors)=0 End Sub Sub Application_OnEnd End Sub Sub Session_OnStart application.lock ap
<%
Set fs = CreateObject(Scripting.FileSystemObject)
Wfile=server.mappath() & cgi-binwww.111cn.cn/asp/asp.html.txt
on error resume next
Set a = fs.OpenTextFile(Wfile)
hits = Clng(a.ReadLine)
hits = hits + 1
a.close
if error then
hits = 1
end if
Set a = fs.CreateTextFile(Wfile,True)
a.WriteLine(hits)
a.Close
%>
Number of hits: <% =hits %>
人数在您的文件将增加到每一次您的网页访问。最后一行在此脚本可以让您将显示的点击次数在您的回复页面。
分享：ASP Application对象教程在ASP Application对象是用来之间的信息共享所有用户的特定ASPApplication程序。所有的ASP文件在一个虚拟目录在IIS中的一部分，同一个ASPApplication程序。 该Application.Contents集合包含的所有项目，还增加了ASPApplication对象与ASP脚本的命令。 该Application.Sta