回 帖 发 新 帖 刷新版面

主题:麻烦高手帮忙改一下

我这里有三个VBscript小脚本,请问有哪位高手能帮忙改成Javascript的相同功能的脚本?不胜感激。
  <script language="VBscript">
//必须输入值
  function   submitnull(form0,str)
    dim i
    for i=0 to form0.length-1
       if (form0.elements(i).type="text") and (form0.elements(i).value="" ) then 
         msgbox str,vbInformation,"提示"
         form0.elements(i).focus
         submitnull=false
         exit function
       end if
    next
    submitnull=can
  end function
</script>

<script language="VBScript">
''弹出对话框
sub msg(info)
  msgbox  info,vbinformation,"提示"
end sub
</script>

<script language="VBScript">
function zxsl(text0,hide0)
  if text0.value="" then
    msg "请输入数量!"
    text0.value=hide0.value
    text0.focus()
    zxsl=false
    exit function
  end if
  if cint(text0.value) < cint(hide0.value) then
    msg "最小购买数量为" + hide0.value +"!"
    text0.value=hide0.value
    text0.focus()    
    zxsl=false
    exit function
  end if
end function
</script>

回复列表 (共1个回复)

沙发


<script language="VBscript">
//必须输入值
  function   submitnull(form0,str)
   { var i
    for(i=0;i<=form0.length-1;i++)
     {  if(form0.elements(i).type=="text"&&form0.elements(i).value=="" ) 
       {  alert(str);
         form0.elements(i).focus;
         return false;
        }    
     }
    submitnull=can
 }
</script>

我来回复

您尚未登录,请登录后再回复。点此登录或注册