asp运行过程中捕捉和保存asp错误的函数

在asp调试的时候，经常是根据出现的错误提示来找到错误的地方，然后作相应的修改，直到没有错误为止。这不仅是asp调试的方法，也是所有程序的调试方法。在asp的运行过程中，如何更明白的显示出现的错误在哪个页面，第几行，但又不能让客户端看到这个错误。所以想出来一个方法：使用on error resume next，将错误不显示到页面上，这样就不会给客户看到。但还要将错误写到一个自定义的日志文件中，以便我们开发人员方便找到错误所在的页面，或者对出现错误的情况下，转向一个自定义的页面上来，这样能给客户更好的体验。
过程名：catch(str)
功 
 
 
能：清除IIS的错误提示信息，自定义错误提示返回给用户，并将出错信息保存到txt文件（当然你也可以稍做修改转向自定义页面等）
使用方法：

<
%on error resume next '你的代码，如数据库连接 call catch("显示给用户的提示信息") %>

 
catch 函数的具体代码如下：

<
% option explicit '例一--------------------------- '必须和on error resume next一起使用，但在网页没有正式发布之前最好将其注释掉，以免在调试时看不到出错详细信息 on error resume next 'i没有定义，会出错，使用catch清除错误并保存到记事本 call catch("页面无法访问") '------------------------------- '例二--------------------------- function conn()   '必须和on error resume next一起使用   on error resume next   '...........你的连接数据库代码   call catch("数据库打开错误") end function '------------------------------- sub catch(str) if err.number <
>
 0 then dim tmp,path '错误日志绝对路径，如"/error_log.txt" path = "/table/error_log.txt" tmp = tmp &
 "出错页面：" &
 geturl &
 vbcrlf tmp = tmp &
 "错误时间：" &
 now() &
 vbcrlf tmp = tmp &
 "来访ＩＰ：" &
 ip &
 vbcrlf tmp = tmp &
 "提示信息：" &
 str &
 vbcrlf tmp = tmp &
 "错误代号：" &
 err.number &
 vbcrlf tmp = tmp &
 "错误信息：" &
 err.description &
 vbcrlf tmp = tmp &
 "应用程序：" &
 err.source &
 vbcrlf &
 vbcrlf &
 vbcrlf tmp = tmp &
 file_read(path) call file_save(tmp,path,1) err.clear() die(str) end if end sub '以下为catch所用到的函数-------------------- sub echo(str) response.write(str) end sub sub die(str) echo(str) : response.end() end sub function ip() ip = request.servervariables("remote_addr") end function '获取当前URL function geturl() dim tmp if lcase(request.servervariables("https")) = "off" then tmp = "http://" else tmp = "https://" end if tmp = tmp &
 request.servervariables("server_name") if request.servervariables("server_port") <
>
 80 then tmp = tmp &
 ":" &
 request.servervariables("server_port") end if tmp = tmp &
 request.servervariables("url") if trim(request.querystring) <
>
 "" then tmp = tmp &
 "?" &
 trim(request.queryString) end if geturl = tmp end function '函数：读取文件内容到字符串 function file_read(path) dim tmp : tmp = "false" if not file_exists(path) then file_read = tmp : exit function dim stream : set stream = server.CreateObject("ADODB.Stream") with stream .type = 2 '文本类型 .mode = 3 '读写模式 .charset = "gb2312" .open .loadfromfile(server.MapPath(path)) tmp = .readtext() end with stream.close : set stream = nothing file_read = tmp end function '函数：保存字符串到文件 function file_save(str,path,model) if model<
>
0 and model<
>
1 then model=1 if model=0 and file_exists(path) then file_save=true : exit function dim stream : set stream = server.CreateObject("ADODB.Stream") with stream .type = 2 '文本类型 .charset = "gb2312" .open .writetext str .savetofile(server.MapPath(path)),model+1 end with stream.close : set stream = nothing file_save = file_exists(path) end function '函数：检测文件/文件夹是否存在 function file_exists(path) dim tmp : tmp = false dim fso : set fso = server.CreateObject("Scripting.FilesyStemObject") if fso.fileexists(server.MapPath(path)) then tmp = true if fso.folderexists(server.MapPath(path)) then tmp = true set fso = nothing file_exists = tmp end function %>