IDC资讯中心
简述：
用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输出提示，并返回上一页。至此问题解决。
