好学IT学院:IT信息技术分享交流平台
标签:ASP  来源:www.knowsky.com  作者:佚名  发布时间:2008-12-30  ★★★加入收藏〗〖手机版
摘要:用ASP编写虚拟社区、网上购物等程序时,Application和Session对象具有举足轻重的作用,能够灵活合理地运用这两个对象是提高程序质量的关键。下面让笔者根据自己在这方面的经验,向大家深入介绍一下ASP的这两个内建对象。…

三、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")(以下有详尽说明)。

  • 好学触屏公众号虎力全开、杨帆起航!
  • 好学考试H5触屏版开放内测