您的位置:首页技术开发ASP教程 → 深入研究Application和Session对象3

深入研究Application和Session对象3

时间:2004/11/7 4:14:00来源:本站整理作者:蓝点我要评论(0)

三、Global.asa



  ASP的Application和Session对象体现了其他ASP内置对象所没有的特征--事件。每一个访客访问服务器时都会触发一个OnStart事件(第一个访客会同时触发Application和Session的OnStart事件,但Application先于Session),每个访客的会话结束时都会触发一个OnEnd事件(最后一个访客会话结束时会同时触发Application和Session的OnEnd事件,但Session先于Application)。



  OnStart和OnEnd这两个事件一般应用在虚拟社区中统计在线人数、修改用户的在线离线状态等。要具体定义这两个事件,需要将代码写在Global.asa文件,并将该文件放在站点的根目录下(缺省是\Inetpub\wwwroot\)。另外,Application和Session对象规定了在OnEnd事件里除了Application对象外其他ASP内置对象(Response、Request、Server、Session...)一概不能使用。以下举一个虚拟社区统计在线人数的例子来说明如何使用这两个事件。



  文件说明:



  global.asa 位于d:\Inetpub\wwwroot\目录下



  default.asp 位于d:\Inetpub\wwwroot\目录下,虚拟社区登录页面



  login.asp 位于d:\Inetpub\wwwroot\目录下,用于检测用户输入的用户名及密码



  index.asp 位于d:\Inetpub\wwwroot\目录下,虚拟社区首页



  bbs.mdb 位于d:\Inetpub\wwwroot\目录下,存储用户信息的数据库



  数据库(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===



   ......'密码验证,连接数据库,检测用户输入的用户名及密码是否正确



  if 密码验证通过 then



   session("name")=rs("name")



   session("id")=rs("id")



   session("pass")=true



  else



   rs.close



   conn.close



   response.write "密码错误!"



   response.end



  end if



  application.lock



  application("online")=application("online")+1



  conn.Execute ("update bbs set online=1 where id="&session("id"))'将用户的状态设为在线



  application.unlock



  rs.close



  conn.close



  response.redirect "index.asp" '初始化数据后跳转到社区首页



  ===========



  在本例中,用application("online")变量记录已经登录社区的在线人数,因为一旦有用户访问服务器而不管用户是否登录,都会产生OnStart事件,所以不能在OnStart事件里使Applicaiton("online")加一。因为不管是否是登录用户的会话结束都会产生OnEnd事件(假如有访客访问了服务器但并不登录社区,他的会话结束后也会产生OnEnd事件),所以在Session_OnEnd事件里用了句if语句来判断是否为已登录用户的OnEnd事件,如果是才将在线人数减一。



  这只是一个统计在线人数的简单例子,对于一个完整的虚拟社区来说,仅仅统计有多少人在线是不够的,在本例中数据库里有个online字段是用来记录用户的在线状态,用户登录的时候,在login.asp里将online设为1,但用户离线时并没有将online设为0,要完善它,就要修改一下Session_OnEnd事件,在该事件里将online设为0。



  ===global.sas===



  <script LANGUAGE="VBScript" RUNAT="Server">



  Sub Application_OnStart



   application("online")=0



   set application("conn")=Server.CreateObject("ADODB.Connection")



   application("db")=Server.MapPath("\bbs.mdb") '此处最好使用绝对路径\bbs.mdb,下文有详细介绍



  End Sub



  sub Application_OnEnd



   set application("conn")=nothing



  End Sub



   Sub Session_OnStart



  End Sub



  Sub Session_OnEnd



   if session.contents("pass") then '判断是否为登录用户的Session_OnEnd



     application("con").open ="driver={Microsoft Access Driver (*.mdb)};dbq="&application("db")



      application.lock



      application("online")=application("online")-1



      application("con").Execute ("update friends set online=0 where id="&session.contents("id"))



      application.unlock



      application("con").close



   end if



  End Sub



  </script>



  ==============



  至此,完整的代码已经完成了。因为在Application和Session的OnEnd事件里不能使用Server对象,所以要将数据库的连接及数据库服务器上的物理地址(d:\inetpub\wwwroot\bbs.mdb)存储在application变量中,并在Application_OnStart事件中预先处理。同理,在Session_OnEnd事件中不能用session("pass")来代替session.contents("pass")(以下有详尽说明)。



  四、本文实例中值得引起注意的两点



  ⒈OnEnd事件里的session.contents



  刚开始接触global.asa的朋友经常会将上面Session_OnEnd事件里的



  if session.contents("pass") then 写成



  if session("pass") then,



  这样的话系统不会提示错误,但是永远也不会执行then后面的内容,这是因为在OnEnd事件里禁止使用Session对象,但是可以用Session对象的集合来调用session变量。因为IIS并没提示任何错误信息,所以笔者曾经在这上面浪费了很多时间。在此希望大家引以为鉴!



  ⒉Application_OnStart事件里用Server.MapPath获取数据库的物理地址时应使用绝对地址为了说明这个问题,大家可以做个实验:将上面Application_OnStart事件里的



  application("db")=Server.MapPath("\bbs.mdb")改为:



  application("db")=Server.MapPath("bbs.mdb")



然后在d:\inetpub\wwwroot\目录下建立一个test子目录,写一个temp.asp在test目录里。



  ====test.asp====



  <%response.write application("db")%>



  ================



再将temp.asp拷贝一份放在根目录下(d:\inetpub\wwwroot\)。用记事本打开global.asa,再打开两个浏览器浏览器A输入地址http://localhost/temp.asp,按回车,将在浏览器上输出:



  d:\inetpub\wwwroot\bbs.mdb



然后,在记事本的窗口上点"文件"菜单,选"保存"(使global.asa的修改时间改变,从而使IIS重启动所有服务),再在浏览器B输入地址http://localhost/test/temp.asp,按回车,在浏览器上输出的是:



  d:\inetpub\wwwroot\test\bbs.mdb



global.asa文件虽然是放在站点根目录下,但是如果在server.mappath中使用的是相对地址,而触发Application_OnStart事件的用户第一次访问的页面又不是属于根目录的话,得到数据库的物理地址将不会是期望的结果,希望大家要特别小心。




相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 《龙珠:超宇宙》 战斗E3 2014:瘆人僵尸《消 asp代码实现access数据导出到excel文件如何使用FSO读取Js文件内容并可以编辑修改对初学者有用的一些asp函数集学习ASP编程必会的代码

人气排行 asp代码实现access数据导出到excel文件asp不需要任何配置的伪静态实现如何使用FSO读取Js文件内容并可以编辑修改asp去除html标记和空格的代码Asp全选删除代码教大家网页伪静态知识及其2种实现方法Microsoft SQL Server 7.0安装问题(一)ASP.NET中的Code Behind技术4