做留言本时用到记录QQ号码但有些网友在QQ号码中填写其它不是数字的字符所以想到用一个函数判断限制用户提交非数字的代码用到了IsNumeric 函数
程序代码
if IsNumeric(qq)=False then
error1=error1&\"QQ号码中包含非数字的字符<br>\"
action=\"false\"
end if
if len(face)<10 then
error1=error1&\"表情不在预设范围内<br>\"
action=\"false\"
end if
IsNumeric 函数
返回 值指明表达式的值是否为数字。
IsNumeric(expression)
expression 参数可以是任意表达式。
说明
如果整个 expression 被识别为数字,IsNumeric 函数返回 True;否则函数返回 False。如果 expression 是日期表达式,IsNumeric 函数返回 False。
下面的示例利用 IsNumeric 函数决定变量是否可以作为数值:
Dim MyVar, MyCheck
MyVar = 53 \'赋值。
MyCheck = IsNumeric(MyVar) \' 返回 True。
MyVar = \"459.95\" \' 赋值。
MyCheck = IsNumeric(MyVar) \' 返回True。
MyVar = \"45 Help\" \' 赋值。
MyCheck = IsNumeric(MyVar) \' 返回 False。