为了编写用户界面的应用程序,开发者可以把应用程序标准的逻辑和时间处理的代码加到Web Application 里面。这些代码不产生用户界面,也不想英单个得页面的请求。事实上,这些代码处理更高水平的事件,如Application_Start, Application_End, Session_Start, Session_End,等等。开发者通过放在web应用程序根目录下面的Global.asax来响应这些事件。
Asp.net通过一个动态的.NET FrameWork 类自动解析和编译这个文件,这个类就是HttpApplication基类,在第一时间里面,在这个文件里面的应用程序的资源将会被响应。
首先,在包含有请求的应用程序名字空间中被访问之前,Global.asax将被解析和编译成.NET Framework的一个类。这个文件本身有拒绝被访问的配置。
下面我们来看看这个文件里面的具体内容,首先我们声明这个文件的使用语言、运行环境:
<script language=”VB” runat=server>
‘相关方法
</script>
然后我们就可以定义各种方法了,
Sub Application_Start()
‘方法的属性等
End Sub
如果事件处理代码需要用到名字空间,我们可以这样来引用它:
<%@ Import Namespace=”System.Data.SQL”%>
下面我们来看看这个文件的具体应用,首先我们在我们的Web Server上建立一个Global.asax文件,我们在里面加上我们的代码:
<script language=”VB” runat=server>
‘相关方法
Sub Application_Start()
‘方法的属性等
End Sub
Sub Application_Start(Sender As Object, E As EventArgs)
Application.Lock()
Application("counter") = CType(Application("counter") + 1, Int32)
Application.UnLock()
End Sub
Sub Application_End(Sender As Object, E As EventArgs)
' Clean up application resources here
End Sub
Sub Session_Start(Sender As Object, E As EventArgs)
Response.Write("Session 正在启动...<br>")
End Sub
Sub Session_End(Sender As Object, E As EventArgs)
' Clean up session resources here
End Sub
</script>
当然,我们还要配置Config.web,用来指定出错信息的打印页面。根据上面我们配置Config.web的经验,我们很容易的就可以对这个文件进行配置:
<configuration>
<customerrors mode="on" defaultredirect="error.htm" />
<globalization requestencoding="gb2312" responseencoding="gb2312" />
</configuration>
第二句话就是配置我们指定的出错页面语句。我们写两个页面来实现它,一个为出错页面,一个为实现这个功能的aspx页面。出错页面很简单的,就是报告程序出错时显示的信息,我们就写“在config.web里面配置的连接!“,是经过aspx页面甩出来的。
在aspx页面,我们用下面的语句来响应出错按钮点击事件:
Sub Error_Click(Sender As Object, E As EventArgs)
‘甩出异常!
throw New Exception()
End Sub
以外我们的响应Session的方法用下面的语句来说明:
Sub Session_Click(Sender As Object, E As EventArgs)
Session.Abandon()
Response.Redirect("global.aspx")
End Sub
下面是完整的代码:
<html>
<script language="VB" runat="server">
'页面导入
Sub Page_Load(Sender As Object, E As EventArgs)
Response.Write("正在装入页面...<br>")
End Sub
'Session事件
Sub ssaidy(Sender As Object, E As EventArgs)
Session.Abandon()
Response.Redirect("global.aspx")
End Sub
'响应错误方法
Sub esaidy(Sender As Object, E As EventArgs)
'抛出异常
throw New Exception()
End Sub
</script>
<body>
<br><br><br>
<center>
<form runat="server">
<input type="submit" Value="刷新这个页面" runat="server"/>
<input type="submit" OnServerClick="ssaidy" Value="结束这个Session" runat="server"/>
<input type="submit" OnServerClick="esaidy" Value="错误表示" runat="server"/><p>
<hr>
</form>
</center>
<br><br>
</body>
</html>
评论