Option Explicit       
       
Sub PressKey
  If window.event.keyCode=13 Then LoginB
End Sub

Sub LoginB
  If Trim(document.all("UserID").value) = "" Then
    MsgBox "ÇëÊäÈëÓû§Ãû£¡", vbInformation       
    document.all("UserID").focus       
    Exit Sub       
  End If       
  With document.frames("fraLogin").document.all("frmLogin")       
    .all("UserID").value = document.all("UserID").value       
    .all("Password").value = document.all("Password").value       
    .Submit       
    window.location.href="http://www.czscq.com/cqjy/default.asp"       
  End With       
End Sub       
       
Sub SignUp       
  document.location.href = "http://www.czscq.com/cqjy/signup.asp"       
End Sub