网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 大学论文导航 设计下载 最新论文 下载排行 原创论文 论文源代码
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > ASP.net > 正文

ASP基础之Global.asa文件技巧用法

来源:http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 13/01/06

Global.asa文件可以管理在ASP应用中两个非常苛刻的对象:Application、Session。我们都知道,.asa是文件后缀名。是Active Server Application的首字母缩写

它其实是一个可选文件,程序编写者可以在该文件中指定事件脚本,并声明具有会话和应用程序作用域的对象。该文件的内容不是用来给用户显示的,而是用来存储事件信息和由应用程序全局使用的对象。该文件必须存放在应用程序的根目录内。每个应用程序只能有一个Global.asa文件。

关于Global.asa文件最常见的错误概念是它能为一般的使用的函数和子程序用作书库。Global.asa文件仅能用于创建对象的引用和俘获启动,以及结束Application对象和Session对象。

Global.asa文件主要基于会话级事件被访问,在以下三种情况下被调用:

  • 当Application_OnStart或Application_OnEnd事件被触发。
  • 当Session_OnStart或Session_OnEnd事件被触发。
  • 当引用一个在Global.asa文件里被实例化的对象(Object)。

Global.asa的标准文件格式如下:

  1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">  
  2. Sub Application_OnStart  
  3. ''Application_OnStart 当任何客户首次访问该应用程序的首页时运行  
  4. End Sub   
  5. Sub Session_OnStart   
  6. ''Session_OnStart 当客户首次运行 ASP 应用程序中的任何一个页面时运行  
  7. End Sub   
  8. Sub Session_OnEnd   
  9. ''Session_OnEnd 当一个客户的会话超时或退出应用程序时运行  
  10. End Sub   
  11. Sub Application_OnEnd   
  12. ''Application_OnEnd 当该站点的 WEB 服务器关闭时运行  
  13. End Sub   
  14. </SCRIPT> 

一、Session_onStart

先看一个控制用户进入页面的代码:

1,Global.asa(放在被调试的虚拟目录的根目录下面)

  1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">  
  2. Sub Session_OnStart ''只要是用户第一次登录本站,则会跳转到首页  
  3. response.redirect("http://www.webjx.com/")  
  4. End Sub 
  5. </SCRIPT> 

然后调试当前虚拟目录下的任何文件,你会发现所有页面都跳转向http://www.webjx.com/<
通过此“强制进入某页”的例子,可以想象当首页需要被关注的时候是非常有必要的。

下面就以一个“在线人数”的例子来继续观察Session_OnStart和Session_OnEnd事件

二、Session_onEnd

2,Global.asa(放在被调试的虚拟目录的根目录下面)

  1. <SCRIPT LANGUAGE=VBScript RUNAT=Server>  
  2. Sub Application_onStart ''初始值为0  
  3. Application("OnLine") = 0   
  4. End Sub   
  5. Sub Session_onStart ''一个用户访问进行记数加1  
  6. Application.Lock   
  7. Application("OnLine") = Application("OnLine") + 1   
  8. Application.Unlock   
  9. End Sub   
  10. Sub Session_OnEnd ''一个用户进程的结束,记数减1 (P.S.如果没有该事件程序,则执行的就是页面访问程序了。)  
  11. Application.Lock   
  12. Application("OnLine") = Application("OnLine") - 1   
  13. Application.Unlock   
  14. End Sub   
  15. </SCRIPT> 

3,online.asp

  1. <%  
  2. if request.querystring("logout")="true" then  
  3. session.Abandon()  
  4. response.end  
  5. end if  
  6. %>  
  7. 当前共有<%=Application("OnLine")%>在线  
  8. <a href="online.asp?logout=true">退出</a> 

网学推荐

免费论文

原创论文

设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved 湘ICP备09003080号