Function CheckLoginForm()

		Dim strMsg
		strMsg = ""

		If Trim(LoginForm.txtUser.value) = "" Then strMsg = strMsg & "请输入用户名！！" & Chr(13)
		If Trim(LoginForm.txtPassword.value) = "" Then strMsg = strMsg & "请输入用户密码！！" & Chr(13)
		
		If strMsg = "" Then
			If LoginForm.LogFlag(1).checked = true Then
				LoginForm.action = "../dwzp/UnitLogin.jsp"
			Else
				LoginForm.action = "../grqz/UserLogin.jsp"
			End If
			LoginForm.submit

			LoginForm.txtUser.value = ""
			LoginForm.txtPassword.value = ""

		Else
			alert strMsg
		End If

End Function