用两个文件.GLOBAL.ASA和online.asp 下面分别给出两个文件的源代码.呵呵, 我也是菜鸟,大家加油哟!
<SCRIPT 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 </SCRIPT>
online.asp代码如下! <%@language=VBscript%> <Html> <head> <title> 显示在线人数 </title> </head> <body> <center> 欢迎光临本网站,当前共有<%=Application("OnLine")%>在线 </center> </body>

|