function meCdbl(c_Str)
     meCdbl=0
     on error resume next 
     if c_Str="" then
        meCdbl=0
     else
        meCdbl=cdbl(c_Str)   
     end if 
  end function
  
  function CheckIn(c_Str)
     dim k  
     k = len(c_Str)
     for i=1 to k
         if (asc(right(left(c_Str,i),1))<48 or asc(right(left(c_Str,i),1))>57) and asc(right(left(c_Str,i),1))<>46 then
            CheckIn=0
            window.alert("非法输入!")
            exit function
         end if
     next
     CheckIn=1  end function

解决方案 »

  1.   

    嗯,我也有这样的问题,我的项目是在IE6下面开发的,在IE6下面一点错误也没有,运行完全正常,到了IE5发现有莫名其妙的错误,我猜想可能是IE对脚本的解释程序因版本不同而不同,才会出现这样的结果,解决方法你可以试着下载最新的脚本引擎装在IE5客户端,应该会解决。
      

  2.   

    没有办法,只有升级IE,
    或则是不用IE5.5以上的那些功能!