Public function asperror()
msgbox "出现ASP常规错误，程序无法继续运行！",16+0,"错误"
End Function作者: ljitry 时间: 2006-9-12 14:10
如果这个窗口是固定出现的，就是说只有当你点击“保存”时会出现，这是你就可以在“保存‘后面写一个判断语句：
If 这个窗口名.Exist then
msgbox("错误提示")
End if
试试吧！作者: higkoo 时间: 2006-9-12 14:14 标题: 没有窗口弹出 如果是有窗口弹出就好了。
保存成功的话，就有个窗口弹出。
点保存后出错，主页面就变成图上显示的那个页面了。
如果能判断 页面上的文字.Exist 就可以了。 不过好像不行 ：（作者: ljitry 时间: 2006-9-12 14:43
那就反过来想这个问题呀，如果“保存成功”这个窗口没有出现，是不是它就一定出错了！！！！是的话就停止程序！作者: ljitry 时间: 2006-9-12 14:50
If 保存成功窗口.Exist then
flag=1
else
flag=0
end if
If flag=0 Then
Msgbox("程序错误")
End If作者: higkoo 时间: 2006-9-12 15:00 标题: 嗯，可以解决问题 如果能读到错误就更好了。
好像是这样的。作者: higkoo 时间: 2006-9-12 15:36 标题: 问题解决子。 把错误页面的标题加到对象库中，然后进行判断，成功。
脚本如下：
哈哈，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 时间: 2006-9-12 16:41
楼主说的把错误页面的标题加到对象库中的做法，其实就是关键字驱动测试的思想呀。关于关键字驱动测试，请参考 http://bbs.51testing.com/thread-42574-1-1.html作者: walker1020 时间: 2006-9-12 16:45
谢谢楼主的共享！ 你为解决此类问题提供了一种很好的解决思路！ 论坛非常需要这样的帖子！
楼主能根据网友的提示去积极主动解决问题，精神可嘉，值得表扬！如果我是主管，我一定会把 higkoo 招聘为我的下属。呵呵！作者: higkoo 时间: 2006-9-12 19:28 标题: 哈哈……