编程语言

img wuan

在类中添加断言

发表于2004/10/11 17:33:00  633人阅读

分类: Asp.Net

简述:
用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输出提示,并返回上一页。至此问题解决。

阅读全文
0 0

相关文章推荐

img
取 消
img