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