<script language="vbscript">
<!--
function datacheck()
if trim(use.qymc.value=0) then
focusto(0)
errflag = false
msg="企业名称为必填选项！"
msgbox msg,64,"oh no!"
//exit function
end if
if not IsNumberic(use.dh.value) then
focusto(2)
errflag = false
msg="电话必须为数字！"
msgbox msg,64,"oh no!"
// exit function
end if
if not IsNumberic(use.cz.value) then
focusto(3)
errflag = false
msg="传真必须为数字！"
msgbox msg,64,"oh no!"
//exit function
end if
if instr(2,ues.dzxx.value,"@") = 0 then
focusto(4)
errflag = false
msg="电子信箱为必填选项！电子信箱中需包含"@"符号！"
msgbox msg,64,"oh no!"
//exit function
end if
if len(use.mm.value)<6 or len(use.mm.value)>10 then
focusto(7)
errflag = false
msg="密码长度只能在6至10之间。"
msgbox msg,64,"oh no!"
//exit function
end if
if use.mm.value<>use.qrmm.value then
focusto(7)
errflage = false
msg="两次密码必须一致。"
msgbox msg,64,"oh no!"
//exit function
end if
datacheck = errflag
use.submit
end function
sub focusto(x)
document.use.elements(x).focus()
end sub
-->
</script>
请各位高手指点迷津