不好意思还麻烦大家一下！
<SCRIPT language="VBScript">Sub Check()
myform=document.Forml.text1.Value
if len(Forml.text1.Value)<6 then
window.alert"名字必须大于6个字符"
document.form1.text1.focus
Exit Sub
end if
for i=1 to len(myform)
aletter=mid(myform,i,1)
if not(aletter>="a" and aletter<="z") then
window.alert"你输入的账号不全为小写字母"
document.form1.text1.focus
exit sub
end if
next
if not isdate(Forml.text2.Value) then
MsgBox"生日输入错误!"&chr(13)&"格式:年/月/日"
Forml.text2.Focus
Exit Sub
End If
Forml.Submit
End Sub
Sub FocusTo(x)
Document.Forml.Elements(x).Focus()
End Sub
</SCRIPT>
结果（用文字说明） ？？？
