ASP显示在线人数
作者：简简单单
2008-01-18
用两个文件.GLOBAL.ASA和online.asp
下面分别给出两个文件的源代码.呵呵,
我也是菜鸟,大家加油哟!
T LANGUAGE=VBScript RUNAT=Server>
Sub Application_onStart
Application("OnLine") = 0
End Sub
Sub Session_onStart
Application.Lock
Application("OnLine") = Application("OnLine") + 1
Application.Unlock
End Sub
如果防止刷新,不要下面这段!
Sub Session_OnEnd
Application.Lock
Application("OnLine") = Application("OnLine") - 1
Application.Unlock
End Sub
online.asp代码如下!
<%@language=VBscript%>
<br />显示在线人数<br />
欢迎光临本网站,当前共有<%=Application("OnLine")%>在线
下面分别给出两个文件的源代码.呵呵,
我也是菜鸟,大家加油哟!
Sub Application_onStart
Application("OnLine") = 0
End Sub
Sub Session_onStart
Application.Lock
Application("OnLine") = Application("OnLine") + 1
Application.Unlock
End Sub
如果防止刷新,不要下面这段!
Sub Session_OnEnd
Application.Lock
Application("OnLine") = Application("OnLine") - 1
Application.Unlock
End Sub
online.asp代码如下!
<%@language=VBscript%>
欢迎光临本网站,当前共有<%=Application("OnLine")%>在线
