📄 0078.htm
字号:
<html>
<head>
<title>新时代软件教程:操作系统 主页制作 服务器 设计软件 网络技术 编程语言 文字编辑</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
body, table {font-size: 9pt; font-family: 宋体}
a {text-decoration:none}
a:hover {color: red;text-decoration:underline}
.1 {background-color: rgb(245,245,245)}
-->
</style>
</head>
<p align="center"><script src="../../1.js"></script></a>
<p align="center"><big><strong>利用ASP显示当前在线人数</strong></big></p>
眼下，作网站已成为一种时尚，各式各样的网站如雨后春笋般冒了出来。有用CGI制作的，有用ASP<br>
制作的，还有用PHP 制作的，不一而足。有一些网站则能统计出当前的在线人数，如：“目前有32人在<br>
线”。那么，用ASP制作的网站怎样显示当前的在线人数呢？<br>
当用ASP制作的网页都存放与WWW服务器的基点目录并且WWW服务器启动之后，每当有对ASP文件的HT<br>
TP请求时，服务器都会去读取基点目录下的Global.asa文件。为了统计网站的在线人数，我们可以在Gl<br>
obal.asa文件中包含如下代码：<br>
<br>
<SCRIPT LANGUAGE="VBScript" RUNAT="Server"> <br>
Sub Application_OnStart<br>
<br>
' 当服务器开启时，设置用户计数器为0 <br>
Application("ActiveUsers") = 0<br>
End Sub <br>
Sub Session_OnStart<br>
<br>
' 设置Session对象的有效时间为20分钟（也可以更长，但是越长对服务器的资源'占用越多，因为<br>
服务器不接受少于20分钟的有效时间，所以设置少于20分钟的'有效时间是无效的） <br>
Session.Timeout = 20 <br>
<br>
' 当开始一个Session时用户计数器加1 <br>
Application.Lock <br>
Application("ActiveUsers") = Application("ActiveUsers") + 1 <br>
Application.UnLock <br>
End Sub <br>
Sub Session_OnEnd<br>
<br>
' 当结束一个Session时用户计数器减1 <br>
Application.Lock <br>
Application("ActiveUsers") = Application("ActiveUsers") - 1 <br>
Application.UnLock <br>
End Sub <br>
</SCRIPT><br>
<br>
这样，网站的在线人数就被统计出来了，我们可以利用如下一个ASP页面(js.asp)将它显示出来： <br>
jsh.asp: <br>
<%@ Language=VBScript %><br>
<HTML> <br>
<HEAD> <br>
<TITLE>统计在线人数</TITLE> <br>
</HEAD> <br>
<BODY> <br>
<B><FONT COLOR="#CC0000">当前在线<%= Application("ActiveUsers") %>人</FONT></B> <br>
</BODY> <br>
</HTML><br>
<br>
Win NT(IIS 4.0)下调试并通过了的<br>
</table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -