?? error.asp
字號:
<%
'顯示錯誤信息過程一
sub disp_error1(err_info,href)
Response.Write("<div align=center><p><font color=#ff0000 size=+3>錯誤信息</font></p>")
Response.Write(err_info)
if href="" then
Response.Write("<br>系統(tǒng)5秒后自動<a href='#' onclick='javascript:location.href=history.go(-1)'>返回</a>")
else
Response.Write("<a href="&href&">返回</a>")
end if
Response.Write("<script language=javascript>")
if href="" then
Response.Write("setTimeout('history.go(-1)',5000);")
end if
Response.Write("</script>")
Response.End
end sub
'顯示錯誤信息過程二
sub disp_error(err_info,href)
Response.Write("<script language=javascript>")
Response.Write("alert('"&err_info&"');")
if href="" then
Response.Write("history.go(-1);")
else
Response.Write("top.location.href='"&href&"';")
end if
Response.Write("</script>")
Response.End
end sub
sub disp_error2(info)
Response.Write("<script language='javascript'>")
Response.Write("alert('"&info&"');")
Response.Write("window.close();")
Response.Write("</script>")
end sub
'中止事務處理
sub mts_false()
if err.number<>0 then
conn.rollbacktrans
objcontext.setabort
end if
end sub
'完成事務處理
sub mts_true()
if err.number=0 then
conn.commitrans
objectcontext.setcomplete
end if
end sub
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -