on error resume next
'你的代碼，如數(shù)據(jù)庫(kù)連接
call catch("顯示給用戶(hù)的提示信息")

%
option explicit
'例一---------------------------
'必須和on error resume next一起使用，但在網(wǎng)頁(yè)沒(méi)有正式發(fā)布之前最好將其注釋掉，以免在調(diào)試時(shí)看不到出錯(cuò)詳細(xì)信息
on error resume next
'i沒(méi)有定義，會(huì)出錯(cuò)，使用catch清除錯(cuò)誤并保存到記事本
i
call catch("頁(yè)面無(wú)法訪問(wèn)")
'-------------------------------
'例二---------------------------
function conn()
'必須和on error resume next一起使用
on error resume next
'...........你的連接數(shù)據(jù)庫(kù)代碼
call catch("數(shù)據(jù)庫(kù)打開(kāi)錯(cuò)誤")
end function
'-------------------------------
sub catch(str)
if err.number > 0 then
dim tmp,path
'錯(cuò)誤日志絕對(duì)路徑，如"/error_log.txt"
path = "/table/error_log.txt"
tmp = tmp "出錯(cuò)頁(yè)面：" geturl vbcrlf
tmp = tmp "錯(cuò)誤時(shí)間：" now() vbcrlf
tmp = tmp "來(lái)訪ＩＰ：" ip vbcrlf
tmp = tmp "提示信息：" str vbcrlf
tmp = tmp "錯(cuò)誤代號(hào)：" err.number vbcrlf
tmp = tmp "錯(cuò)誤信息：" err.description vbcrlf
tmp = tmp "應(yīng)用程序：" 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所用到的函數(shù)--------------------
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
'獲取當(dāng)前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
'函數(shù)：讀取文件內(nèi)容到字符串
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 '文本類(lèi)型
.mode = 3 '讀寫(xiě)模式
.charset = "gb2312"
.open
.loadfromfile(server.MapPath(path))
tmp = .readtext()
end with
stream.close : set stream = nothing
file_read = tmp
end function
'函數(shù)：保存字符串到文件
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 '文本類(lèi)型
.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
'函數(shù)：檢測(cè)文件/文件夾是否存在
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
%>