用两个文件.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>