一个简单实用的ASP调试函数和使用方法

<%
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，则不会出现查错提示。