error.asp

来自「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」· ASP 代码 · 共 54 行

<%
'显示错误信息过程一
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>系统5秒后自动<a href='#' onclick='javascript: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
%>