ASP 三层架构 Error处理类

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了ASP 三层架构 Error处理类，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含5590字，纯文字阅读大概需要8分钟。

内容图文

从这节开始,将会给大家介绍几个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 

            
            


           
                
                                                

内容总结

以上是互联网集市为您收集整理的ASP 三层架构 Error处理类全部内容，希望文章能够帮你解决ASP 三层架构 Error处理类所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---