基础型访客计数器

<script language ="vbscript" runat = "server">
Function WebCounter()
  Application.Lock
  Application("Counter") = Application("Counter") + 1
  WebCounter = Application("Counter")
  Application.UnLock
End Function
</script>
<html>
  <head>
    <title>基础型访客计数器</title>
   </head>
  <body MS_POSITIONING="GridLayout">
    <form id="Form1" method="post" runat="server">
    <h2>基础型访客计数器</h2> 
    <h3>hello,您是第<font color="blue"><%= WebCounter%></font>位贵宾！</h3>
    </form> 
  </body>
</html>

posted on 2004-08-17 16:36  apple  阅读(607)  评论(0)  编辑  收藏  举报