login script - multiple users - multiple redirect

jeg kan da godt!

skal du også ha lavet det??

Jeg skal nok lave det ... men du skal selv lave databasen.... Gider nemlig ikke installe ´97 igen...

-Anders

Ja jeg skal også bruge det :o)

Jeg kan sagtens lave databasen, hvis jeg bare kender formatet såsom:

bruger password action
user  name    http://bla.bla.com

Der er flere point hvis scriptet sparker røv

hvor mange?

du laver selv tilføj funktion ikke??

he he hva med 300?

Hva skal det kunne..???

Oprette Bruger ?
Slette bruger ?
Rette i Bruger ?
Sende bruger forskellige steder hen ?
Logge IP på bruger ?
Logge Forkerte koder ?

Eller hva skal det ku..??

-Anders

øhh tilføj funktionen?

Sådan at der kan oprettes bruger.... Ikke sandt kære Thomas..??

-Anders

a-torsten

Lige præcis det du skriver!

men de sider der redirectes til skal ikke kunne læses bare ved at taste stien ind

100 point for det, hvem gider det :)

300 og i behøver ikke kode det selv ... jeg vil bare gerne ha eet der kan ....
Hvis der skal flere p\'s til må vi jo tale om det :o)

Her finder du sikkert noget du kan bruge......

http://www.aspin.com/home/webapps/usermanage

-Anders

ikke kode det selv = at finde det somewhere

hmm nej problemet med mange ad de scripts er at de ikke redirecter til forskellige sider ....

Det skal være sådan at den side brugeren redirectes til KUN kan ses af ham

Jeg slækker lidt på kravene.

Jeg kan selv oprette, slette og ændre brugere via Acces97

Scriptet skal bare checke om bruger/password er ok og så sende vedkommende hen til den side han skal se .... 400 Point

If Request.Form(\"Action\") = \"Login\" Then
  strUID = Trim(Replace(Request.Form(\"Brugernavn\"),\"\'\",\"\"))
  strPWD = Trim(Replace(Request.Form(\"Adgangskode\"),\"\'\",\"\"))
 
  If Len(strUID) > 0 And Len(strPWD) > 0 Then

    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\")

    strSQL = \"SELECT ID FROM Users\"&_
      \" WHERE (Username = \'\" & strUID & \"\')\"&_
      \" AND (Password = \'\" & strPWD & \"\')\"

    Set rs = myConn.Execute(strSQL)
      If Not (rs.BOF Or rs.EOF) Then
      intUID = rs(\"ID\")
      Else
      Response.Redirect(\"fejl_i_kodeord.asp\")
      End If

    myConn.Close
    Set myConn = Nothing

    If Len(intUID) Then
      Session(\"login\") = true

      Response.Redirect(\"\" & rs(\"redirect\") & \"\")
    End If
    Else
    Response.Redirect(\"ingen_bruger_ved_det_navn.asp\")
  End If

End If


DU skal have en database der hedder database.mdb
der skal være en tabel der hedder users med følgende felter:

Username
Password
Redirect


De sider der skal byttes skal der indsættes følgende:

<%
if session(\"login\") <> true then response.redirect(\"du_er_ikke_logget_ind.asp\")
end if
%>

OK hvis jeg har forstået det rigtigt så:

skal jeg bare ha\' en side foran med en form hvor der er
to felter med name=\"brugernavn\" og name=\"adgangskode\"

oprette DB og så spiller det?

Yepper, det glemte jeg lige
Login.html:

<form method=post action=login.asp>
Brugernavn <input type=text name=\"brugernavn\"><br>
Kodeord <input type=text name=\"adgangskode\"><br>
<input type=submit>

Det jeg skrev før skal så være i login.asp

ok er lige ved at lave DB\'en ....

Få det til og virke ?

2 sek er lige ved at teste lidt ... er ikke så go\' til Access og ASP ... endnu

hmm det ser ud til at lige meget havd jeg taster ind kommer der bare en hvid side frem

http://asp.greyscale.dk/test/test.asp

brugernavne test1 / pass1 skal gå til test1.asp
brugernavne test2 / pass2 skal gå til test2.asp
brugernavne test3 / pass3 skal gå til test3.asp

når bruger 2 er logget ind må han ikke læse bruger 3\'s side

prøv selv :o)

jeg har gemt dit script som login.asp og sat <%  %> på

... der læses ikke fra DB

Any help?

Du kan prøve den her:

START.HTM:
<form method=post action=login.asp>
Navn <input type=\"text\" name=\"navn\"><br>
Pass <input type=\"pass\" name=\"kode\"><br>
<input type=submit>
</form>

login.asp:
<%
    strConn = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")

    Set objRS = Server.CreateObject(\"ADODB.RecordSet\")
   
    strQ = \"SELECT * FROM users WHERE (password=\'\" & Request.querystring(\"kode\") & \"\')\" & _
            \" AND (username = \'\" & Request.querystring(\"navn\") & \"\');\"
   
    objRS.Open strQ, strConn
   
if objRS.EOF Then
   
    Session(\"Login\") = \"No\"
    Response.Redirect(\"start.htm\")

Else   
    Session(\"Login\") = \"Yes\"
        Session(\"redirect\") = objRS(\"redirect\")
        Response.Redirect(objRS(\"redirect\"))
   
End If

    objRS.Close
    Set objRS = Nothing
%>

Dette kræver at din database har disse felter:
username
password
redirect

I de asp-filer du så vil beskytte, skriver du følgende i toppen:

<%
var page = \"test1.asp\" // sidens navn, som kun han skal kunne se.
  if Session(\"Login\") = \"No\" then
    Response.Redirect(\"start.htm\")
  else
    if Session(\"redirect\") <> page then
    Response.Redirect(\"start.htm\")
    end if
  end if
%>

Håber det kan hjælpe lidt!!

Weeeh fandt lige et gammelt login system jeg havde lavet, det virker og er testet!

Default.asp
-------------------

<form method=post action=login.asp>
<input type=text name=brugernavn><br>
<input type=text name=adgangskode><br>
<input type=submit>
</form>


login.asp
-----------

<%
Response.Buffer = True
  \'Connection:
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\")
    strSQL = \"SELECT * FROM users where username = \'\" & Request.form(\"brugernavn\") & \"\'\"
    Set rs = myConn.Execute(strSQL)
   
   
            \'Tjecker om brugernavnet findes!
              If rs.BOF Or rs.EOF Then
              Response.Redirect(\"der_finders_ingen_bruger.asp\")
              end if
           
                        \'Tjecker om brugernavn og password er ens
                        if rs(\"password\") = Request.form(\"adgangskode\") then
                       
                                    \'Laver session´s med brugernavn, id og login = yes
                                    session(\"side\") = rs(\"redirect\")
                                    Response.Redirect(\"\" & rs(\"redirect\") & \"\")
                       
                        \'Hvis passwordet ikke matchede brugerens password:
                        else
                        Response.Redirect(\"forkert_password.asp\")
                        end if


  \'Lukker connection
    myConn.Close
    Set myConn = Nothing
%>

bruger1.asp
--------

<% if session(\"side\") <> \"bruger1.asp\" then Response.Redirect(\"ikke_adgang_til_denne_side.asp\") end if %>

bruger1´s side!



bruger2.asp
--------------

<% if session(\"side\") <> \"bruger2.asp\" then Response.Redirect(\"ikke_adgang_til_denne_side.asp\") end if %>

bruger1´s side!


_---------------

Du skal have en db med følgende:

username
password
redirect

det hele siger nok sig selv ellers!
det er testet og virker!

=>Bjarke

aaarrrrg jeg kan ik få det til at funge
Kan du ikke sende databasen Access97 til mig? jeg tror jeg opretter den forkert

Jeg fik Bjarke\'s script til at virke .... men jeg fandt noget andet der også kan bruges på
a-torstens link ....

Hey ... hvordan får man *\'er frem i stedet for karakterer
når man taster passwordet ind ?

Du ændrer input type=text til input type=\"password\"