ASP 三层架构 Error处理类

从这节开始,将会给大家介绍几个asp中的三大通用类,它贯穿于我所设计的三层架构中,是对asp语法的扩展,可以提高很多细节处理上的效率,可以算是一点点框架的味道.
本节介绍错误处理类,类名con_error,在代码页面之初就进行初始化,实例名为e,以下的e.add 即使用该错误类的实例化对象进行操作.
方法介绍:
e.add(byval verrormessage ) 记录一个错误,并且设置 e.error = true . 在程序检测用户名合法性等地方发现错误时,就调用这个方法,记录一个错误信息.
例如,用户登陆时密码错误,则调用 e.add("您的账号或密码错误") .这时候,错误对象e中便记录了一个错误,错误对象的属性e.error=true .在后续操作中,可以使用错误对象的这个属性进行判断.
例如:
出现错误后弹出小窗口提示错误,并返回前一页.
if e.error then
e.alert_back "请重新登录!" 'alert_back 的作用在后面介绍.
end if
e.alert_back(byval vmessage) 使用javascript弹出一个错误提示框,显示目前所有的错误列表,alert_back(vmessage)中的vmessage显示在最后一行,用于提示用户在看到这个错误信息后需要采取的步骤. 并且返回到前一页. 这个方法的代码贴出来,大家会更好理解:
public sub alert_back(byval vmessage)
strjsmessage = jsmessage & vmessage 'jsmessage用于存储e对象中的错误列表,每个错误之间用\n分开.
%>
<script language="javascript" >
<!--//
alert("<%=strjsmessage %>"); '弹出提示错误框.
history.back(); '返回前一页
//-->
</script>
<%
response.end '注意这里要停止输出,避免出错的同时程序还继续执行.
end sub
e.alert_back 方法延伸了几个类似效果的方法,如下一同介绍,实现的过程请看附加的源码:
e.alert(byval vmessage) 只弹出错误提示框,不返回前一页,也不停止程序的执行.
e.alert_close(byval vmessage) 弹出错误提示框,当用户点击确定后,关闭当前窗口
e.ok_go(byval vmessage,byval vurl) 弹出信息提示框,当用户点击确定后,跳转到vurl页面
e.go(byval vurl) 直接跳转到vurl页面
以上几个方法的作用,大家应该都很熟悉了,其实它们不仅限于错误处理的.
e.clear 清空错误对象中记录的错误信息 , e.error = false
因为e对象是一个全局的对象,可能在很多过程中都调用了. 当你只需要统计某一个模块中的错误时,可以在开始调用这个方法,清空e中的错误.
以下几个是对response.write的包装,目的仅仅是为了使用时的方便快速.
e.debug(byval vmessage) 输出调试信息. 当程序完工时,其中会存在不少用response.write 输出的错误调试信息,要都删掉又要细细地找. 使用e.debug专门输出调试信息,当程序完成时,只需要搜索e.debug,就可以找到所有的调试错误信息的位置.
e.w(byval vmessage) 输出信息. 仅仅是response.write的简单包装,在程序中输入e.w 比输入response.write 不知道要方便多少,而且总是容易写错.
e.br 输出一个换行符,等同于 response.write "<br />"
以下4个是对response.end的包装,只是按照操作习惯,定义的几个一样功能的方法:
e.pause == response.end
e.p == response.end
e.stop == response.end
e.end == response.end
还有一个属性e.message ,输出e对象中所有的错误列表
具体的实现细节请看代码

class con_error
private blnerror
private strmessage
private strjsmessage
private sub class_initialize()
blnerror = false
strmessage = ""
end sub
private sub class_terminate()
end sub
' ==================================================================================
' property
' ==================================================================================
' message :
public property let message(byval value)
strmessage = value
end property
public property get message()
message = strmessage
end property
' error number
public property get error()
error = blnerror
end property
' jsmessage : show in messagebox
private property get jsmessage()
strjsmessage = replace(strmessage , "<br>" , "\n")
strjsmessage = replace(strjsmessage , vbcrlf , "")
jsmessage = strjsmessage
end property
' ==================================================================================
' method
' ==================================================================================
' add : add an error message
public sub add(byval vmessage)
blnerror = true
strmessage = strmessage & vmessage & "<br>"
end sub
public sub clear
blnerror = false
strmessage = ""
end sub
' alert
public sub alert(byval vmessage)
strjsmessage = jsmessage & vmessage
%>
<script language="javascript" >
<!--//
alert("<%=strjsmessage %>");
//-->
</script>
<%
end sub
' alert_back : alert and back
public sub alert_back(byval vmessage)
strjsmessage = jsmessage & vmessage
%>
<script language="javascript" >
<!--//
alert("<%=strjsmessage %>");
history.back();
//-->
</script>
<%
response.end
end sub
' alert_close : alert and close
public sub alert_close(byval vmessage)
strjsmessage = jsmessage & vmessage
%>
<script language="javascript" >
<!--//
alert("<%=strjsmessage %>");
window.opener = null;
window.close();
//-->
</script>
<%
response.end
end sub
'*********************************************
'debug : response.write ,use it to delete debug message easily,just seach "e.debug" from files
'*********************************************
public sub ok_go(byval vmessage,byval vurl)
strjsmessage = jsmessage & vmessage
%>
<script language="javascript" >
<!--//
alert("<%=strjsmessage %>");
location.href = '<%=vurl %>';
//-->
</script>
<%
response.end
end sub
public sub go(byval vurl)
response.redirect vurl
response.end
end sub
'*********************************************
'debug : response.write ,use it to delete debug message easily,just seach "e.debug" from files
'*********************************************
public sub debug (byval vmessage)
response.write vmessage
response.flush
end sub
' ****** w : write
public sub w(byval vmessage)
response.write vmessage
end sub
' ****** br : write <br>
public sub br
response.write "<br />"
end sub
'*********************************************
'pause : response.end , mark debug info clearly
'*********************************************
public sub pause
response.end
end sub
public sub p
response.end
end sub
public sub [stop]
response.end
end sub
public sub [end]
response.end
end sub
end class