繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP代码中的容错机制
- ASP
- 嵌入式Web视频点播系统实现方法
- GB与BIG5内码转换COM原代码
- 金额阿拉伯数字转换为中文的存储过程
- 利用 WSH 作定时工作流程
- 用InstallShield 进行 ASP 软件的打包和自动安装
- 服务器获得客户端时间的方法
- 关于如何读出图片的高度与长度的总结
- 按下回车键指向下一个位置的一个函数
- 一个不错的随机函数
- 一套加解密字符串的函数
- 一段加密函数（base64）
- 一段加密函数
- 使用asp实现支持附件的邮件系统（三）
- 使用asp实现支持附件的邮件系统（二）
- 使用asp实现支持附件的邮件系统（一）
- 检查当前目录下是否存在指定的文件，如果存在就重新命名
- MD5加密的javascript实现例子
- 如何在服务器端调用winzip命令行对上传的多个文件打包压缩
- MD5不可逆加密算法的ASP实现实例
- 看人家用使用InstallShield制作ASP安装程序(6)
ASP代码中的容错机制
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-08-14 浏览: 233 ::
收藏到网摘: n/a
以国内最流行ASP为例，我不知道有多少人会在写代码时想到“容错”这个概念，实际上当我遇到这种事时，也是不了了之。为什么呢，想想最初的意思是认为写如下代码就能容错了，见示例1-1。
<%@ Language=VBScript %>
<%option explicit%>
<%
'出错过滤
on error resume next
……………(代码略)
%>
示例1-1 常见代码一瞥
以上代码就经常出现在各位同仁的手中，不用说出个中原因，我完成能理解各位现在的心情，我可以向大家坦白地说，我写了二年的ASP网页，大多数都是这种方式，不断的写，不断的改，心力交瘁，现在都不愿回头改写自已的代码了。实际上最基本的容错机制的想法，就是不要相信程序能为你节省多少事，要把控制权掌握在自已的手中，这是必要的。
<%@ Language=VBScript %>
<%Option Explicit%>
<%
'========================================
DIM NDEBUG_MSG
NDEBUG_MSG=TRUE
IF NDEBUG_MSG = TRUE THEN
'出错过滤
ON ERROR RESUME NEXT
END IF
'===============END =====================
……………(代码略)
'数据事务处理-start
If Err.number = 0 Then
'~~~~~ Open database and begin transaction ~~~~~~~~~~~~~~~~~~~~
'------------------------------
'-------------------------------------
objConn.BeginTrans
objConn.Execute (objSQL)
'~~~~~~ Commit the transaction and close the database connection
objConn.CommitTrans
Response.CacheControl ="Private"
Response.Expires = -1
……………(代码略)
Else
'~~~~~ Rollback transactions and close objects
objConn.RollbackTrans
'~~~~~ Raise errors for asp page
'Err.Raise Err.Number, Err.Source, Err.Description
'Err.Clear
Response.Write "Description= ("& err.number &"),("& err.Description &")"
End If
'===============END FILES=====================
%>
示例1-2 完整的容错机制代码范例
看了以上代码，你会发现也没有什么高超技艺在里面，高手可能更是不屑一顾。但大家未必能在写代码时这样作。
评论 (0) All
