- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- web服务端报错处理 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149844)
-- 发布时间：2020/5/13 16:22:00
-- web服务端报错处理
手机端经常登不上去程序，然后去服务器上看就是各种各样的报错弹窗，需要手动一个个把这些报错弹窗关掉就回复正常了。短时间我也没办法把引起这些报错的bug都解决掉。我想请问有没有办法设定自动关闭这些报错弹窗，而不是每次出问题后我要亲自登录后台去关闭。
-- 发布时间：2020/5/13 16:32:00
--
1.项目事件BeforeShowErrorMessage
Functions.Execute("LogText",e.ex,e.Event)
e.Cancel = True
2.自定义函数logtext
Dim v = Args(0)
Dim bu As new StringBuilder
bu.AppendLine(Format( Date.Now,"yyyy-MM-dd HH:mm:ss.ffff")) \'记录出错时间
If Args.length > 1 Then
bu.AppendLine("事件/函数: " & Args(1)) \'记录出错的事件或者函数
End If
If Typeof v Is Exception Then \'如果是Exception的异常类型,则递归获取所有的异常堆栈
Do While v IsNot Nothing
bu.AppendLine( v.Message & vbcrlf & v.StackTrace)
v = v.InnerException
Loop
Else \'其它情况只能传入错误的文本内容
bu.AppendLine(v)
End If
Output.Logs("AppLogging").Add(bu.ToString)
Output.Logs("AppLogging").Save(ProjectPath & "Mmsglog.txt",True) \'日志位于当前项目目录里
Output.Logs("AppLogging").Clear
-- 发布时间：2020/5/13 18:40:00
--
[此贴子已经被作者于2020/5/13 19:41:12编辑过]
-- 发布时间：2020/5/13 20:16:00
--
是的，服务器经常报这样的错误，不知道怎么回事？
此主题相关图片如下：2020-05-13服务器端的故障.jpg
-- 发布时间：2020/5/14 8:39:00
--
代码有问题，使用了没有赋值的对象