深入研究Application和Session对象(3)

额滴个神er丶

额滴个神er丶

2016-01-29 19:17

深入研究Application和Session对象(3),深入研究Application和Session对象(3)
  三、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===

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

  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("co
展开更多 50%)
分享

猜你喜欢

深入研究Application和Session对象(3)

ASP
深入研究Application和Session对象(3)

深入研究Application和Session对象

ASP
深入研究Application和Session对象

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

深入研究Application和Session对象(1)

ASP
深入研究Application和Session对象(1)

深入研究Application和Session对象(2)

ASP
深入研究Application和Session对象(2)

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

2.3 深入研究Application和Session对象

Web开发
2.3 深入研究Application和Session对象

解析ASP的Application和Session对象

Web开发
解析ASP的Application和Session对象

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Photoshop教程:路径工具制作飘逸的飘带

Photoshop教程:路径工具制作飘逸的飘带

.Net边学边讲(一)

.Net边学边讲(一)
下拉加载更多内容 ↓