Brugersystem igen igen...

<%
dim cn, strcn
Set cn = Server.CreateObject("ADODB.Connection")
strcn = "Provider = Microsoft.Jet.OLEDB.4.0;"
strcn = strcn & "data source = /WINDOWS/Skrivebord/hp/brugere.mdb;"
cn.ConnectionString = strcn
cn.Open
dim SQL
SQL = "Select * FROM brugere WHERE [brugernavn] = '" & Request.Form("BrugerNavn") & "'"
Set rs = cn.Execute(SQL)

If rs("password") = Request.Form("password") Then

Response.Redirect "almbruger.asp"


Else

Response.Redirect "admin.asp"

Else

Response.Write "Forkert brugernavn / password."
%>
<BR>
<A HREF = "default.asp">Prøv igen</A>
<%
End If
%>

//>Rune

Her har jeg rydet lidt op i koden ;-) (du skal huske at definere om det er objekt eller om det er en streng variabel osv. i variabelnavnet!)

<%
dim objConn, strCn
Set objConn = Server.CreateObject("ADODB.Connection")
strCn = "Provider = Microsoft.Jet.OLEDB.4.0;"
strCn = strCn & "data source = /WINDOWS/Skrivebord/hp/brugere.mdb;"
objConn.ConnectionString = strCn
objConn.Open
dim SQL
strSQL = "Select * FROM brugere WHERE [brugernavn] = '" & Request.Form("BrugerNavn") & "'"
    Set objRs = objConn.Execute(strSQL)

    If rs("password") = Request.Form("password") Then
        Response.Redirect "almbruger.asp"
    Else
        Response.Redirect "admin.asp"
    Else
        Response.Write "Forkert brugernavn / password."
%>
<BR>
<A HREF = "default.asp">Prøv igen</A>
<%
    End If
%>

//>Rune

medions>  Formelt er det fuldstændig ligegyldigt hvad du kalder dine variable (blot det ikke er beskyttede ord).
At koden så er meget nemmere at læse med et letforståeligt prefix er en anden ting. ;-)

Her har du et eksempel på et godt udviklet loginsystem med kommentar...


    ' Her forberedes de indtastede værdier til validering
    strUID = Trim(Replace(Request.Form("brugernavn"),"'",""))
    strPWD = Trim(Replace(Request.Form("password"),"'",""))

    ' Hvis der er skrevet noget i både brugernavn og adgangskode
    If Len(strUID) > 0 And Len(strPWD) > 0 Then

        ' DSNLess forbindelse til databasen
        Set myConn = Server.CreateObject("ADODB.Connection")
        myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=/WINDOWS/Skrivebord/hp/brugere.mdb;"
        ' Opbygning af SQL streng
        strSQL = "SELECT * FROM Users"&_
            " WHERE (brugernavn = '" & strUID & "')"&_
            " AND (Password = '" & strPWD & "')"

        Set rs = myConn.Execute(strSQL)
        If Not (rs.BOF Or rs.EOF) Then
            ' Hvis brugeren fandtes i databasen
            intUID = rs("UserID")
            intTRAN = rs("Transfer")
           
           
        Else
            ' Hvis brugeren ikke fandtes i databasen
            strERR = "Du blev ikke godkendt af systemet"
        End If

        ' Rydder op i vores connection objekt
        myConn.Close
        Set myConn = Nothing

//>Rune

tjacob> Du kan da ikke sige andet end det er dejlig at ha' en kode hvor det hele er sat perfekt op! Det er definere variablerne er, ja, selvfølgelig kun for ordenhedens skyld, men alle kan sige hvad de vil, det er sq dejligst med en perfekt kode! :-)

//>Rune

Hvis vi går ud fra at [brugerlevel] er et felt i din brugere tabel, skal din kode se sådan ud

<%

dim cn, strcn
Set cn = Server.CreateObject("ADODB.Connection")
strcn = "Provider = Microsoft.Jet.OLEDB.4.0;"
strcn = strcn & "data source = /WINDOWS/Skrivebord/hp/brugere.mdb;"
cn.ConnectionString = strcn
cn.Open
dim SQL
SQL = "SELECT * FROM brugere WHERE [brugernavn] = '" & Request.Form("BrugerNavn") & "';"
Set rs = cn.Execute(SQL)

If rs.EOF Then

    Response.Write "Forkert brugernavn.<BR>" &_
                "<A HREF = ""default.asp"">Prøv igen</A>"

Else

    If rs("password") = Request.Form("password") Then
   
        If rs("brugerlevel")=1 Then
       
            Response.Redirect "almbruger.asp"
       
        ElseIf rs("brugerlevel")=2 Then
       
            Response.Redirect "admin.asp"
       
        Else
       
    Else
       
        Response.Write "Forkert password.<BR>" &_
                    "<A HREF = ""default.asp"">Prøv igen</A>"
       
    End If

End If

cn.close
Set cn 0 Nothing
Set rs = Nothing

%>

Ovenstående vil give fejl.
Bruge denne i stedet.

<%

dim cn, strcn
Set cn = Server.CreateObject("ADODB.Connection")
strcn = "Provider = Microsoft.Jet.OLEDB.4.0;"
strcn = strcn & "data source = /WINDOWS/Skrivebord/hp/brugere.mdb;"
cn.ConnectionString = strcn
cn.Open
dim SQL
SQL = "SELECT * FROM brugere WHERE [brugernavn] = '" & Request.Form("BrugerNavn") & "';"
Set rs = cn.Execute(SQL)

If rs.EOF Then

  Response.Write "Forkert brugernavn.<BR>" &_
            "<A HREF = ""default.asp"">Prøv igen</A>"

Else

  If rs("password") = Request.Form("password") Then
 
      If rs("brugerlevel")=1 Then
     
        Response.Redirect "almbruger.asp"
     
      ElseIf rs("brugerlevel")=2 Then
     
        Response.Redirect "admin.asp"
     
      Else
     
          Response.Redirect "Hvem er du?"
     
      End If
     
  Else
     
      Response.Write "Forkert password.<BR>" &_
              "<A HREF = ""default.asp"">Prøv igen</A>"
     
  End If

End If

cn.close
Set cn 0 Nothing
Set rs = Nothing

%>

medions> helt enig!!
Ville bare fjerne mulig misforståelse om at det var "tvunget". ;-)

tjacob> ;-) fair nok!

//>Rune

sql = "UPDATE brugere SET brugerlevel='"Request.Form("level")"' WHERE brugernavn = "Request.Form("bruger")""
Hvad er der galt? Den skriver slut på sætning var ventet...

Samme fejl som tidligere.
Du mangler et &-tegn til sidst i din sql.

teknikeren >> Du behøves ikke at tildele 200 points til hvert spørgsmål.
Så svære er de heller ikke ;-)