用兩個文件.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>
顯示在線人數(shù)
</title>
</head>
<body>
<center>
歡迎光臨本網(wǎng)站,當(dāng)前共有<%=Application("OnLine")%>在線
</center>
</body>