<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>

请各位高手指点迷津