神马品牌网四狂神传说2:高手帮忙.asp纠错
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 14:50:32
<head>
<%
dim n
n=0
application.lock
application("n")=application("n")+1
application.unlock
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
</head>
<body>欢迎您的光临,您是本页的第<% =application("n") %>位访客
</body>
</html>
问题补充：为何结果不显示数值?
用两个文件.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>
application("n")=application("n")+1 改为
n=n+1
<% =application("n") %>改为
<%= n %>试一下
测试通过,没有问题,请确定你是在iis服务器环境下测试
程序作为访客计数器没有问题
似乎dim n;n=0没什么用啊，既然有了application全局变量就不需要其他变量辅助了
application.lock
application("n")=application("n")+1
application.unlock
这几句似乎反了呀，已经锁定了怎么还能操作呢
应该先解锁（.unlock)然后操作完再加锁（.lock）如：
application.unlock
application("n")=application("n")+1
application.lock