<% '================================================ ================== 'Version: 1.0'data = 2004-7-5'script Written by: happiness .NET (Nicholas)' ======== ============================================================================================================================================================================================================= ======== 'Copyright by: Kyushu Information Network Co., Ltd.' Web: www.21hb.com'Email: Nicholas_Cheung@21cn.com '================ ============================================================================================================================================================================================================= Class CLS_Validator Rem ======================= Verification class Description ====================== ========= Rem = effect: Validation of input data REM = case: set va = new cls_validator trans = va.Requirefield Request ("ASD"), "Error, please re-enter" Rem = Rem = REM =====================================================================================================================================================
============================================================= private validator1, Validator2 Public Property Get Validator () 'defines attributes: verify Validator = Validator1 End property Public property Let Validator (Validator2) Validator1 = Validator2 End property Public Function Requirefield (requestfieled, errorname)' method of ensuring the user does not lose errorname jump string input error requestname information if requestfieled = "" then Requirefield = false Validator1 = false Response.Write ( "
