asp伺服器端的驗證類

<%
'=================================================================
'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>")