Avatar billede 0ffline Nybegynder
18. januar 2004 - 22:40 Der er 1 kommentar og
1 løsning

Flette et par iffer og redirect ind i login

Hej

Så er den galt igen, igen.
Er der en klog ASP bruger der kan ændre lidt i mit login, således at...
-------------------------------------------------------------
Hvis man logger ind et et password der hedder (nybruger) skal man blive redirectet til onlogged2.asp
-------------------------------------------------------------
Hvis man logger ind med et andet password, skal man bare fortsætte til onlogged.asp. Det gør den i forvejen
-------------------------------------------------------------
Hvis ingen af password'ene duer, skal man igen ende ved default.asp. Det gør det også i forvejen

login.asp ---->
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("brugernavn"))
If MM_valUsername <> "" Then
  MM_fldUserAuthorization=""
  MM_redirectLoginSuccess="onlogged.asp"
  MM_redirectLoginFailed="default.asp"
  MM_flag="ADODB.Recordset"
  set MM_rsUser = Server.CreateObject(MM_flag)
  MM_rsUser.ActiveConnection = Conn
  MM_rsUser.Source = "SELECT username, userid, account_valid"
  If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
  MM_rsUser.Source = MM_rsUser.Source & " FROM smask_members WHERE username='" & Replace(MM_valUsername,"'","''") &"' AND userid='" & Replace(Request.Form("password"),"'","''") & "' AND account_valid = 1"
  MM_rsUser.CursorType = 0
  MM_rsUser.CursorLocation = 2
  MM_rsUser.LockType = 3
  MM_rsUser.Open
  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
    ' username and password match - this is a valid user
    Session("MM_Username") = MM_valUsername
    Session.Timeout = 45

    If (MM_fldUserAuthorization <> "") Then
      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    Else
      Session("MM_UserAuthorization") = ""
    End If
    if CStr(Request.QueryString("accessdenied")) <> "" And true Then
      MM_redirectLoginSuccess = Request.QueryString("accessdenied")
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
End If
Response.Redirect("default.asp")
%>

På forhånd tak :O)
Avatar billede 0ffline Nybegynder
27. januar 2004 - 17:41 #1
.
Avatar billede 0ffline Nybegynder
27. januar 2004 - 17:42 #2
.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester