<script language="vbscript">
<!--
'Written by Alvin Liao
function datacheck()
dim errflag, msg
errflag = True 《-------是这里
'表单(Form)的名称为「order」,
'检查「会员编号」是否为空字串
If len(order.userid.value) = 0 then
'将游标置於表单第一个栏位,即「会员编号」
focusto(0)
errflag = false 《-------是这里
'检查「密码」是否为空字串
Elseif len(order.passwd.value) = 0 then
'将游标置于表单第二个栏位,即「密码」
focusto(1)
errflag = false
End if
If (errflag = false) then
msg = "所有栏均不得为空白,请重新输入~~"
'以VBScript内建程序MsgBox显示错误讯息
MsgBox msg, 64, "Oh no!"
Exit Function
End if
datacheck = errflag
'Submit(传送)表单栏至Web Server
order.Submit
End Function
sub focusto(x)
'将游标定位于某个表单(Form)栏
document.order.elements(x).focus()
end sub
-->
</script>