这个global.asa文件用来实现使用数据库的网站计数器。数据库用的是Access,问题是：每次访问网站的时候计数器能从数据库中读出application("PageCounter")的值，当结束访问网站时application("PageCounter")的值不会被保存到数据库中。代码如下:[color=008000]大家重点看下会话结束时保存统计访问网站数量那段（sub Appication_Onend）[/color]

 <script language=VBScript" runat="Server">
  sub Application_OnStart
     application.lock
     dim sql,rs.conn
     on error resume next
     set conn=server.createobject("ADODB.Connection")
     DBPath=Server.MapPath("data/PageCounter.mdb")
     conn.open"provider=microsoft.jet.oledb.4.0;data source="&DBpath
     sql="select VISIT_TIMES from PageCounter where PAGE_URL='default.asp'"
     set rs=conn.execute(sql)
     if err<>0or rs.fidlds.count<>1 then
           application("PageCounter")=-1
     else
           applicatin("PageCounter")=rs("VISIT_TIMES")
     end if
     set conn=nothing
     set rs=nothing
     set sql=nothing
     application.unlock
end sub

sub Application_OnEnd
     application.lock
     IF IsObject(conn) Then
         set rs=nothing
         conn.close
         set conn=nothing
         set sr=nothing
         set sql=nothing
      END If
      dim sql,rs,conn
      on error resume next
      set conn=server.createobject("ADODB.Connection")
      DBPath=Server.MapPath("data/PageCounter.mdb")
      conn.open"provider=microsoft.jet.oledb.4.0;data source="&DBpath  
      sql="update PageCounter set VISIT_TIMES=applicatio("PageCounter")"_
      &where PAGE_URL='default.asp'"
      conn.execute(sql)
      set conn=nothing
      set rs=nothing
      set sql=nothing
      application.unlock
   end sub
 
   sub Session_OnStart
       if application("PageCounter")>-1 then
            application.lock
            applicaton("PageCounter")=application("PageCounter")+1
            application.unlock
            session("UserName")=""
         end if
    end sub
   sub Seesion_OnEnd
        session.contents.remove("UserName")
    end sub
</script>