Brugernavn LOG

I toppen skriver du
<%
Response.Buffer = True
mode = Request.QueryString(\"mode\")
Set conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"DATABASE.mdb\")%>

<%
if request(\"mode\") = \"\" then
Set rs = Server.CreateObject(\"ADODB.Recordset\")
strSQL = \"select * from iplog where iper\"
rs.Open strsql, conn, 1, 3
if rs.eof or rs.BOF then
rs.AddNew
rs(\"ip\") = \" & request.servervariables(\"REMOTE_ADDR\") & \"
rs.update
end if
rs.Close
set rs = nothing
end if
%>

I toppen skriver du
<%
Response.Buffer = True
mode = Request.QueryString(\"mode\")
Set conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"DATABASE.mdb\")
%>

<%
if request(\"mode\") = \"\" then
Set rs = Server.CreateObject(\"ADODB.Recordset\")
strSQL = \"select * from iplog where iper\"
rs.Open strsql, conn, 1, 3
if rs.eof or rs.BOF then
rs.AddNew
rs(\"ip\") = \" & request.servervariables(\"REMOTE_ADDR\") & \"
rs.update
end if
rs.Close
set rs = nothing
end if
%>

brug den her ^^^^^^
den anden er der vist fejl!

Hvis du vil være sikker på at logge når en bruger kommer ind på din side kan du tilføge det som  opdater din database i Global.asa, tilføj til procuduren: Sub Session_OnStart
Session_OnStart bliver kaldt hver gang en går ind på en side på dit web.

Du kan ligge det ind i procedure i stil med det her:

IP_Adr = Request.ServerVariables(\"REMOTE_ADDR\")

strSQL = \"INSERT INTO iper (IP) \"
strSQL = strSQL & \"VALUES (\'\" & IP_Adr & \"&#8217;);\"

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


Jeg ved ikke hvordan du får fat i Compurter navnet i asp men jeg skriver hvis jeg finder noget.

eagleeye  Request.ServerVariables(\"REMOTE_IDENT\")

jiggypoof: Tak

Så bliver det til:

User_name = Request.ServerVariables(\"REMOTE_IDENT\")
if User_name = \"\" then User_name = \" \"
strSQL = \"INSERT INTO iper (IP, brugernavne) \"
strSQL = strSQL & \"VALUES (\'\" & Request.ServerVariables(\"REMOTE_ADDR\") & \"\', \'\" & User_name & \"\');\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
myConn.Execute (strSQL)
myConn.Close

Hvordan logge man brugens IP?

simonth du kan jo gøre således som beskrevert

eller du kan
request.servervariables(\"REMOTE_ADDR\")
finde folks remote_addr og så smide det i en database bagefter

Jeg har fattet minus hvad folk har sagt... så jeg ændre spm\'et til:

<html>
<head><title>test.asp</title</head>
<body>

<form method=\"POST\" action=\"test.asp\">
<small>face=\"Verdana\"><small><input type=\"text\" name=\"fulde_navn\" size=\"30\"></small></font>
<br>
<br>
<INPUT type=\"submit\" value=\"&nbsp;Join&nbsp;\" id=submit1 name=submit1 style=\"FONT-SIZE: xx-small; FONT-FAMILY: verdana; BACKGROUND-COLOR: silver\">
<input type=\"hidden\" value=AddNew name=mode id=mode></form><br>

<%
if request(\"mode\") = \"AddNew\" then
%>
<%
    Set DataConn = Server.CreateObject(\"ADODB.Connection\")
    DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; \"
    DSN = dsn & \"DBQ=\" & server.mappath(\"db/db.mdb\")

    DataConn.Open DSN

    Set Record = Server.CreateObject(\"ADODB.RecordSet\")
    Record.open \"Select * From [iper] Order by id\", DataConn, 1, 3


    Record.AddNew
        Record.Fields(\"fulde_navn\") = Request(\"fulde_navn\")
                Record.Fields(\"computernavn\") = (\"????????\")
        Record.Fields(\"ip\") = Request.ServerVariables(\"REMOTE_ADDR\")
    Record.Update

    Record.Close
    set Record = nothing
    Dataconn.Close

    Response.Redirect(\"test.asp\")
%>

<%
end if
%>   

</body>
</html>


Der hvor jeg har skrevet ?????? hvad skal man skrive så den logger computers navn ned i databasen?

Synes ikke rigtig det virker med (\"REMOTE_IDENT\")...

Jeg mener selvfølgelig det ikke virker med Request.ServerVariables(\"REMOTE_IDENT\")....

ALLO nogen der kan hjælpe mig??? der er da 150 point! :)

Start lige forfra og forklar hvordan man logger brugernens IP når han/hende ser på siden! Altså hvad gør man først ?

ahh snyder

Prøv at ændre Record.Fields(\"computernavn\") = (\"????????\")

Til:
Record.Fields(\"computernavn\") = Request.ServerVariables(\"REMOTE_HOST\")

Til jiggypoof:

Hvem er snyder ??

Det er ikke rigtig nogen der har kunne løse spm\'et, så jeg lukker det, hvis det er nogen der finder ud af så skriv til mig, så får du pointne :)