Private Sub cmdOK_Click()
If txtUserNo.Text = "" Then
MsgBox "用戶名錯誤"
txtUserNo.SetFocus
GoTo ExitProcedure
Else
txtUserNo.Text = UCase(txtUserNo.Text)
End If
If txtPassword.Text = "" Then
MsgBox "密碼錯誤"
txtPassword.SetFocus
GoTo ExitProcedure
End If
ExitProcedure:
Screen.MousePointer = 0
Exit SubEnd Sub
If txtUserNo.Text = "" Then
MsgBox "用戶名錯誤"
txtUserNo.SetFocus
GoTo ExitProcedure
Else
txtUserNo.Text = UCase(txtUserNo.Text)
End If
If txtPassword.Text = "" Then
MsgBox "密碼錯誤"
txtPassword.SetFocus
GoTo ExitProcedure
End If
ExitProcedure:
Screen.MousePointer = 0
Exit SubEnd Sub
请问我是这么编的,有什么不对的地方么?谢谢指教!
<form action=register.asp method=post onsubmit=Check Value()>
<script language=VBScript>Sub CheckValue() if document.all.user_id.value="" Then
alert("请输入您的会员代号!")
window.event.returnvalue=false
return
End if
if document.all.user_ pwd.value="" Then
alert("请输入您的密码!" )
window.event.returnvalue=false
return
End if End Sub
我试过拉,根本不管用。我不知道是什么毛病啦!!