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

解决方案 »

  1.   

    谢谢!!
    请问我是这么编的,有什么不对的地方么?谢谢指教!
    <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
      

  2.   

    if len(trim(document.all.user_ pwd.value="" )) = 0 then
      

  3.   

    wujs(wujs) 说得轻松!
    我试过拉,根本不管用。我不知道是什么毛病啦!!