复制代码代码如下:
<%
DIMCMD
setCMD = newcls_command
classCls_command
私人
publicFunctionispostistionInteger(value)
setre = newregexp
re.pattern =“^[1-9] [/d]*$”
re.ignorecase = true
re.global = true
IspastivitiveInteger = re.test(value)
setre =没有
最终功能
publicFunctionisDigit(VSTRING)
ifvString =“” thenisdigit = false:exitfunction
setre = newregexp
re.pattern =“^[az]+$”
re.global = true
re.ignorecase = true
re.multiline = true
isDigit = re.test(vstring)
setre =没有
最终功能
uperfunctionalpha(VSTRING)
ifvString =“” thenisalpha = false:出口
setre = newregexp
re.pattern =“^[/d]+$”
re.global = true
re.ignorecase = true
re.multiline = true
isalpha = re.test(vstring)
setre =没有
最终功能
publicfunctionalphadigit(VSTRING)
ifvString =“” thensalphadigit = false:出口
setre = newregexp
re.pattern =“^[a-za-z/d]+$”
re.global = true