捕捉并保存ASP运行错误的函数代码

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了捕捉并保存ASP运行错误的函数代码，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含3115字，纯文字阅读大概需要5分钟。

内容图文

on error resume next 
'你的代码，如数据库连接 
call catch("显示给用户的提示信息") 
 
功能：清除IIS的错误提示信息，自定义错误提示返回给用户，并将出错信息保存到txt文件（当然你也可以稍做修改转向自定义页面等） 

代码： 
 代码如下:

<% 
option explicit 
'例一--------------------------- 
'必须和on error resume next一起使用，但在网页没有正式发布之前最好将其注释掉，以免在调试时看不到出错详细信息 
on error resume next 
'i没有定义，会出错，使用catch清除错误并保存到记事本 
i 
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 
%> 

            
            


           
                
                                                

内容总结

以上是互联网集市为您收集整理的捕捉并保存ASP运行错误的函数代码全部内容，希望文章能够帮你解决捕捉并保存ASP运行错误的函数代码所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端