<%
'顯示錯誤信息過程一
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
%>