<SCRIPTLANGUAGE="VBScript"RUNAT="Server">
SubSession_OnStart
EndSub简易网站源码。
SubSession_OnEnd简易视频网站源码。
EndSub
subApplication_OnStard
EndSub
subApplication_OnEnd
EndSub</SCRIPT>
会话发生时(用户浏览网页,方向Web如果**个用户在服务器启动后一个用户在服务器启动后同时发生Application_OnStard和Session_OnStart这两个事件之后,如果其他用户发出请求,只会发生Session_OnStart这个事件,而session可以设定生存期是多长,Session.timeout=X(分钟)
好了,有了这个好用的方法,我们可以准确统计在线人数,总人数是一个application当**次会话开始时,保存变量Application_OnStard清空计数器的句子放置在事件中application("online")=0,然后,在Session_OnStart事件中,放置一个句子来增加在线人数application("online")=application("online")1,而在Session_OnEnd该事件相应地放置了减少在线人数的句子,以减少计数值。
这样,本文件将改为以下文件
<SCRIPTLANGUAGE="VBScript"RUNAT="Server">
SubSession_OnStart源码之家怎么下载源码。
application("online")=application("online")1
EndSub
SubSession_OnEnd
application("online")=application("online")-1
EndSub
subApplication_OnStard
application("online")=0简单个人网站源码。
EndSub简单企业网站源码。
subApplication_OnEnd
application("online")=0
EndSub</SCRIPT>帮助网站源码。
接下来,编写一个显示图形数字的程序,在指定页面上显示在线人数。这样,就可以得出人数
*online.asp
<%@language="vbscript"%>
<%内容网站源码。
tmp=application("online")
tmp=Cstr(tmp)
dimdisp(20)
dimimages(20)
dbbits=len(tmp)
forI=1todbbits
disp(I)=left(right(tmp,I),I-(I-1))
next
forI=-1
images(I)="<imgsrc="&";"
response.write"document.write('"&images(I)&"');"信息展示网站源码。
next
%>
以上程序非常简单,这里没有分析,请自己阅读。在调用在线统计的页面上使用一个句子script语句引用online.asp显示图形统计器的文件。
<scriptlanguage="JavaScript"src=";</script>
这个页面需要服务器ASP语言支持,请详细参考您的服务器情况.