如何在VB script中實現控制編輯框中只能輸入數字和小數點

Question

1.用正则表达式
2.自定义控制函数（javascript）,VB script大同小异。
function check_data1(input,i)//判断表单对象input输入的值是否都为数字(可含小数点)
{ 
  if (input.value.length <i)
  {
    //alert("输入的值位数不合要求！");
    input.value="";
    input.focus();
    return (false);
  }
  var checkOK = "0123456789.";
  var checkStr = input.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    allNum += ch;
  }
  if (!allValid)
  {
    //alert("对不起！这里只允许输入数字字符！");
    input.value="";
    input.focus();
    return (false);
  }
  else
  { return(true);}
}

Answer 1

上面两种方法都可以实现了.isnumeric是个函数,判断你输入的是否是个数字!

Answer 2

<script language="vbscript">
<!--
do
  a=inputbox("请输入数字！")
  loop until isnumeric(a)-->
</script>

Answer 3

只输数字
TextBox1.Attributes.Add("onkeyup","value=value.replace(/[^\\d]/g,'')");
TextBox1.Attributes.Add("onbeforepaste","clipboardData.setData('text',clipboardData.getData('text').replace(/[^\\d]/g,''))");

Answer 4

不知道可不可以实现成这样：用户按下非数字或小数点键时，根本就不会输入到文本框中，例如系统将其键值直接转换为7等非可见字符？
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]