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

　　on error resume next

　　'你的代码，如数据库连接

　　call catch("显示给用户的提示信息")

　　<%

　　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

　　%>