Vis brugerens brugernavn

det kommer lidt an på hvad du har på nuværende tidspunkt og hvad det skal bruges til. Er det bare brugernavnet der skal vises er det nok mest hensigtsmæssigt at gemme i en session du laver ved login - og ellers kan du måske hente det fra databasen hvis du gemmer brugerid eller lignende i en session.

Det skal være fra databasen.
Har bare sat brugernavn fordi at så kan man jo bare genbruge koden bagefter ( Hvor man så har rettet noget. )

men hvad har du nu der genkender at en bruger er logget ind?

OK!

Nu antager jeg at din session som du laver ved login hedder "session("id")" og at din database hedder "data.mdb" og at din tabel hedder "users" og at kollonnen med brugernavne hedder "username" og at din id i tabellen hedder "id"...

- så skal vi jo bare lave et opslag i databasen...

list a la det her:
<%
if session("id") <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("data.mdb")
set rs = Conn.execute("select * from users WHERE id=" & session("id") & "")
if NOT rs.EOF then
response.write rs("username")
end if
rs.close
set rs=nothing
Conn.close
set Conn=nothing
end if
%>

\Dan

Min login form:
<%
' Hvis der er blevet trykket på knappen "Login"
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
  ' Her forberedes de indtastede værdier til validering
  strUID = Trim(Replace(Request.Form("Brugernavn"),"'",""))
  strPWD = Trim(Replace(Request.Form("Kodeord"),"'",""))

  ' 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=" & Server.MapPath("/db/brugersystem.mdb")

    ' Opbygning af SQL streng
    strSQL = "SELECT * FROM bruger WHERE (Brugernavn = '" & strUID & "') AND (Kodeord = '" & strPWD & "')"
    Set rs = myConn.Execute(strSQL)
    If Not (rs.BOF Or rs.EOF) Then
      ' Hvis brugeren fandtes i databasen
      intUID = rs("id")
    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

    If Len(intUID) Then
      ' Hvis variablen intUID indeholder en værdi sættes denne i sessionen "UserID" og brugeren bliver sendt videre
      Session("UserID") = intUID
      Response.Redirect("index.asp")
    End If
  Else
    ' Hvis der ikke var angivet brugernavn og adgangskode
    strErr = "Du skal skrive både brugernavn og adgangskode"
  End If

  If Len(strErr) > 0 Then
    ' Her laves fejlmeddelsen om til rød skrift
    strErr = "<p><font color=red>" & strErr & "</font></p>"
  End If
End If
%>
<font color="red" style="font-size:12px;"><b><%=strErr%></b></font>
<form method="POST" style="margin-bottom:0px;" action="indhold.asp"><font  color="#FFFFFF" style="font-size:12px;">Brugernavn: <input name="Brugernavn" id="loginform"> Adgangskode: <input type="password" name="Kodeord" id="loginform"> <input type="submit" tabindex="4" src="http://images.leol.dk/BG.PNG" value="Login" name="Action" value="Logon" style="height: 20px;font-size: 12px;color: green;width:100px;font-weight: bold;font-family:tunga;"></font></form>

dannielsen

Hvor vil du have jeg skal ligge den kode du har skrevet ind henne?

i så fald er dannielsens forslag næsten korrekt;

<%
if session("UserID") <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("data.mdb")
set rs = Conn.execute("select * from users WHERE id=" & session("UserID") & "")
if NOT rs.EOF then
response.write rs("username")
end if
rs.close
set rs=nothing
Conn.close
set Conn=nothing
end if
%>

hvor bare selvfølgelig stien til databasen og måske navne/kolonner også skal tilpasses... men jeg tror nu nu at jeg ville foretrække at gemme det i en session fremfor et database-opslag kun til det.

Jamen jeg forstår ikke hvor jeg skal sætte den der kode ind hennne

- Du skal sætte den kode jeg skrev ind på den side hvor pågældende brugernavn skal vises... En profilside eller sådan noget...

og egentlig så skal den se sådan her ud - tilpasset til dit system og navne...:
<%
if session("UserID") <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/db/brugersystem.mdb")
set rs = Conn.execute("select * from bruger WHERE id=" & session("UserID") & "")
if NOT rs.EOF then
response.write rs("Brugernavn")
end if
rs.close
set rs=nothing
Conn.close
set Conn=nothing
end if
%>

\Dan

Weeee........................ Det virker fint..

OK! Jamen det er jeg glad for at høre!

Jeg ved ikke om i gider men kan i sige mig hvordan man kan rette ting i sin database.. Altså hvor man skriver sit nye brugernavn også bliver der rettet i databasen..?

http://www.html.dk/tutorials/asp/ - lektion 22

- Jada! Men så bliver tingene lidt mere komplicerede... men nok lidt som det her:
<%
if session("UserID") <> "" then
    if request.querystring("act") = "save" then
Const adOpenDynamic = 2
Const adLockOptimistic = 3   
Const adCmdTable = &H0002   
Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("/db/brugersystem.mdb")
rs.Open "bruger", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable
rs.find "id=" & session("UserID") & ""
rs("Brugernavn") = request.form("brugernavn")
rs.update
rs.close
set rs = Nothing
response.redirect request.servervariables("script_name")
    end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/db/brugersystem.mdb")
set rs = Conn.execute("select * from bruger WHERE id=" & session("UserID") & "")
if NOT rs.EOF then
brugernavn = rs("Brugernavn")
%>
<form action="<%=request.servervariables("script_name")%>?act=save" method="post">
<input type="text" name="brugernavn" value="<%=brugernavn%>">
<input type="submit" value="Opdater" name="submit">
</form>
<%
end if
rs.close
set rs=nothing
Conn.close
set Conn=nothing
end if
%>

\Dan

Dannielsen post et svar. Så får i begge to 15 point

OK - takker!

- fik du opdateringen til at virke også?

\Dan

Ja.. ik det til at virke

fik*

FINT! Og tak for point!

\Dan