VBS Function IsNum(Txt) On Error Resume Next IF VarType(CInt(Txt))<>2 Then IsNum=False End IF IsNum=True End Function javascript function IsNum(Txt) { var tst; try { var tst=eval(Txt+"1"); return true; } catch(e) { return false; } } 使用方法 VBS Dim Tst Tst="1abc" IF Not IsNum(Tst) Then Response.Write "变量非数字" End IF Javascript var Tst="1abc"; if(!IsNum(Tst)) { alert('变量非数字'); }
<% a=123 b="abc" if isnumeric(a) then response.write"a是数字! " else response.write"a不是数字! " end if if isnumeric(b) then response.write"b是数字!" else response.write"b不是数字!" end if %>