<%
''=================================================================
''Version:1.0
''Data=2004-7-5
''Script Written By: 幸福.net(Nicholas)
''==================================================================
''CopyRight By: 九州信息网络有限公司
''web: www.21hb.com
''email:nicholas_cheung@21cn.com
''==================================================================
Class Cls_Validator
Rem =======================验证类说明==============================
Rem=作用:对于输入数据的验证
Rem=例:set va=new Cls_Validator
Rem= va.Requirefield request("asd"),"错误请重新输入"
Rem=
Rem=
Rem==================================================================
Private Validator1,Validator2
Public Property Get Validator() ''定义属性:验证
Validator=Validator1
End Property
Public Property Let Validator(Validator2)
Validator1=Validator2
End Property
Public Function Requirefield(requestfieled,errorname)''确保用户不跳输的方法 errorname是输入的字符串 requestname为错误信息
if requestfieled="" then
Requirefield=false
Validator1=false
Response.Write("<script lanuage=''javascript''>alert(''"&errorname&"'');history.back()</script>")
Response.End()
else
Requirefield=true
Validator1=true
end if
End Function
Public Function CompareValidator(requestfieled1,requestfieled2,operator,errorname)''比较验证的方法 requestfieled1,requestfieled2为输入字符串 operator再比较符 errorname为错误信息
Select case operator ''判断比较运算符
Case ">"
if (not requestfieled1>requestfieled2) then
CompareValidator=false
Validator1=false
Response.Write("<script lanuage=''javascript''>alert(''"&errorname&"'');history.back()</script>")
Response.End()
else
CompareValidator=True
Validator1=true
end if
Case "<"
if (not requestfieled1<requestfieled2) then
CompareValidator=false
Validator1=false
Response.Write("<script lanuage=''javascript''>alert(''"&errorname&"'');history.back()</script>")
Response.End()
else
CompareValidator=True
Validator1=true
end if
Case "="
if (not requestfieled1=requestfieled2) then
CompareValidator=false
Validator1=false
Response.Write("<script lanuage=''javascript''>alert(''"&errorname&"'');history.back()</script>")
Response.End()
else
CompareValidator=True
Validator1=true
end if
Case ">="
if (not requestfieled1>=requestfieled2) then
CompareValidator=false
Validator1=false
Response.Write("<script lanuage=''javascript''>alert(''"&errorname&"'');history.back()</script>")
Response.End()
else
CompareValidator=True
Validator1=true
end if
Case "<="
if (not requestfieled1<=requestfieled2) then
CompareValidator=false
Validator1=false
Response.Write("<script lanuage=''javascript''>alert(''"&errorname&"'');history.back()</script>")
Response.End()
else
CompareValidator=True
Validator1=true
end if
Case "<>"
if requestfieled1=requestfieled2 then
CompareValidator=false
Validator1=false
Response.Write("<script lanuage=''javascript''>alert(''"&errorname&"'');history.back()</script>")
response.end()
else
CompareValidator=True
Validator1=true
end if
end Select
End Function
Public Function isnum(requestfieled,errorname)''判断是否为数字。requestfieled为输入字符串 errorname 为错误信息
if (not IsNumeric(requestfieled) )then
isnum=false
Validator1=false
Validator1=true
Response.Write("<script lanuage=''javascript''>alert(''"&errorname&"'');history.back()</script>")
Response.End()
else
isnum=true
end if
End Function
Public Function legstr(requestfieled,num,errorname)''限制字符串的个数 requestfieled为输入字符串 num为限制的字数 ,errorname为错误信息
numrequestfieled=cint(Len(requestfieled)) ''获取字符串的个数
if numrequestfieled>num then
legstr=false
Validator1=false
Response.Write("<script lanuage=''javascript''>alert(''"&errorname&"'');history.back()</script>")
Response.End()
else
legstr=true
Validator1=true
end if
End Function
Public Function isemail(requestfieled,errorname)''判断是否为电子邮箱格式 requestfieled为输入值 errorname为错误信息
set re=new RegExp
re.Pattern=".*@.{2,}\..{2,}"
re.Global = True
re.IgnoreCase = True
re.MultiLine = True
if (not re.test(requestfieled)) then
isemail=false
Validator=false
Response.Write("<script lanuage=''javascript''>alert(''"&errorname&"'');history.back()</script>")
Response.End()
else
isemail=true
end if
End Function
End Class
%>