网页服务端中，希望记录服务器的异常信息，同时因为是服务端，所以不要显示异常窗口，还要及时给前端一个服务端异常提示，不要让前端直接等待死机。

如果用BeforeShowErrorMessage事件，这时不知道怎么给前端回写服务端异常，如果用

try

Catch ex As Exception

    Functions.Execute("错误日志", ex)
    e.WriteString("服务端异步异常，请联系管理员！") 

End Try

这时的问题是，BeforeShowErrorMessage事件不起作用，只能靠Functions.Execute("错误日志", ex)这个内部函数，但是这样写的异常日志没有“Event：   字符型，返回发生错误的事件名称，如果错误发生在自定义函数中，则返回函数名”，造成错误无法排查，不知道有啥办法能处理。

错误日志内部函数如下：

Dim v As Exception = args(0)
Dim msg As String
If TypeOf v Is Exception Then \'如果是Exception的异常类型,则递归获取所有的异常堆栈
    Do While v IsNot Nothing
        msg &= v.Message & vbcrlf & v.StackTrace & vbcrlf
        v = v.InnerException
    Loop
End If
\'msg = v.Event & ":" & msg
\'Functions.Execute("错误日志", msg)
If FileSys.DirectoryExists(ProjectPath & "log") = False Then \'如果目录不存在
    FileSys.CreateDirectory(ProjectPath & "log")\'创建
End If
For Each File As String In FileSys.GetFiles(ProjectPath & "log")
    Dim ifo As New FileInfo(File) 
    If ifo.CreationTime.AddDays(16) < Date.Now Then
        FileSys.DeleteFile(File, 2, 2) \'则彻底删除之
    End If 
Next
Output.Logs("AppLogging").Add(Format( Date.Now, "yyyy-MM-dd HH:mm:ss.ffff") & vbCrLf & msg)
Output.Logs("AppLogging").Save(ProjectPath & "log\\" & Format(Date.Today, "yyyyMMdd") & "log.txt", True) \'日志位于当前项目目录里
Output.Logs("AppLogging").Clear

反复调试，终于解决这个问题了，定义一个全局变量，Public _httpe As RequestEventArgs

在HttpRequest事件里，一开始就把有e参数传给_httpe，即_httpe=e

在BeforeShowErrorMessage事件里，e.Cancel = true 前面把错误信息写入日志，发送管理员邮件，并加入

_httpe.WriteString("服务端异步异常，请联系管理员！") 

这时就可以直接回应前端了。

用try也不好啊，先不说代码变复杂这些事，因为是内部函数套内部函数，要想错误显示完整，就需要每个事件，每个内部函数都try一下，这样就会发生，一但有报错，就一层一层的try回来，系统效率是不是低很多了？

按这算法，这事没个好方案。