复制代码代码如下:
<%
DimCmd
SetCmd=NewCls_Command
ClassCls_Command
PrivateRe
PublicFunctionIsPositiveInteger(value)
SetRe=NewRegExp
Re.Pattern="^[1-9][/d]*$"
Re.IgnoreCase=True
Re.Global=True
IsPositiveInteger=Re.Test(value)
SetRe=Nothing
EndFunction
PublicFunctionIsDigit(vString)
IfvString=""ThenIsDigit=False:ExitFunction
SetRe=NewRegExp
Re.Pattern="^[a-z]+$"
Re.Global=True
Re.IgnoreCase=True
Re.MultiLine=True
IsDigit=Re.Test(vString)
SetRe=Nothing
EndFunction
PublicFunctionIsAlpha(vString)
IfvString=""ThenIsAlpha=False:ExitFunction
SetRe=NewRegExp
Re.Pattern="^[/d]+$"
Re.Global=True
Re.IgnoreCase=True
Re.MultiLine=True
IsAlpha=Re.Test(vString)
SetRe=Nothing
EndFunction
PublicFunctionIsAlphaDigit(vString)
IfvString=""ThenIsAlphaDigit=False:ExitFunction
SetRe=NewRegExp
Re.Pattern="^[a-zA-Z/d]+$"
Re.Global=True