login til forskellige sider

på scannet.dk under support er der et ex på sikkerhedssystem som du let kan udbygge.

Anders

http://www.scannet.dk/ASPSupport/Password.htm

simpelt

download magiks geniale scipt

http://www.magik.dk/asp/login.zip

og lav godkendt.asp om til
----------------------------------------------------------------------------------------
<html>
<head>
<title>Login</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body>
<p><h1>Log ind</h1>
<%
Dim fejl, username, password

fejl = false
brugernavn = Request.Form(\"brugernavn\")
password = Request.Form(\"password\")

If brugernavn = \"\" Then
    Response.Write \"<p><font color=red>Indtast venligst dit brugernavn!</p></font>\"
    fejl = true
End If

If password = \"\" Then
    Response.Write \"<p><font color=red>Indtast venligst dit password!</p></font>\"
    fejl = true
End If

If fejl = true Then
    Response.Write \"<p><a href=java script:history.back()>Tilbage</a>\"
End If

If fejl <> true Then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"brugere.mdb\")
Conn.Open DSN
Dim samletAntal


strSQL = \"SELECT * FROM brugere WHERE brugernavn=\'\" & brugernavn & \"\' and Password = \'\" & password & \"\'\"
Set rs = Conn.Execute(strSQL)

If Not rs.eof Then
          response.write (\"<meta http-equiv=\"\"refresh\"\" content=\"\"0;URL=<%= rs(\"brugernavn\") %>.asp\"\">\")
          \'Response.Write \"<p><h3>Login godkendt!</h3>\"
        \'Response.Write \"<p>Du er nu logget på som \'\" & rs(\"brugernavn\") & \"\'</p>\"
          Session(\"login\") = true
        Session(\"brugernavn\") = rs(\"brugernavn\")
        Session(\"userid\") = rs(\"id\")
        Conn.Execute(\"UPDATE brugere SET sidste_login=\'\" & Now & \"\' WHERE id=\" & Session(\"userid\"))
        Response.Write \"<p><a href=\'default.asp\'>Til forsiden</a></p>\"
       
    If request.form(\"save\") = \"on\" then
        Response.Cookies(\"Brugere\")(\"brugernavn\") = session(\"brugernavn\")
        Response.Cookies(\"Brugere\")(\"password\") = password
        Response.Cookies(\"Brugere\").expires = Date+365 \'Information gemmes i cookie i et år, hvis brugeren har valgt at gemme information
    Else   
        Response.Cookies(\"Brugere\").expires = Date-1000 \'Information slettes ved at sætte \"expires\" 1000 dage tilbage, idet brugeren har valgt at slette information
   
    End If
   
       
Else
    Response.Write \"<p><font color=red>Du blev ikke logget ind! Du har muligvis indtastet forkert brugernavn eller password!</font></p>\"
    Response.Write \"<p><a href=java script:history.back()>Tilbage</a></p>\"
End If

Conn.Close
Set Conn = Nothing

End If

%>
</body>
</html>

jeg tjekker det lige nu ...

tjah

du skal starte med at have en database med nogle brugeroplysninger. når du så logger ind fra din webside kan du checke i basen om brugeren har indtastet rigtigt login/password, og sende brugeren videre til f.eks. minside.asp?bruger_id=2 , hvor du så på minside.asp trækker den nødvendige info ud af basen ved hjælp af kriteriet bruger_id=2 ..

håber det kunne hjælpe dig lidt igang.

Du kan jo bare lave det sådan så at når de er logget ind bliver de
<% Response.Redirect \"users.asp?user=\" & rs(\"user\") %>

Eksempeltvis :)

kommer an på hvordan login systemet dur

nu skal jeg lige gi\' jer noget info at arbejde med ....jeg kan sige så meget at det er til en clan ... hvorfra medlemmer kan logge ind og ændre i deres profil .... og jeg synes ikke at det jeg har fået endtil videre virke efter hensigten ...

er her virkelig ikke nogle som har et login-system som kan bruges til dette formål ... den brhøver ikke at kunne skrive brugernavn og id ud på siden ... man skal kunne logge ind på en \"user\"-side alt efter hvilket username og password man bruger ...

neuro -> jeg har allerede en database med brugerinfomation ... kan du sende mig et eksempel på sådan en side ?

problem -> til -sofus- =

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03EE)
Tegnet \')\' var ventet
/admin/godkend.asp, line 42, column 70
response.write (\"<meta http-equiv=\"\"refresh\"\" content=\"\"0;URL=<%= rs(\"brugernavn\")

hehe

response.write (\"<meta http-equiv=\"\"refresh\"\" content=\"\"0;URL=\"& rs(\"brugernavn\") &\"\"\"\")

jeg har fundet et !!

sdfsf