<% dim is_debug is_debug = true sub chkerr(place) if is_debug = false then exit sub if err then Response.Write "错误发生在:"&place&"错误描述:"&err.description response.End() else Response.Write "在["&place&"]没有发生错误!" end if end sub %>
使用方法:
1、把这个函数放到conn.asp或者其他你可能每页都包含进去的文件里;
2、在需要查错的地方,或者怀疑有错,或者……反正在相当于要断点调试的位置,放上这句代码
chkerr "Check Point 1" '双引号里的内容是你自己定义的可以表明程序运行位置的字符;
3、程序运行到这个位置,如果没错,会提示未发生错误,如果有错,会提示错误说明,并在当前位置停止;
★差点忘了那个is_debug参数,是我自己定义的一个变量,表示程序是否支持调试,如果在sub...之前设置其为false,则不会出现查错提示。