asp正则表达式判断是否是数字

'判断是否是数字（包括整数和浮点数） function IsNumber(str) if RegPatrn("^-?[1-9]/d*$",str) or RegPatrn("^-?([1-9]/d*/./d*|0/./d*[1-9]/d*|0?/.0+|0)$",str) then IsNumber=true else IsNumber=false end if end function '正则表达式判断是否匹配 Function RegPatrn(patrn, strng) RegPatrn = false Dim regEx, Match, Matches '建立变量。 Set regEx = New RegExp '建立正则表达式。 regEx.Pattern = patrn'设置模式。 regEx.IgnoreCase = True '设置是否区分字符大小写。 regEx.Global = True '设置全局可用性。 If regEx.Test(strng) Then RegPatrn=true End if End Function