博客园  :: 首页  :: 新随笔  :: 订阅 订阅  :: 管理
<%@ Page Language="VB" debug=true %>
<head>
<script language="vb" runat="server">
sub page_load(sender as object,e as eventargs)
 application.Lock() '锁定,不允许其他用户修改变量
 application.set("cnt",application("cnt")+1) '访问计数器加1,这里用set 给cnt赋值
 application.UnLock() '解除锁定
lbl.text="你是第:"& application("cnt") & "位访问者"
end sub
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<asp:Label ID="lbl" runat="server"/>
</body>
</html>

上面这个计数器的问题是,当IIS重启,计数器将清零,在下面的评论会不断更新解决方法的!