ASP显示在线人数_自动测试脚本语言

ASP显示在线人数

发表于：2007-06-30来源：作者：点击数：标签：

用两个文件.GLOBAL.ASA和online.asp 下面分别给出两个文件的源代码.呵呵, 我也是菜鸟,大家加油哟! SCRIPT LANGUAGE= VB Script RUNAT=Server Sub Application_onStart Application(OnLine) = 0 End Sub Sub Session_onStart Application.Lock Application(OnL

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

原文转自：http://www.ltesting.net

软件测试 > 测试开发技术 > 软件测试开发语言 > 自动测试脚本语言 >