=================================================================
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
%>
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
