login system

Hej,

Mener du brugerens navn fra f.eks. Windows 98 eller 2000 (computernavn) eller mener du det loginnavn, som han er logget ind på dine sider med?

/peter

Du smider dine date ind i en session-variabel... ihvertfald dem du skal bruge tit, som f.eks. brugernavn

Så kan du altid hente de andre oplysninger ud fra hans brugernavn....

Når du checker om brugerens login er ok, og har fundet ud af, at det er det, så skriver du
session("brugernavn") = request("brugernavn")
eller hvad du nu kalder den.

Så kan du senere hente brugernavnet med
brugernavn = session("brugernavn")

u get it?

/simon

det er brugernavnet og hans andre infos

Larsen1>>

kan du uddybe det dy skiver der ?

oxo på andre sider ????

Ja - også på andre sider. Det er hele ideen med session-variabler. Det er uundværligt.

Skal du have mere uddybning end min 2. kommentar?

ja to sekunder... jeg er newbie og finder lige en stump kode for at kunne hitte ud af det

dette er den jeg tjekker brugerens login og password med.....

<%
' bruges til at tjekke om brugeren finde i db ved login
' Sender resultaterne fra tilføj links til databasen
' Database connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("forum.mdb")

strUsername = Trim(Replace(Request.Form("navn"),"'",""))
strPassword = Trim(Replace(Request.Form("password"),"'",""))
strSQL ="SELECT * FROM bruger WHERE UCase(navn) = '" & UCase(strUsername) & "' AND UCase(Password) = '" & UCase(strPassword) & "'"
set rs = conn.execute(strSQL)
'først tjekke om brugeren findes ved at tjekke om recordsetet er tomt.
if not rs.EOF then
  if LCase(rs("navn")) = LCase(strUsername) then
    'LOGIN OK
    Response.Redirect("index.asp")
  else
    'INGEN BRUGER FUNDET
    'Eller en blev fundet men databasen bruger navn passer ikke med det
    'indtastede brugernavn
  end if
else
response.write "ingen brugere fundet"
end if

conn.Close
Set conn = nothing
Set SQLstmt = nothing

%>

så skal jeg bare indsætte
session("brugernavn") = request("brugernavn")
session("password") = request("password")

for at kunne bruge disse på mine andre sider ?

if LCase(rs("navn")) = LCase(strUsername) then
    'LOGIN OK
    Response.Redirect("index.asp")
  else

retter du til:

  if LCase(rs("navn")) = LCase(strUsername) then
    'LOGIN OK
    session("brugernavn") = LCase(strUsername)
    Response.Redirect("index.asp")
  else

Så skal du på de efterfølgende sider checke om brugeren er logget ind, eller er kommet uden om din login ved at skrive
if session("brugernavn") = "" then
  response.redirect("login.asp")
end if

password behøver du vist ikke at gemme.
og så har du automatisk adgang til brugernavnet på alle dine sider. prøv med
response.write session("brugernavn")

/simon

prøverdet lige af &:-D

Jeg har indsat dette på min "bruger side"

<%
f session("brugernavn") = "" then
  response.redirect("login.asp")
end if

response.write session("brugernavn")

%>

men får denne fejl:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/koder/asp/forum/index.asp, line 7

f session("brugernavn") = "" then
-----------------------------^

sorry det virker perfekt &:-D

havde jo bare glemt et i &:-D

if session..... osv

nu når jeg har fat i dig.... kan man så lave så en bruger automatisk bliver logget ud efter eks. 30 min hvis han ikke har været aktiv ?

eller er det bare en hyppotekisk tanke ? da der vel ingen grund er til at han slider på min db hvis han alligevel ikke er der ?

altså det almene logout ser vel bare sådanne ud ?
<%

Session("name")=""
Response.Redirect("login.asp")

%>

Default er, at man automatisk bliver logget af efter 20 min.
det kan du ændre til 30 min. med

session.timeout = 30

din logout skal se således ud:
Session("name")=""
session.abandon
Response.Redirect("login.asp")

det vil sige hvis jeg ikke skriver dette:
session.timeout = 30

så er bliver min bruger automatisk logget af efter 20 min hvis han ikke gør noget

Yes - det er lige hvad det vil sige.... ;)

kanont... takker for en god hjælp.... nu kan jeg da komme lidt videre &:-D

God fornøjelse.... Du kan også bare lige spørge mig på MS messenger en anden gang... (hvis du bruger den)
simon@simonlarsen.dk

/simon