一聚教程网:一个值得你收藏的教程网站

热门教程

深入研究Application和Session对象(包括global.asa)3

时间:2022-11-14 23:39:11 编辑:袖梨 来源:一聚教程网

三、Global.asa
  ASP的Application和Session对象体现了其他ASP内置对象所没有的特征--事件。每一个访客访问服务器时都会触发一个OnStart事件(第一个访客会同时触发Application和Session的OnStart事件,但Application先于Session),每个访客的会话结束时都会触发一个OnEnd事件(最后一个访客会话结束时会同时触发Application和Session的OnEnd事件,但Session先于Application)。
  OnStart和OnEnd这两个事件一般应用在虚拟社区中统计在线人数、修改用户的在线离线状态等。要具体定义这两个事件,需要将代码写在Global.asa文件,并将该文件放在站点的根目录下(缺省是Inetpubwwwroot)。另外,Application和Session对象规定了在OnEnd事件里除了Application对象外其他ASP内置对象(Response、Request、Server、Session...)一概不能使用。以下举一个虚拟社区统计在线人数的例子来说明如何使用这两个事件。
  文件说明:
  global.asa 位于d:Inetpubwwwroot目录下
  default.asp 位于d:Inetpubwwwroot目录下,虚拟社区登录页面
  login.asp 位于d:Inetpubwwwroot目录下,用于检测用户输入的用户名及密码
  index.asp 位于d:Inetpubwwwroot目录下,虚拟社区首页
  bbs.mdb 位于d:Inetpubwwwroot目录下,存储用户信息的数据库
  数据库(ACCESS)结构:
   ===bbs表===
  id 用户ID,长整型
  name 用户名,文本型
  code 密码,文本型
  online 在线状态,是/否
 
  ===global.asa===
  <script LANGUAGE="VBScript" RUNAT="Server">
  Sub Application_OnStart
   application("online")=0
  End Sub
  sub Application_OnEnd
  nd Sub
  Sub Session_OnStart
  End Sub
  Sub Session_OnEnd
   if session.contents("pass") then '判断是否为登录用户的Session_OnEnd
    application.lock
    application("online")=application("online")-1
    application.unlock
   end if
  End Sub
  </script>
  ==============
  ===login.asp===
   ......'密码验证,连接数据库,检测用户输入的用户名及密码是否正确

热门栏目