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>
图片内容
-
ASP平台下物资管
-
ASP中将视频文件
-
如何使用DOTMSN
-
如何配置ASP运行
-
通过预处理器指
-
WPS相对于OFFIC
-
.net中正则表达
-
Office 2007企业
-
WinForm设计之A
-
WIN32下DELPHI中
-
WIN32下DELPHI中
-
VS2005 系列控件