简单的表单验证类 ASP Validator

当前版本：ver 0.1 beta 下载：http://nowgoo.zhuosong.com/validator.rar 1、ASP Validator 简介 ASP Validator 是基于 ASP 的一个表单验证类，用于表单的服务器端验证。比如，验证表单中一个文本框（假设元素名为 UserEmail）的值是否为正确的电子邮件格式，按传统的方法您可能会编写这样的代码： Dim strEmail, objRegExp strEmail = Trim(Request.Form("UserEmail") Set objRegExp = New RegExp With objRegExp .Global = False .IgnoreCase = True .Pattern = "^w+([-+.]w+)*@w+([-.]w+)*.w+([-.]w+)*$" End With If objRegExp.Test(strEmail) = False Then Response.Write("非法的电子邮件格式") Set objRegExp = Nothing End If 而使用 ASP Validator 时您可能会编写如下代码： Dim objValidator Set objValidator = New Validator objValidator.Add "UserEmail", "Email", "非法的电子邮件格式", "" If Not objValidator.Validate Then Response.Write(objValidator.Err) Set objValidator = Nothing End If 上例中，虽然传统方法更显得直观，而且代码行数也没多多少，但是在实际应用中，经常会碰到对多个表单元素进行多种规则验证的情况，这时您不得不为每一个元素的每一种验证规则编写代码，虽然可以通过将常用函数写进包含文件的方式来减轻劳动强度，但仍需要花费大量的时间和精力来编写重复的代码片断（起码您需要写无数个 Request.Form("")、If Then 、……）。这时，使用 ASP Validator 的优越性便体现出来了。
上例中，我们使用了 ASP Validator 的 Add 方法、Validate 方法和 Err 属性。使用 ASP Validator 时，我们先通过 Add 方法添加需要验证的规则，然后通过 Validate 方法执行验证并得到验证结果，最后通过 Err 属性得到出错信息（如果有的话）。在 ASP Validator 中，我们把整个验证任务分解成若干条“规则”，通过 Add 方法来添加规则。Add 方法的函数原型如下： Public Sub Add(Element, RegType, ErrMsg, Para) Add 方法包含四个参数：表单元素名、规则类型、出错信息、规则参数。在上例中，表单元素名为 "UserEmail"，规则类型为 "Email"，出错信息为 "非法的电子邮件格式"，规则参数为空。

补充：asp教程,高级应用