表单验证 Validator v1.05

最新推荐文章于 2021-08-06 12:23:13 发布

weixin_30853329

最新推荐文章于 2021-08-06 12:23:13 发布

阅读量175

点赞数

原文链接：http://www.cnblogs.com/Dicky/archive/2005/06/11/172491.html

版权

表单的验证一直是网页设计者头痛的问题，表单验证类 Validator就是为解决这个问题而写的，旨在使设计者从纷繁复杂的表单验证中解放出来，把精力集中于网页的设计和功能上的改进上。

Validator是基于JavaScript技术的伪静态类和对象的自定义属性，可以对网页中的表单项输入进行相应的验证，允许同一页面中同时验证多个表单，熟悉接口之后也可以对特定的表单项甚至仅仅是某个字符串进行验证。因为是伪静态类，所以在调用时不需要实例化，直接以"类名+.语法+属性或方法名"来调用。此外，Validator还提供3种不同的错误提示模式，以满足不同的需要。

Validator目前可实现的验证类型有：
[JavaScript] 版
Validator目前可实现的验证类型有：
1.是否为空；
2.中文字符；
3.双字节字符
4.英文；
5.数字；
6.整数；
7.实数；
8.Email地址；
9.使用HTTP协议的网址；
10.电话号码；
11.货币；
12.手机号码；
13.邮政编码；
14.身份证号码(1.05增强)；
15.QQ号码；
16.日期；
17.符合安全规则的密码；
18.某项的重复值；
19.两数的关系比较；
20.判断输入值是否在(n, m)区间；
21.输入字符长度限制(可按字节比较)；
22.对于具有相同名称的单选按钮的选中判断；
23.限制具有相同名称的多选按钮的选中数目；
24.自定义的正则表达式验证；
25.文件上传格式过滤(1.04)
运行环境(客户端)：
在Windows Server 2003下用IE6.0+SP1和Mozilla Firefox 1.0测试通过；
在Lunix RedHat 9下的Netscape测试通过；

对于客户端的表单验证，这个基于JavaScript编写的Validator基本上都可以满足，具体可以下载CHM文件：Validator.CHM下载

示例：

代码如下：
<title>表单验证类 Validator v1.05</title> <style> body,td{font:normal 12px Verdana;color:#333333} input,textarea,select,td{font:normal 12px Verdana;color:#333333;border:1px solid #999999;background:#ffffff} table{border-collapse:collapse;} td{padding:3px} input{height:20;} textarea{width:80%;height:50px;overflow:auto;} form{display:inline} </style> <table align="center"> <form name="theForm" id="demo" method="get" onSubmit="return Validator.Validate(this,2)"> <tr> <td>身份证号：</td><td><input name="Card" dataType="IdCard" msg="身份证号错误"></td> </tr> <tr> <td>真实姓名：</td><td><input name="Name" dataType="Chinese" msg="真实姓名只允许中文"></td> </tr> <tr> <td>ID：</td><td><input name="username" dataType="Username" msg="ID名不符合规定"></td> </tr> <tr> <td>英文名：</td><td><input name="Nick" dataType="English" require="false" msg="英文名只允许英文字母"></td> </tr> <tr> <td>主页：</td><td><input name="Homepage" require="false" dataType="Url" msg="非法的Url"></td> </tr> <tr> <td>密码：</td><td><input name="Password" dataType="SafeString" msg="密码不符合安全规则" type="password"></td> </tr> <tr> <td>重复：</td><td><input name="Repeat" dataType="Repeat" to="Password" msg="两次输入的密码不一致" type="password"></td> </tr> <tr> <td>信箱：</td><td><input name="Email" dataType="Email" msg="信箱格式不正确"></td> </tr> <tr> <td>信箱：</td><td><input name="Email" dataType="Repeat" to="Email" msg="两次输入的信箱不一致"></td> </tr> <tr> <td>QQ：</td><td><input name="QQ" require="false" dataType="QQ" msg="QQ号码不存在"></td> </tr> <tr> <td>身份证：</td><td><input name="Card" dataType="IdCard" msg="身份证号码不正确"></td> </tr> <tr> <td>年龄：</td><td><input name="Year" dataType="Range" msg="年龄必须在18~28之间" min="18" max="28"></td> </tr> <tr> <td>年龄1：</td><td><input name="Year1" require="false" dataType="Compare" msg="年龄必须在18以上" to="18" operator="GreaterThanEqual"></td> </tr> <tr> <td>电话：</td><td><input name="Phone" require="false" dataType="Phone" msg="电话号码不正确"></td> </tr> <tr> <td>手机：</td><td><input name="Mobile" require="false" dataType="Mobile" msg="手机号码不正确"></td> </tr> <tr> <td>生日：</td><td><input name="Birthday" dataType="Date" format="ymd" msg="生日日期不存在"></td> </tr> <tr> <td>邮政编码：</td><td><input name="Zip" dataType="Custom" regexp="^[1-9]\d{5}$" msg="邮政编码不存在"></td> </tr> <tr> <td>邮政编码：</td><td><input name="Zip1" dataType="Zip" msg="邮政编码不存在"></td> </tr> <tr> <td>操作系统：</td><td><select name="Operation" dataType="Require" msg="未选择所用操作系统" ><option value="">选择您所用的操作系统</option><option value="Win98">Win98</option><option value="Win2k">Win2k</option><option value="WinXP">WinXP</option></select></td> </tr> <tr> <td>所在省份：</td><td>广东<input name="Province" value="1" type="radio">陕西<input name="Province" value="2" type="radio">浙江<input name="Province" value="3" type="radio">江西<input name="Province" value="4" type="radio" dataType="Group" msg="必须选定一个省份" ></td> </tr> <tr> <td>爱好：</td><td>运动<input name="Favorite" value="1" type="checkbox">上网<input name="Favorite" value="2" type="checkbox">听音乐<input name="Favorite" value="3" type="checkbox">看书<input name="Favorite" value="4" type="checkbox"" dataType="Group" min="2" max="3" msg="必须选择2~3种爱好"></td> </tr> <td>自我介绍：</td><td><textarea name="Description" dataType="Limit" max="10" msg="自我介绍内容必须在10个字之内">中文是一个字</textarea></td> </tr> <td>自传：</td><td><textarea name="History" dataType="LimitB" min="3" max="10" msg="自传内容必须在[3,10]个字节之内">中文是两个字节t</textarea></td> </tr> <tr> <td>相片上传：</td><td><input name="up" dataType="Filter" msg="非法的文件格式" type="file" accept="jpg, gif, png"></td> </tr> <tr> <td colspan="2"><input name="Submit" type="submit" value="确定提交"><input onClick="Validator.Validate(document.getElementById('demo'))" value="检验模式1" type="button"><input onClick="Validator.Validate(document.getElementById('demo'),2)" value="检验模式2" type="button"><input onClick="Validator.Validate(document.getElementById('demo'),3)" value="检验模式3" type="button"></td> </tr> </form> </table> <script> /************************************************* Validator v1.05 code by 我佛山人 wfsr@msn.com *************************************************/ Validator = { Require : /.+/, Email : /^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$/, Phone : /^(($\d{2,3}$)|(\d{3}\-))?($0\d{2,3}$|0\d{2,3}-)?[1-9]\d{6,7}(\-\d{1,4})?$/, Mobile : /^(($\d{2,3}$)|(\d{3}\-))?13\d{9}$/, Url : /^http:\/\/[A-Za-z0-9]+\.[A-Za-z0-9]+[\/=\?%\-&_~`@[\]\':+!]*([^<>\"\"])*$/, IdCard : "this.IsIdCard(value)", Currency : /^\d+(\.\d+)?$/, Number : /^\d+$/, Zip : /^[1-9]\d{5}$/, QQ : /^[1-9]\d{4,8}$/, Integer : /^[-\+]?\d+$/, Double : /^[-\+]?\d+(\.\d+)?$/, English : /^[A-Za-z]+$/, Chinese : /^[\u0391-\uFFE5]+$/, Username : /^[a-z]\w{3,}$/i, UnSafe : /^(([A-Z]*|[a-z]*|\d*|[-_\~!@#\$%\^&\*\.\[\]\{\}<>\?\\\/\'\"]*)|.{0,5})$|\s/, IsSafe : function(str){return !this.UnSafe.test(str);}, SafeString : "this.IsSafe(value)", Filter : "this.DoFilter(value, getAttribute('accept'))", Limit : "this.limit(value.length,getAttribute('min'), getAttribute('max'))", LimitB : "this.limit(this.LenB(value), getAttribute('min'), getAttribute('max'))", Date : "this.IsDate(value, getAttribute('min'), getAttribute('format'))", Repeat : "value == document.getElementsByName(getAttribute('to'))[0].value", Range : "getAttribute('min') < (value|0) && (value|0) < getAttribute('max')", Compare : "this.compare(value,getAttribute('operator'),getAttribute('to'))", Custom : "this.Exec(value, getAttribute('regexp'))", Group : "this.MustChecked(getAttribute('name'), getAttribute('min'), getAttribute('max'))", ErrorItem : [document.forms[0]], ErrorMessage : ["以下原因导致提交失败：\t\t\t\t"], Validate : function(theForm, mode){ var obj = theForm || event.srcElement; var count = obj.elements.length; this.ErrorMessage.length = 1; this.ErrorItem.length = 1; this.ErrorItem[0] = obj; for(var i=0;i<count;i++){ with(obj.elements[i]){ var _dataType = getAttribute("dataType"); if(typeof(_dataType) == "object" || typeof(this[_dataType]) == "undefined") continue; this.ClearState(obj.elements[i]); if(getAttribute("require") == "false" && value == "") continue; switch(_dataType){ case "IdCard" : case "Date" : case "Repeat" : case "Range" : case "Compare" : case "Custom" : case "Group" : case "Limit" : case "LimitB" : case "SafeString" : case "Filter" : if(!eval(this[_dataType])) { this.AddError(i, getAttribute("msg")); } break; default : if(!this[_dataType].test(value)){ this.AddError(i, getAttribute("msg")); } break; } } } if(this.ErrorMessage.length > 1){ mode = mode || 1; var errCount = this.ErrorItem.length; switch(mode){ case 2 : for(var i=1;i<errCount;i++) this.ErrorItem[i].style.color = "red"; case 1 : alert(this.ErrorMessage.join("\n")); this.ErrorItem[1].focus(); break; case 3 : for(var i=1;i<errCount;i++){ try{ var span = document.createElement("SPAN"); span.id = "__ErrorMessagePanel"; span.style.color = "red"; this.ErrorItem[i].parentNode.appendChild(span); span.innerHTML = this.ErrorMessage[i].replace(/\d+:/,"*"); } catch(e){alert(e.description);} } this.ErrorItem[1].focus(); break; default : alert(this.ErrorMessage.join("\n")); break; } return false; } return true; }, limit : function(len,min, max){ min = min || 0; max = max || Number.MAX_VALUE; return min <= len && len <= max; }, LenB : function(str){ return str.replace(/[^\x00-\xff]/g,"**").length; }, ClearState : function(elem){ with(elem){ if(style.color == "red") style.color = ""; var lastNode = parentNode.childNodes[parentNode.childNodes.length-1]; if(lastNode.id == "__ErrorMessagePanel") parentNode.removeChild(lastNode); } }, AddError : function(index, str){ this.ErrorItem[this.ErrorItem.length] = this.ErrorItem[0].elements[index]; this.ErrorMessage[this.ErrorMessage.length] = this.ErrorMessage.length + ":" + str; }, Exec : function(op, reg){ return new RegExp(reg,"g").test(op); }, compare : function(op1,operator,op2){ switch (operator) { case "NotEqual": return (op1 != op2); case "GreaterThan": return (op1 > op2); case "GreaterThanEqual": return (op1 >= op2); case "LessThan": return (op1 < op2); case "LessThanEqual": return (op1 <= op2); default: return (op1 == op2); } }, MustChecked : function(name, min, max){ var groups = document.getElementsByName(name); var hasChecked = 0; min = min || 1; max = max || groups.length; for(var i=groups.length-1;i>=0;i--) if(groups[i].checked) hasChecked++; return min <= hasChecked && hasChecked <= max; }, DoFilter : function(input, filter){ return new RegExp("^.+\.(?=EXT)(EXT)$".replace(/EXT/g, filter.split(/\s*,\s*/).join("|")), "gi").test(input); }, IsIdCard : function(number){ var date, Ai; var verify = "10x98765432"; var Wi = [7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2]; var area = ['','','','','','','','','','','','北京','天津','河北','山西','内蒙古','','','','','','辽宁','吉林','黑龙江','','','','','','','','上海','江苏','浙江','安微','福建','江西','山东','','','','河南','湖北','湖南','广东','广西','海南','','','','重庆','四川','贵州','云南','西藏','','','','','','','陕西','甘肃','青海','宁夏','新疆','','','','','','台湾','','','','','','','','','','香港','澳门','','','','','','','','','国外']; var re = number.match(/^(\d{2})\d{4}(((\d{2})(\d{2})(\d{2})(\d{3}))|((\d{4})(\d{2})(\d{2})(\d{3}[x\d])))$/i); if(re == null) return false; if(re[1] >= area.length || area[re[1]] == "") return false; if(re[2].length == 12){ Ai = number.substr(0, 17); date = [re[9], re[10], re[11]].join("-"); } else{ Ai = number.substr(0, 6) + "19" + number.substr(6); date = ["19" + re[4], re[5], re[6]].join("-"); } if(!this.IsDate(date, "ymd")) return false; var sum = 0; for(var i = 0;i<=16;i++){ sum += Ai.charAt(i) * Wi[i]; } Ai += verify.charAt(sum%11); return (number.length ==15 || number.length == 18 && number == Ai); }, IsDate : function(op, formatString){ formatString = formatString || "ymd"; var m, year, month, day; switch(formatString){ case "ymd" : m = op.match(new RegExp("^((\\d{4})|(\\d{2}))([-./])(\\d{1,2})\\4(\\d{1,2})$")); if(m == null ) return false; day = m[6]; month = m[5]*1; year = (m[2].length == 4) ? m[2] : GetFullYear(parseInt(m[3], 10)); break; case "dmy" : m = op.match(new RegExp("^(\\d{1,2})([-./])(\\d{1,2})\\2((\\d{4})|(\\d{2}))$")); if(m == null ) return false; day = m[1]; month = m[3]*1; year = (m[5].length == 4) ? m[5] : GetFullYear(parseInt(m[6], 10)); break; default : break; } if(!parseInt(month)) return false; month = month==0 ?12:month; var date = new Date(year, month-1, day); return (typeof(date) == "object" && year == date.getFullYear() && month == (date.getMonth()+1) && day == date.getDate()); function GetFullYear(y){return ((y<30 ? "20" : "19") + y)|0;} } } </script>
[Ctrl+A 全选提示:你可先修改部分代码,再点运行代码]

更新历史：

1.01
修正对12月份的日期验证(感谢flylg999)

1.03
修正Range验证类型时将数字当字符串比较的bug(感谢cncom和xtlhnhbb)
修正日期验证(感谢Papsam)
增加Username验证类型
增加对Phone验证类型时支持分机号

1.04
增加文件格式的过滤，用于上传时限制上传的文件格式

1.05
增强对身份证号码的验证

[ASP]版代码拷贝框

< %
2

Class Validator
3

' *************************************************
4

' Validator for ASP beta 2 服务器端脚本
5

' code by 我佛山人
6

' wfsr@cunite.com
7

' http://www.cunite.com
8

' *************************************************
9

Private Re, Dic
10

Private Separator
11

Private ErrorItem, ErrorMessage, ErrorMode, ErrorNo
12

Private FormName, FormIndex, FilePath, GetMethod
13

Private Sub Class_Initialize()
15

Set Re = New RegExp
16

Re.IgnoreCase = True
17

Re.Global = True
18

Set Dic = CreateObject ( " Scripting.Dictionary " )
19

Separator = " ,"
20

ErrorItem = " "
21

ErrorMessage = " "
22

ErrorMode = 5
23

ErrorNo = 1
24

FilePath = Server.MapPath(Request.ServerVariables( " Script_Name " ))
25

GetMethod = " FSO"
26

End Sub
27

Private Sub Class_Terminate()
29

Set Re = Nothing
30

Dic.RemoveAll()
31

Set Dic = Nothing
32

End Sub
33

Public Sub Validate()
35

IF Request( " Submit " ) = "" Then Exit Sub
36

IF Not IsValidPost() Then Exit Sub
37

With Dic
39

.Add " Compare " , " Compare( PostValue, operator, toObj)"
40

.Add " Custom " , " Custom( PostValue,regexp )"
41

.Add " Date " , " IsDateFormat( PostValue,format )"
42

.Add " Limit " , " Limit( PostValue,min, max )"
43

.Add " LimitB " , " LimitB( PostValue,min, max )"
44

.Add " Range " , " Range( PostValue,min, max )"
45

.Add " Repeat " , " IsEqual( PostValue, Request(toObj) )"
46

.Add " Group " , " Group( PostValue,min, max )"
47

.Add " NotEqual " , " Op1 <> Op2"
49

.Add " GreaterThan " , " Op1 > Op2"
50

.Add " GreaterThanEqual " , " Op1 >= Op2"
51

.Add " LessThan " , " Op1 < Op2"
52

.Add " LessThanEqual " , " Op1 <= Op2"
53

.Add " Equal " , " Op1 = Op2"
54

End With
55

Call MatchCode()
57

IF ErrorMessage <> "" Then DisplayError
59

End Sub
60

Private Sub MatchCode()
62

Dim bI, bG, bM
63

Dim Str
64

Select Case GetMethod
66

Case " FSO " :
67

Dim FSO : Set FSO = Server. CreateObject ( " Scripting.FileSystemObject " )
68

Set TS = FSO.OpenTextFile(FilePath, 1 , false )
69

Str = TS.ReadAll()
70

TS.Close
71

Set TS = Nothing
72

Set FSO = Nothing
73

Case " XMLHTTP " :
74

Dim XHttp : Set XHttp = Server. CreateObject ( " MSXML2.XMLHTTP " )
75

With XHttp
76

Call .Open( " Get " , " http:// " & Request.ServerVariables( " Server_Name " ) & Request.ServerVariables( " Script_Name " ), False )
77

Call .Send()
78

Str = B2S(.responseBody)
79

End With
80

Set XHttp = Nothing
81

End Select
82

Dim itemString
83

With Re
84

bI = .IgnoreCase
85

bG = .Global
86

bM = .MultiLine
87

.IgnoreCase = True
88

.Global = True
89

.Pattern = " [\s\S]*<form [^>]+>([\s\S]+)<\/form>[\s\S]*"
90

Str = . Replace (Str, " $1 " )
91

.Global = True
93

.MultiLine = True
94

.Pattern = " <\/?(?!input|textarea|select)[^>]*>"
95

Str = . Replace (Str, "" )
96

.Pattern = " ^.*(<(?=input|textarea|select)[^>]*>).*$"
98

Str = . Replace (Str, " $1 " )
99

100

.Pattern = " ([\r\n]+|^\s*)(?=<)"
101

Str = . Replace (Str, "" )
102

While Test( " dataType=([""\'])([^""\'>]+)\1 " , Str)
103

.MultiLine = False
104

.Pattern = " ^([^\n]+)\n([\s\S]*)$"
105

itemString = . Replace (Str, " $1 " )
106

Str = . Replace (Str, " $2 " )
107

.Pattern = " (name|dataType|to1|min|max|msg|require|regexp|format)=([""\'])([^""\'>]+)\2"
108

109

Dim Matches : Set Matches = . Execute (itemString)
110

Dim Match, RetStr : RetStr = " "
111

For Each Match in Matches
112

RetStr = RetStr & Match.Value & " : "
113

Next
114

Call IsValid( Replace ( Replace ( Replace (RetStr, " : $ " , "" ), " to= " , " toObj= " ), " ""Require"" " , " ""NotEmpty"" " ))
115

Wend
116

.IgnoreCase = bI
117

.Global = bG
118

.MultiLine = bM
119

120

End With
121

End Sub
122

123

Private Sub IsValid(ByVal Str)
124

Dim name, msg, dataType, toObj, min, max, require, regexp, format
125

min = 1 : max = 100 : require = " true " : format = " YMD"
126

Execute Str
127

Dim PostValue : PostValue = Request(name)
128

Dim Fun
129

130

IF require = " false " AND PostValue = "" Then Exit Sub
131

132

IF Dic.Exists(dataType) Then
133

Fun = Dic.Item(dataType)
134

Else Fun = " Is " & dataType & " ( PostValue )"
135

End IF
136

137

IF Not Eval (Fun) Then Call AddError(name,msg)
138

End Sub
139

140

Private Sub DisplayError()
141

ErrorItem = Replace (ErrorItem, " ^( " & Separator & " ) " , "" )
142

ErrorMessage = Replace (ErrorMessage, " ^( " & Separator & " ) " , "" )
143

Select Case ErrorMode
144

Case 4
145

ErrorMessage = Join ( Split (ErrorMessage, Separator), " </li><li> " )
146

Response.Clear
147

Response.Write " <div style=""padding-left:100px;font:bold 12px Tahoma"">输入有错误：<br><ul><li> " & Replace (ErrorMessage, " \b\d+: " , "" ) & " </li></ul>"
148

Response.Write " <br><a href='javascript:history.back()'>返回重填</a></div>"
149

Response. End
150

Case Else
151

Response.Write( " <script defer>dispError("" " & ErrorItem & " "", "" " & ErrorMessage & " "", " & ErrorMode & " , "" " & Separator & " "")</script> " )
152

End Select
153

End Sub
154

155

Public Function IsEmail(ByVal Str)
156

IsEmail = Test( " ^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$ " , Str)
157

End Function
158

159

Public Function IsUrl(ByVal Str)
160

IsUrl = Test( " ^http:\/\/[A-Za-z0-9]+\.[A-Za-z0-9]+[\/=\?%\-&_~`@[\]\':+!]*([^<>""])*$ " , Str)
161

End Function
162

163

Public Function IsNum(ByVal Str)
164

IsNum = Test( " ^\d+$ " , Str)
165

End Function
166

167

Public Function IsQQ(ByVal Str)
168

IsQQ = Test( " ^[1-9]\d{4,8}$ " , Str)
169

End Function
170

171

Public Function IsZip(ByVal Str)
172

IsZip = Test( " ^[1-9]\d{5}$ " , Str)
173

End Function
174

175

Public Function IsIdCard(ByVal Str)
176

IsIdCard = Test( " ^\d{15}(\d{2}[A-Za-z0-9])?$ " , Str)
177

End Function
178

179

Public Function IsChinese(ByVal Str)
180

IsChinese = Test( " ^[\u0391-\uFFE5]+$ " , Str)
181

End Function
182

183

Public Function IsEnglish(ByVal Str)
184

IsEnglish = Test( " ^[A-Za-z]+$ " , Str)
185

End Function
186

187

Public Function IsMobile(ByVal Str)
188

IsMobile = Test( " ^(($\d{3}$)|(\d{3}\-))?13\d{9}$ " , Str)
189

End Function
190

191

Public Function IsPhone(ByVal Str)
192

IsPhone = Test( " ^(($\d{3}$)|(\d{3}\-))?($0\d{2,3}$|0\d{2,3}-)?[1-9]\d{6,7}$ " , Str)
193

End Function
194

195

Public Function IsSafe(ByVal Str)
196

IsSafe = (Test( " ^(([A-Z]*|[a-z]*|\d*|[-_\~!@#\$%\^&\*\.\[\]\{\}<>\?\\\/\'\""]*)|.{0,5})$|\s " , Str) = False )
197

End Function
198

199

Public Function IsNotEmpty(ByVal Str)
200

IsNotEmpty = LenB(Str) > 0
201

End Function
202

203

Public Function IsDateFormat(ByVal Str, ByVal Format)
204

IF Not IsDate (Str) Then
205

IsDateFormat = False
206

Exit Function
207

End IF
208

209

IF Format = " YMD " Then
210

IsDateFormat = Test( " ^((\d{4})|(\d{2}))([-./])(\d{1,2})\4(\d{1,2})$ " , Str)
211

Else
212

IsDateFormat = Test( " ^(\d{1,2})([-./])(\d{1,2})\\2((\d{4})|(\d{2}))$ " , Str)
213

End IF
214

End Function
215

216

Public Function IsEqual(ByVal Src, ByVal Tar)
217

IsEqual = (Src = Tar)
218

End Function
219

220

Public Function Compare(ByVal Op1, ByVal Operator, ByVal Op2)
221

Compare = False
222

IF Dic.Exists(Operator) Then
223

Compare = Eval (Dic.Item(Operator))
224

Elseif IsNotEmpty(Op1) Then
225

Compare = Eval (Op1 & Operator & Op2 )
226

End IF
227

End Function
228

229

Public Function Range(ByVal Src, ByVal Min, ByVal Max)
230

Min = CInt (Min) : Max = CInt (Max)
231

Range = (Min < Src And Src < Max)
232

End Function
233

234

Public Function Group(ByVal Src, ByVal Min, ByVal Max)
235

Min = CInt (Min) : Max = CInt (Max)
236

Dim Num : Num = UBound ( Split (Src, " , " )) + 1
237

Group = Range(Num, Min - 1 , Max + 1 )
238

End Function
239

240

Public Function Custom(ByVal Str, ByVal Reg)
241

Custom = Test(Reg, Str)
242

End Function
243

244

Public Function Limit(ByVal Str, ByVal Min, ByVal Max)
245

Min = CInt (Min) : Max = CInt (Max)
246

Dim L : L = Len (Str)
247

Limit = (Min <= L And L <= Max)
248

End Function
249

250

Public Function LimitB(ByVal Str, ByVal Min, ByVal Max)
251

Min = CInt (Min) : Max = CInt (Max)
252

Dim L : L = bLen(Str)
253

LimitB = (Min <= L And L <= Max)
254

End Function
255

256

Private Function Test(ByVal Pattern, ByVal Str)
257

Re.Pattern = Pattern
258

Test = Re.Test(Str)
259

End Function
260

261

Public Function bLen(ByVal Str)
262

bLen = Len ( Replace (Str, " [^\x00-\xFF] " , " .. " ))
263

End Function
264

265

Private Function Replace (ByVal Str, ByVal Pattern, ByVal ReStr)
266

Re.Pattern = Pattern
267

Replace = Re. Replace (Str, ReStr)
268

End Function
269

270

Private Function B2S(ByVal iStr)
271

Dim reVal : reVal = " "
272

Dim i, Code, nCode
273

For i = 1 to LenB(iStr)
274

Code = AscB(MidB(iStr, i, 1 ))
275

IF Code < & h80 Then
276

reVal = reVal & Chr (Code)
277

Else
278

nCode = AscB(MidB(iStr, i + 1 , 1 ))
279

reVal = reVal & Chr ( CLng (Code) * & h100 + CInt (nCode))
280

i = i + 1
281

End IF
282

Next
283

B2S = reVal
284

End Function
285

286

Private Sub AddError(ByVal Name, ByVal Message)
287

ErrorItem = ErrorItem & Separator & Name
288

ErrorMessage = ErrorMessage & Separator & ErrorNo & " : " & Message
289

ErrorNo = ErrorNo + 1
290

End Sub
291

292

Public Function IsValidPost()
293

Dim Url1 : Url1 = Cstr (Request.ServerVariables( " HTTP_REFERER " ))
294

Dim Url2 : Url2 = Cstr (Request.ServerVariables( " SERVER_NAME " ))
295

IsValidPost = ( Mid (Url1, 8 , Len (Url2)) = Url2)
296

End Function
297

298

Public Property Let Mode(ByVal Val)
299

ErrorMode = CInt (Val)
300

End Property
301

302

Public Property Let Form(ByVal Val)
303

IF IsNumeric (Val) Then
304

FormIndex = Val
305

Else
306

FormName = Val
307

End IF
308

End Property
309

310

Public Property Let Path(ByVal Val)
311

IF Test( " ^[A-Za-z]:\\\w+$ " , Val) Then
312

FilePath = Val
313

Else
314

FilePath = Server.MapPath(Val)
315

End IF
316

End Property
317

318

Public Property Let Method(ByVal Val)
319

GetMethod = Val
320

End Property
321

End Class
322

% >
323

< title > 表单验证类 Validator v1. 0 </ title >
324

< meta http - equiv = " Content-Type " content = " text/html; charset=gb2312 " >
325

< style >
326

body,td{font:normal 12px Verdana;color:# 333333 }
327

input,textarea, select ,td{font:normal 12px Verdana;color:# 333333 ;border:1px solid # 999999 ;background:#ffffff}
328

table{border - collapse:collapse;}
329

td{padding:3px}
330

input{height: 20 ;}
331

textarea{width: 80 %;height:50px;overfmin:auto;}
332

form{display:inline}
333

</ style >
334

< script >
335

/*************************************************
336

Validator for ASP beta 2 客户端脚本
337

code by 我佛山人
338

wfsr@cunite.com
339

http: // www.cunite.com
340

*************************************************/
341

function dispError(items, messages, mode, separator){
342

var iArray = items. split (separator);
343

for (var i = iArray.length - 1 ;i >= 0 ;i -- )
344

iArray[i] = getObj(iArray[i]);
345

messages = ( " 以下原因导致提交失败：\t\t\t\t " + separator + messages). split (separator);
346

switch(mode){
347

case 2 :
348

for (i = iArray.length - 1 ;i >= 0 ;i -- )
349

iArray[i].style.color = " red " ;
350

case 1 :
351

alert(messages. join ( " \n " ));
352

iArray[ 0 ].focus();
353

break;
354

case 3 :
355

for (i = iArray.length - 1 ;i >= 0 ;i -- ){
356

try{
357

var span = document.createElement( " SPAN " );
358

span.id = " __ErrorMessagePanel " ;
359

span.style.color = " red " ;
360

iArray[i].parentNode.appendChild(span);
361

span.innerHTML = messages[i + 1 ]. replace ( /\ d + : / , " * " );
362

}
363

catch(e){alert(e.description);}
364

}
365

iArray[ 0 ].focus();
366

break;
367

}
368

}
369

370

function getObj(name){
371

var objs = document.getElementsByName(name);
372

return objs[objs.length - 1 ];
373

}
374

</ script >
375

< form name = " theForm " id = " demo " action = "" method = " post " onSubmit = " return true " >
376

< table align = " center " >
377

< tr >
378

< td > 真实姓名： </ td >< td >< input name = " Name " dataType = " Chinese " msg = " 真实姓名只允许中文 " ></ td >
379

</ tr >
380

< tr >
381

< td > 英文名： </ td >< td >< input name = " Nick " dataType = " English " require = " false " msg = " 英文名只允许英文字母 " ></ td >
382

</ tr >
383

< tr >
384

< td > 主页： </ td >< td >< input name = " Homepage " require = " false " dataType = " Url " msg = " 非法的Url " ></ td >
385

</ tr >
386

< tr >
387

< td > 密码： </ td >< td >< input name = " Password " dataType = " Safe " msg = " 密码不符合安全规则 " type = " password " ></ td >
388

</ tr >
389

< tr >
390

< td > 重复： </ td >< td >< input name = " Repeat " dataType = " Repeat " to = " Password " msg = " 两次输入的密码不一致 " type = " password " ></ td >
391

</ tr >
392

< tr >
393

< td > 信箱： </ td >< td >< input name = " Email " dataType = " Email " msg = " 信箱格式不正确 " ></ td >
394

</ tr >
395

< tr >
396

< td > 信箱： </ td >< td >< input name = " Email1 " dataType = " Repeat " to = " Email " msg = " 两次输入的信箱不一致 " ></ td >
397

</ tr >
398

< tr >
399

< td > QQ： </ td >< td >< input name = " QQ " require = " false " dataType = " QQ " msg = " QQ号码不存在 " ></ td >
400

</ tr >
401

< tr >
402

< td > 身份证： </ td >< td >< input name = " Card " dataType = " IdCard " msg = " 身份证号码不正确 " ></ td >
403

</ tr >
404

< tr >
405

< td > 年龄： </ td >< td >< input name = " Year " dataType = " Range " msg = " 年龄必须在18~28之间 " min = " 18 " max = " 28 " ></ td >
406

</ tr >
407

< tr >
408

< td > 年龄1： </ td >< td >< input name = " Year1 " require = " false " dataType = " Compare " msg = " 年龄必须在18以上 " to1 = " 18 " operator = " GreaterThanEqual " ></ td >
409

</ tr >
410

< tr >
411

< td > 电话： </ td >< td >< input name = " Phone " require = " false " dataType = " Phone " msg = " 电话号码不正确 " ></ td >
412

</ tr >
413

< tr >
414

< td > 手机： </ td >< td >< input name = " Mobile " require = " false " dataType = " Mobile " msg = " 手机号码不正确 " ></ td >
415

</ tr >
416

< tr >
417

< td > 生日： </ td >< td >< input name = " Birthday " dataType = " Date " format = " YMD " msg = " 生日日期不存在 " ></ td >
418

</ tr >
419

< tr >
420

< td > 邮政编码： </ td >< td >< input name = " Zip " dataType = " Custom " regexp = " ^[1-9]\d{5}$ " msg = " 邮政编码不存在 " ></ td >
421

</ tr >
422

< tr >
423

< td > 邮政编码： </ td >< td >< input name = " Zip1 " dataType = " Zip " msg = " 邮政编码不存在 " ></ td >
424

</ tr >
425

< tr >
426

< td > 操作系统： </ td >< td >< select name = " OS " dataType = " Require " msg = " 未选择所用操作系统 " >< option value = "" > 选择您所用的操作系统 </ option >< option value = " Win98 " > Win98 </ option >< option value = " Win2k " > Win2k </ option >< option value = " WinXP " > WinXP </ option ></ select ></ td >
427

</ tr >
428

< tr >
429

< td > 所在省份： </ td >< td > 广东 < input name = " Province " value = " 1 " type = " radio " > 陕西 < input name = " Province " value = " 2 " type = " radio " > 浙江 < input name = " Province " value = " 3 " type = " radio " > 江西 < input name = " Province " value = " 4 " type = " radio " dataType = " Group " msg = " 必须选定一个省份 " ></ td >
430

</ tr >
431

< tr >
432

< td > 爱好： </ td >< td > 运动 < input name = " Favorite " value = " 1 " type = " checkbox " > 上网 < input name = " Favorite " value = " 2 " type = " checkbox " > 听音乐 < input name = " Favorite " value = " 3 " type = " checkbox " > 看书 < input name = " Favorite " value = " 4 " type = " checkbox " dataType = " Group " min = " 2 " max = " 3 " msg = " 必须选择2~3种爱好 " ></ td >
433

</ tr >
434

< tr >
435

< td > 自我介绍： </ td >< td >< textarea name = " Description " dataType = " Limit " max = " 10 " msg = " 自我介绍内容必须在10个字之内 " > 中文是一个字 </ textarea ></ td >
436

</ tr >
437

< tr >
438

< td > 自传： </ td >< td >< textarea name = " History " dataType = " LimitB " min = " 3 " max = " 10 " msg = " 自传内容必须在[3~10]个字节之内 " > 中文是两个字节t </ textarea ></ td >
439

</ tr >
440

< tr >
441