看看这个结果就知道了…………………… Function IsNumber(RequestName) IsNumber = False If IsNull(RequestName) Or RequestName = "" Then Exit Function Dim RegEx Set RegEx = New RegExp RegEx.Pattern = "[1-9]" RegEx.IgnoreCase = True RegEx.Global = True IsNumber = RegEx.Test(RequestName) Set RegEx = Nothing End Function
if isnumber("34fsae3") then response.write "ok" else response.write "no" end if