|
用ASP编写虚拟社区、网上购物等程序时，Application和Session对象具有举足轻重的作用，能够灵活合理地运用这两 一、Application对象的成员概述 Application对象成员包括Application对象的集合、方法和事件。 ⒈Application对象的集合 Contents集合：没有使用<OBJECT>元素定义的存储于Applicaiton对象中的所有变量的集合 StaticObjects:使用<OBJECT>元素定义的存储于Application对象中的所有变量 的集合 例：在default.asp中有如下赋值 application("a")="a" application("b")=128 application("c")=false 则有contents集合 application.contents(1)="a" '也可写为application.contents("a")="a" application.contents(2)=128 '也可写为application.contents("b")=128 application.contents(3)=false '也可写为application.contents("c")=false 在此笔者推荐你在调用时使用类如application.contents("a")的方法，因为这样更为直观，如果用序号来表示的话则 ⒉Application对象的方法 Contents.Remove("变量名")：从Application.Contents集合中删除指定的变量 Contents.RemoveAll() ：把Application.Contents集合中的所有变量删除 Lock() ：锁定Application对象，使得只有当前的ASP页对内容能进行访问 Unlock() ：解除对Application对象的锁定 例：在default.asp中： application("a")="a" application("b")=128 application("c")=false response.write application.contents(1)&"<br>" response.write application.contents(2)&"<br>" response.write application.contents(3)&"<br>" response.write "After Remove b:" application.contents.remove("b") response.write application.contents(1)&"<br>" response.write application.contents(2)&"<br>" 执行结果： a 128 False After Remove b: a False 如果要删除集合中所有变量用application.contents.removeall即可，至于Lock和Unlock方法在实际中经常用到，读 ⒊Application对象事件 OnStart：第一个访问服务器的用户第一次访问某一页面时发生 OnEnd ：当最后一个用户的会话已经结束并且该会话的OnEnd事件所有代码已经执行完毕后发生，或最后一个用户访问 想要定义application对象的OnStart和OnEnd事件里做什么需要将代码写在Global.asa这个文件里（下文有举例），并 二、Session对象的成员概述 Session对象的成员比Application对象多一项属性，即：集合、属性、方法、事件 ⒈Session对象的集合 Contents ：没有使用<OBJECT>元素定义的存储于特定Session对象的所有变量的集合。 StaticObject：使用<OBJECT>元素定义的、存储于Session对象中的所有变量的集合。 例：在default.asp中有如下赋值 session("a")="a" session("b")=128 session("c")=false 则有contents集合 session.contents(1)="a" '也可写为session.contents("a")="a" session.contents(2)=128 '也可写为session.contents("b")=128 session.contents(3)=false '也可写为session.contents("c")=false ⒉Session对象的属性 CodePage: 可读/可写。整型。定义用于在浏览器中显示页内容的代码页。代码页是字符集的数字值，不同的语言使用 LCID : 可读/可写。整型。定义发送给浏览器的页面地区标识。LCID是唯一地标识地区的一个国际标准缩写，例如， SessionID: 只读。长整型。返回本会话的会话标识符。每创建一个会话，由服务器自动分配一个标识符。可以根据它 Timeout : 可读/可写。整型。为会话定义以分钟为单位的超时限定。如果用户在这个时间内没有刷新或请求任何一个 以上属性在实际应用中作用不大，而且基本上不需要怎么修改，这几个属性也没什么特殊的地方。 ⒊Session对象的方法 Contents.Remove("变量名"): 从Session.contents集合中删除指定的变量 Contents.Removeall() : 删除Session.contents集合中的所有变量 Abandon() : 结束当前用户会话并且撤消当前Session对象。 Session对象的Contents.Remove("变量名")和Contents.Removeall()方法与Application对象的基本上没什么区别，为 用户会话的所有Session变量，不同的是Contents.Removeall()单纯地释放Session变量的值而不终止当前的会话，而 ⒋Session对象的事件 OnStart: 当ASP用户会话产生时触发，一旦有任一用户对本服务器请求任一页面即产生该事件。 OnEnd : 当ASP用户会话结束时触发，当使用Abandon()方法或超时也会触发该事件。 这两个事件和Application的OnStart、OnEnd事件一样，也是必须放在Global.asa文件里，下 三、Global.asa ASP的Application和Session对象体现了其他ASP内置对象所没有的特征--事件。每一个访客访问服务器时都会触发一 OnStart和OnEnd这两个事件一般应用在虚拟社区中统计在线人数、修改用户的在线离线状态等。要具体定义这两个事 文件说明： 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 在线状态，是/否 ＜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")变量记录已经登录社区的在线人数，因为一旦有用户访问服务器而不管用户是否 这只是一个统计在线人数的简单例子，对于一个完整的虚拟社区来说，仅仅统计有多少人在线是不够的，在本例中数 ===ｇｌｏｂａｌ．ｓａｓ=== ＜script LANGUAGE="VBScript" RUNAT="Server"＞ Sub Application_OnStart application("online")=0 set application("conn")=Server.CreateObject("ADODB.Connection") application("db")=Server.MapPath("bs.mdb") '此处最好使用绝对路径bs.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对象，所以要将数据库的 四、本文实例中值得引起注意的两点 ⒈OnEnd事件里的session.contents 刚开始接触global.asa的朋友经常会将上面Session_OnEnd事件里的 if session.contents("pass") then 写成 if session("pass") then， 这样的话系统不会提示错误，但是永远也不会执行then后面的内容，这是因为在OnEnd事件里禁止使用Session对象， ⒉Application_OnStart事件里用Server.MapPath获取数据库的物理地址时应使用绝对地址为了说明这个问题，大家可 application("db")=Server.MapPath("bs.mdb")改为: application("db")=Server.MapPath("bbs.mdb") 然后在d:inetpubwwwroot目录下建立一个test子目录，写一个temp.asp在test目录里。 ====test.asp==== ＜％response.write application("db")％＞ ================ 再将temp.asp拷贝一份放在根目录下（d:inetpubwwwroot）。用记事本打开global.asa，再打开两个浏览器，浏览器A d:inetpubwwwrootbs.mdb 然后，在记事本的窗口上点"文件"菜单，选"保存"（使global.asa的修改时间改变，从而使IIS重启动所有服务），再在浏 d:inetpubwwwroot estbs.mdb global.asa文件虽然是放在站点根目录下，但是如果在server.mappath中使用的是相对地址，而触发Application_OnStart |