Show user....

Sure thing... Lad mig se din kode for den side hvor du vil ha' det skrevet!

//>Rune

Du kan hendte brugernavnet ud fra ID på brugerenn..

SQL = "SELECT * FROM tabel WHERE id = " & Session("brugerID")
Set rs = connection.execute(SQL)

Response.write rs("username")

Du kan også bare nu man logget ind gemme det i Session som du sikkert gemmer bruger ID på dem som er logget ind hvis det er noget skal tit skal skreives altså hver gang en side vises, for at nedsætte tlgangen til databasen.,..:


På logins side..:
Session("brugernavn") = rs("username")


og når du vil skrive brugernavnet:

Response.write Session("brugernavn")

Alså det skal være sådan...

Jeg logger in med : izemate

på siden jeg kommer til kan jeg se i det ene hjørne izemate.

\\izemate

kna man ikke få den til at vise det? uden at skulle "vise" id nummeret?

alså jeg skal skrive Session("brugernavn") = rs("username") på login siden

og Response.write Session("brugernavn") på siden man bliver henvist til?

her er lidt kode fra login siden og som du kan se bliver den sendt vidre til ../webcam.asp, så vil jeg have sådan at på webcam.asp kan man se usernamet man har skrevet fx :" du er logget in som "username""
------------------------------------------------------


<%

'Response.Buffer = True
'strRedirect = Request.ServerVariables("HTTP_REFERER")
'Response.Redirect strRedirect

SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("users.mdb")

If Request("mode") = "Check" then

    ' Authes user, password, and fixed a known securitybug to many login systems.
        strUsername = Trim(Replace(request("username"),"'","''" ))
        strPassword = Trim(Replace(request("password"),"'","''" ))

  Sql = "Select Count(*) as Found from users where (username = '" & strUsername  & "') and (password ='" & strPassword  & "')"
  Set LO = RS.Execute(Sql)
  if LO("Found") = 0 then
    Session("login") = ""
    error = "Invalid username or password "
  else
  strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("users.mdb")
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open strDSN
  strSQL = "SELECT * FROM users where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
  Set ez = myConn.Execute(strSQL)
    Session("login") = "Authed"
    Response.Redirect "../webcam.asp"
    EZ.Close
    RS.Close
    Conn.Close
  End if
End if
%>

Ja det skulle kunne virke, du skal så lige rette til at passe med til kolonnenavn og recordset der hvor du logger ind.

Efter linien:

Session("login") = "Authed"

Kan du tilføje:

Session("brugernavn") = rs("username")

Og der hvor du vil skrive brugernavet skriver du så:
Response.write Session("brugernavn")

jeg er ikke særlig god til asp :) du gider vel ikke at skrive hvad der skal stå i login siden og "vis siden :) for det er et login system fra nettet :P

\\izemate

<%

'Response.Buffer = True
'strRedirect = Request.ServerVariables("HTTP_REFERER")
'Response.Redirect strRedirect

SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("users.mdb")

If Request("mode") = "Check" then

    ' Authes user, password, and fixed a known securitybug to many login systems.
        strUsername = Trim(Replace(request("username"),"'","''" ))
        strPassword = Trim(Replace(request("password"),"'","''" ))

  Sql = "Select Count(*) as Found from users where (username = '" & strUsername  & "') and (password ='" & strPassword  & "')"
  Set LO = RS.Execute(Sql)
  if LO("Found") = 0 then
    Session("login") = ""
    error = "Invalid username or password "
  else
  strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("users.mdb")
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open strDSN
  strSQL = "SELECT * FROM users where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
  Set ez = myConn.Execute(strSQL)
    Session("Brugernavn") = ez("Username")
    Session("login") = "Authed"
    Response.Redirect "../webcam.asp"
    EZ.Close
    RS.Close
    Conn.Close
  End if
End if
%>

Og så der hvor du vil ha' udskrevet brugernavnet skriver du:

<%= Session("Brugernavn") %>

//>Rune

se min kommentar:
20/12-2002 15:04:38

bare i noget simpelt html så skal jeg nok fikse hvor det skal være henne :) så ville jeg blive glad

\\izemate

arh dit recordset hedder ez og ikke rs

Session("brugernavn") = ez("username")

øhhh

hvis du vil udskrive i en tabel kan det være:


<table>
<tr><td><%=Session("brugernavn")%></td></tr>
</table>

Eller:


<table>
<tr><td>
<%
Response.write Session("brugernavn")
%>
</td></tr>
</table>

men på webcam siden skal jeg så hen og gentage koden engang til??

\\izemate

izemate> Nej, for det ligger i en Servervariabel...
Det eneste du skal skrive er

<%= Session("Brugernavn") %>

Det kan du skrive hvor som helst, efter du har logget ind!

//>Rune

Ja du skal skrive det på siderne hvor du vil havde brugernavet vist.

ok nu virker det takker mange gange....

\\izemate

Ánytime...
Thx 4 Poinz

//>Rune