<%@ 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重启，计数器将清零，在下面的评论会不断更新解决方法的！