主题:麻烦高手帮忙改一下
我这里有三个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>
<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>