如何用VBScript实现让text只接受数字

Question

IsNumeric 函数
返回 Boolean 值指明表达式的值是否为数字。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。

Answer 1

function MaskInput()
    if window.event.keyCode<48||window.event.keyCode>58 then   
    window.event.returnValue=false;
    end if
end funciton<input onkeypress="maskinput()" language="vbscript">

Answer 2

<input type="text" onkeypress="Num()"/>
<SCRIPT LANGUAGE="VBScript">
<!--
sub Num
if (window.event.keyCode < 46 or window.event.keyCode > 57) then
        window.event.returnValue = false
end if
end sub
//-->
</SCRIPT>

Answer 3

function checkdate()
{
    var k = window.event.keyCode
    if(k<48 || k>57)
    {
      alert("必须输入数字！")
          event.returnValue=false;
    }
}