28,390
社区成员
发帖
与我相关
我的任务
分享大家帮忙看看，简单在线哪里错了，解决马上给分
我做一个在线统制，就是不显示有多少人
online.asp
========
<%@ language=VBscript %>
<Html>
<head>
<title>
显示在线人数
</title>
</head>
<body>
<center>
欢迎光临本网站,当前共有<%=Application("OnLine")%>在线
</center>
</body>
global.asa
==========
<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>
global.asa
==========
<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>
...全文
请发表友善的回复…
发表回复
coolboy0000love 2003-12-09
- 打赏
- 举报
我试试看。。。。。。。。。。
fenmixiao 2003-12-09
- 打赏
- 举报
如果你用iis发布的。再online.asp的页面上加上<!--#include file="global.asa"-->就ok了，我试验了，通过了
yclr 2003-12-09
- 打赏
- 举报
up!
我还没用过application
但感觉在调用函数时好像有问题，因为
<%=Application("OnLine")%>这个值没有出来
我还没用过application
但感觉在调用函数时好像有问题，因为
<%=Application("OnLine")%>这个值没有出来
jnyezhi 2003-12-09
- 打赏
- 举报
程序没问题，应该是global.asa放的位置不对，应当放到虚拟目录的根目录下才行
luluso 2003-12-09
- 打赏
- 举报
你这两个文件必需在同一个虚拟目录下。如果不是的话。就用iis说明一下你这个文件夹是个虚拟目录。
cuipi2003 2003-12-09
- 打赏
- 举报
global.asa
放在根目录下
session.timeout设置短一点
然后重起iis就可以了
放在根目录下
session.timeout设置短一点
然后重起iis就可以了
coolboy0000love 2003-12-09
- 打赏
- 举报
在线等待
