Login script!!!

hvad med at lave en database i mysql, og så bruge lidt php til at kontrollere om folk er i din login database ??

hvis du vil ha\' at jeg skal lave det hele, så er dine 141 points nok !!!

Jeg skal bare have en login form, men kender kun meget lidt til PHP.
Nogen der kan hjælpe?

Hva så $$

Jeg skal have en loginside.
Dér kan man oprette sig som bruger eller logge ind.
Tager det lang tid at lave?

Hvor meget er dit budget for det?

niels-en -> Jeg kan lige lave noget!

ikke for meget men bjarke-b\'s svar lyder spændende.

141v points, og det er dít !!

niels-en -> klar om lidt!

Der skal være forskellige passwords.

hvorfor lige 141???

hvorfor lige 141??? points?

Måske for så har du lige 300 tilbage *S*

lol

Håber du har svaret i morgen tidlig. Kigger i hvert fald i morgen.

hmm, det ved jeg heller ikke :)
Hvis ikke du få et script i morgen, så skrive lige igen og vi finder ud af det !!

codebase -> Well, kan ikke nå og lave noget før i eftermiddag,

OK.
Jeg skal først bruge det i næste uge, men hvis i giver mig det i dag, ville det være perfekt. (og 50 point extra hvis det virker som jeg forventer.)

niels-en > Kommer igen i eftermiddag, der laver jeg et !

Jeg har et script på min HD, som du kan få, men det kan <U><B>Kun</b></u> beskytte asp sider.

Christian

Hmm, jeg har ikke min normale kode i nærheden lige for tiden, men hoved ideen i mine login scripts får du her:

Lav en form med indtastning af brugernavn og password...
ved submit smider du en post videre til en validate.asp side, hvor du med et DB opslag finder den post hvor BÅDE brugernavn og password matcher...
IF (rs(\"Bruger\") = \"\") THEN
  Response.Redirect \"Fejl.asp\"
ELSE
  Session(\"Authorized\") = \"True\"
END IF

På alle de sider du vil have sikret skriver du så bare, følgende i toppen:
<%
  IF (Session(\"Authorized\") <> \"True\") THEN
    Response.Redirect \"Login.asp\"
  END IF
%>

Her efter kan man kun se siderne hvis brugeren er logget ind (eg. har indtastet brugernavn og password som matcher en post i din database)

Dette indsættes på de sider der skal beskyttes.
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"login.mdb\")
%>

Denne side checker login, kald denne checp.asp:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
\'Conn.open \"mirocom\"
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"login.mdb\")
   
dim typen
dim email
dim password

typen = request.QueryString(\"type\")


sub check_email
  Temp    = LCase(Trim(request.form(\"Email\")))
  AtSym    = Instr(1, Temp, \"@\")
  Period  = InstrRev(Temp, \".\", -1, 1)
  Spacer  = Instr(1, Temp, \" \")
  Length  = Len(Temp) 
  if ((AtSym < 2) or (Period <= AtSym+1) or (Period = Length) or (Spacer <> 0)) then
    response.redirect \"login.asp?fejl=ikke gyldig email adresse\"
  end if
end sub

if typen = \"newuser\" then
  email = LCase(Trim(request.form(\"email\")))
  password = LCase(Trim(request.form(\"password\")))
  check_email
  if not len(password) > 3 then
    response.redirect \"login.asp?fejl=ikke gyldig password - min. 4 karakterer\"
  end if
  SQL = \"Select * FROM Brugere WHERE email=\'\" & email & \"\'\"
  set RS=Server.CreateObject(\"adodb.Recordset\")
  RS.Open SQL, Conn, 3, 3
  if RS.EOF then
    Rs.Addnew
    RS(\"Email\") = email
    RS(\"Password\") = password
    RS.Update
    RS.Close
    SQL = \"Select * FROM Brugere WHERE email=\'\" & email & \"\'\"
    RS.Open SQL, Conn, 3, 3
    if (not RS.EOF) then
      Session(\"BrugerID\") = RS(\"BrugerID\")
      RS.close
      set RS = Nothing
      Conn.close
      set Conn = Nothing
      response.redirect \"xxx.asp\"       
    else
      RS.close
      set RS = Nothing
      Conn.close
      set Conn = Nothing
      Session(\"BrugerID\") = 0
      response.redirect \"login.asp?fejl=Bruger kunne ikke oprettes - prøv igen\"
    end if
  else
    RS.Close
    set RS = Nothing
    Conn.Close
    set Conn = Nothing
    response.redirect \"login.asp?fejl=En bruger er allerede oprettet med den email addresse\"
  end if
elseif typen = \"login\" then
  email = LCase(Trim(request.form(\"email\")))
  password = LCase(Trim(request.form(\"password\")))
  check_email
  if not len(password) > 3 then
    response.redirect \"login.asp?fejl=ikke gyldig password - min. 4 karakterer\"
  end if
  SQL = \"Select * FROM Brugere WHERE email=\'\" & email & \"\'\"
  set RS = Conn.execute(SQL)
  if not RS.EOF then
    if Trim(LCase(RS(\"password\"))) = password then
      Session(\"BrugerID\") = RS(\"BrugerID\")
      RS.Close
      set RS = Nothing
      Conn.Close
      set Conn = Nothing
      response.redirect \"xxx.asp\"
  else   
      Session(\"BrugerID\") = 0
      RS.Close
      set RS = Nothing
      Conn.Close
      set Conn = Nothing
      response.redirect \"login.asp?fejl=Forkert password\"
    end if
  else
    Session(\"BrugerID\") = 0
    RS.Close
    set RS = Nothing
    Conn.Close
    set Conn = Nothing
    response.redirect \"login.asp?fejl=Bruger eksisterer ikke\"
  end if
else
  response.redirect \"login.asp?fejl=ikke gyldig kommando\"
end if
            RS.Close
            set RS = Nothing
%>

Login.asp siden:

<html>
<head>
    <title>Login</title>
</head>
<body>
<form name=\"loginform\" action=\"check.asp?type=login\" method=\"post\">
<table>
      <tr><td>E-Mail</td><td><input name=\"email\"></td></tr>
      <tr><td>Password</td><td><input type=\"password\" name=\"password\"></td></tr>
      <tr><td></td><td align=\"right\"><input type=\"submit\" name=\"login\" value=\"Login\"></td>
    </tr>
</table>
</FORM>
</body>
</html>

Prøv dette.  MVH Stig

Siden der checker login, skal ikke hede checp.asp men check.asp.

niels-en >> jeg gider ikke lige læse så mange svar igennem - men hvis ikke der er andre der finder ud af noget, så har jeg et eksempel der opfylder dine krav vil jeg tro...

det kan evt testes på www.soze.dk/ny...

Jo, tak keysersoze.
Det vil jeg da meget gerne.
Stigs mangler nemlig login form og DB.

niels-en >> jeg tager det med i morgen og sender til dig...

Tager med??? Nå, Ja mange tak.

har du en e-mail???

ja. jonashej@ofir.dk

er sendt...

Kan vi andre oxo få et ps@web-sale.dk

Det vil jeg lade Keysersoze om at afgøre:-)

Hej Niels-en, login formen er i scriptet. Det er kunn DB der ikke er der, men DB er jo bare en tabel med tre koloner. ? Hvis du ikke hved hvorn man sætter en DB op, kan du jo bare sige det. ?
MVH Stig

niels-en >> kunne det bruges?

bacardil >> måske... kommer an på om det kan bruges af spørgeren...

Jeg kan ikke bruge sciptet da jeg ingen anelse har om ASP.
Kan det laves i PHP?

niels-en >> ehrm - hvorfor så oprette spørgsmålet i ASP? hvis det er fordi der skal rettes noget, så skriv og lad os finde ud af det!

niels-en, få nu denne sag afslutet !!!

Stig

?????????????????

For at kontrolere adgangen til HTML skal serveren understøtte det.
Men...
Du kan omdøbe html filerne til asp, og dernæst indsætte en linie kode, som referere til en side.

Jeg kan lave det så du ikke behøver at bekymre dig om det programerings mæssige.

Jeg har som sagt det script i ASP, som kan bruges til det!!!

hmm.... Jeg har stadig et script der hjemme som du kan få hvis du vil!!

C

Dødt spørgsmål.. .luk det