如何实现 程序出错后调用一个函数？

higkoo

我在测试一个B/S的程序。

这个程序本来就有个问题，客户端只要有错误就出现图示错误 “应用程序中的服务器错误。”

像这种情况下，我想做个处理。

譬如：点“保存”按钮后出现错误界面，就直接调用一个函数（函数内容其实只是一个错误提示）。

不知怎么实现？

higkoo

只是想出现错误界面是就弹出个对话框，然后停止回放。

内容如下：

Public function asperror()
msgbox "出现ASP常规错误，程序无法继续运行！",16+0,"错误"
End Function

ljitry

如果这个窗口是固定出现的，就是说只有当你点击“保存”时会出现，这是你就可以在“保存‘后面写一个判断语句：
If 这个窗口名.Exist then
    msgbox("错误提示")
End if
试试吧！

higkoo

如果是有窗口弹出就好了。
保存成功的话，就有个窗口弹出。

点保存后出错，主页面就变成图上显示的那个页面了。
如果能判断 页面上的文字.Exist 就可以了。  不过好像不行  ：（

ljitry

那就反过来想这个问题呀，如果“保存成功”这个窗口没有出现，是不是它就一定出错了！！！！是的话就停止程序！

ljitry

If 保存成功窗口.Exist then
　flag=1
else
   flag=0
end if
If flag=0 Then
　Msgbox("程序错误")
End If

higkoo

如果能读到错误就更好了。

那就可以解决其它的问题，因为ASP的错误在客户端上表现都是一样的。
如果能读到错误最好了，可以给其它的错误调用了。

higkoo

我把错误页面加到对象库里，是一个element对象，然后添加脚本如下：

  If   Browser("e-RIS2005").page("e-RIS2005").Frame("Frame").element("运行时错误").exist(1) Then
           Call one
   End If

运行过程出错：
对象不支持此属性或方法: 'Browser(...).Page(...).Frame(...).element'
Line (40): "If   Browser("e-RIS2005").page("e-RIS2005").Frame("Frame").element("运行时错误").exist(1) Then".

ljitry

exist(1)
这个“（１）”是什么意思？

yn303

好像是在1秒内判断
这是个时间参数，单位是秒
说错不要骂

higkoo

帮助文件是这样写的 那个数字是1秒的意思。

不过我的理解，1是存在，0是不存在。

好像是这样的。

higkoo

把错误页面的标题加到对象库中，然后进行判断，成功。
脚本如下：
哈哈，OK了！
If .frame("frame_3").WebElement("“/RISWeb2000”应用程序中的服务器错误。运行时错误").Exist(1) Then
        Call one
End If
End With
这样写的，走通了！  one 是我定义的一个函数，仅仅一个错误提示而已：
Function one
   msgbox "出现ASP常规错误，程序无法继续运行！",16+0,"错误"
End Function

walker1020

楼主说的把错误页面的标题加到对象库中的做法，其实就是关键字驱动测试的思想呀。关于关键字驱动测试，请参考  http://bbs.51testing.com/thread-42574-1-1.html

walker1020

谢谢楼主的共享！ 你为解决此类问题提供了一种很好的解决思路！ 论坛非常需要这样的帖子！
楼主能根据网友的提示去积极主动解决问题，精神可嘉，值得表扬！如果我是主管，我一定会把 higkoo  招聘为我的下属。呵呵！

higkoo

原帖由 walker1020 于 2006-9-12 16:45 发表
谢谢楼主的共享！ 你为解决此类问题提供了一种很好的解决思路！ 论坛非常需要这样的帖子！
楼主能根据网友的提示去积极主动解决问题，精神可嘉，值得表扬！如果我是主管，我一定会把 higkoo  招聘为我的下属。呵 ...

生活所迫啊，从一个非计算机专业 转向计算机专业，本来自己都掉了一段路了，想要在此行立足，不下功夫哪里能行。。。sdlkfj2

喜欢海

呵呵 那就更佩服了  楼主不简单啊 ：）

shangguoli

学习……

ppent

可以预见会出错的地方，用语句判断处理
无法预见会出错的地方，用recovery scenario