Avatar billede klinemann Nybegynder
17. oktober 2003 - 01:39 Der er 12 kommentarer og
1 løsning

Logning i Access Database

Hey, til jer der er længe oppe...
jeg har tit gået og tænkt over hvordan jeg kan få det her script til at logge i en database i stedet for en .txt fil.

I databasen skal den logge; Dato - kl - REMOTE_ADDR - HTTP_REFERER - HTTP_USER_AGENT!

<%   
    logTomme = true
    filename = "iplogger.txt"       
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.OpenTextFile(server.mappath(filename), 8, True, False)

    if request.servervariables("HTTP_REFERER") <> "" then
        a.writeline(Now & " : [" & request.servervariables("REMOTE_ADDR") & "] - " & request.servervariables("HTTP_REFERER") & " - " & request.servervariables("HTTP_USER_AGENT"))
    else
        if logTomme then
            a.writeline(Now & " : [" & request.servervariables("REMOTE_ADDR") & "] - " & request.servervariables("HTTP_REFERER") & " - " & request.servervariables("HTTP_USER_AGENT"))
        end if
    end if

    a.close

%>
Avatar billede thesurfer Nybegynder
17. oktober 2003 - 01:44 #1
Alt hvad du har brug for står i lektionerne 17-22:
http://html.dk/tutorials/asp/
Avatar billede thesurfer Nybegynder
17. oktober 2003 - 01:45 #2
faktisk er det kun lektionerne 17+18+20, men læs de andre også.. du får meget ud af det.
Avatar billede netro Nybegynder
17. oktober 2003 - 01:46 #3
Jeg kan godt give dig et lille eksempel for alle de points.
Avatar billede thesurfer Nybegynder
17. oktober 2003 - 01:48 #4
jeg ville nøjes med 15 (?) points for de særdeles gode links :)
Avatar billede klinemann Nybegynder
17. oktober 2003 - 01:48 #5
grunden til at der er så mange point er fordi det skal laves for mig!
Avatar billede thesurfer Nybegynder
17. oktober 2003 - 01:50 #6
"Give a man a fish and you feed him for a day, Teach him how to fish and you feed him for a lifetime"
Avatar billede netro Nybegynder
17. oktober 2003 - 01:51 #7
;o)
Avatar billede netro Nybegynder
17. oktober 2003 - 01:52 #8
Tabelstruktur:
==================

Dato    IP    HR      HUA

<%
IP = Request.ServerVariables("REMOTE_ADDR")
HR = Request.ServerVariables("HTTP_REFERER")
HUA =Request.ServerVariables("HTTP_USER_AGENT")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Driver={MicroSoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb"))

Conn.Execute("Insert Into Tabelnavn(IP, HR, HUA) Values('" & IP & "', '" & HR & "', '" & HUA & "')")

Conn.Close
Set Conn = Nothing
%>

Jeg har lavet det med udgangspunkt i Access - lyder ikke til, du gider kaste dig ud i mere end det. Dato i tabellen sættes som default til dags dato.
Avatar billede klinemann Nybegynder
17. oktober 2003 - 01:52 #9
vil du lave det for mig eller vil du ik?
Avatar billede klinemann Nybegynder
17. oktober 2003 - 01:53 #10
netro kom med det jeg ville have... send lige et svar...
Avatar billede netro Nybegynder
17. oktober 2003 - 01:54 #11
Skal du ikke lige afprøve det?
Avatar billede klinemann Nybegynder
17. oktober 2003 - 01:55 #12
naah... går ud fra du kan kan det :-D
Avatar billede netro Nybegynder
17. oktober 2003 - 01:56 #13
Ok - ellers må du jo vende tilbage. Tak for points.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester