在类中添加断言

简述：
用try捕获异常后主动抛出一个异常，在Global.asax.vb的Application_Error中用Server.ClearError()清除异常，用System.Web.HttpContext.Current.Response输出javascript代码实现信息提醒和返回上一页。


详细说明：
例如，把连接数据库的方法做成一个类cdbconn.vb。问题在于当数据库连接失败的时候，系统自动抛出的连接失败的异常的处理。
由于程序调用该类的对象后的动作不可预计，因此最好在处理该异常后，后台程序就此结束，返回之前的页面。
在类中捕获异常同样可以try，但是处理完后使后台程序就此结束就有点麻烦，在论坛中搜索到了思归大大给的一个连接：

HOW TO: Create Custom Error Reporting Pages in ASP.NET by Using Visual C# .NET
http://support.microsoft.com/default.aspx?scid=kb;EN-US;306355
vb.net的联接是
http://support.microsoft.com/default.aspx?scid=kb;EN-US;308132

实践得出方案如下：
在类文件cdbconn.vb中有
Try
            dbconn.Open()
        Catch ex As Exception
            'System.Web.HttpContext.Current.Response.Write(win.msgbox(strMsg_noneDatabase))
            Throw New System.Exception(strMsg_noneDatabase)
End Try
截获异常后再抛出一个异常。这话听起来有点毛病，主要的用途在于可能会需要处理异常带来的麻烦，这里没有什么需要处理，所以只是自定义一个异常信息给系统用户。

在Global.asax.vb中的Application_Error中添加相关动作
    Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
        ' 在发生错误时激发
        Dim objErr As Exception = Server.GetLastError().GetBaseException()
        Dim err As String = "Error Caught in Application_Error event" & _
                            System.Environment.NewLine & _
                            "Error in: " & Request.Url.ToString() & _
                            System.Environment.NewLine & _
                            "Error Message: " & objErr.Message.ToString() & _
                            System.Environment.NewLine & _
                            "Stack Trace:" & objErr.StackTrace.ToString()

        'EventLog.WriteEntry("Sample_WebApp", err, EventLogEntryType.Error)
        Server.ClearError()
        System.Web.HttpContext.Current.Response.Write("<script language='javascript'>alert('" & objErr.Message.ToString & "');</script>")
        System.Web.HttpContext.Current.Response.Write("<script language='javascript'>history.go(-1);</script>")
    End Sub

这里'EventLog.WriteEntry("Sample_WebApp", err, EventLogEntryType.Error)会使异常正常抛出，而不会继续向下执行，所以注释掉了，msdn上拷来的，难道是版本问题？

最重要的就是Server.ClearError()，没有它异常会正常抛出的。截止到这一句系统会返回一张白纸，什么都没有这当然是不行的，所以下面用response输出提示，并返回上一页。至此问题解决。