Avatar billede php_newbie Nybegynder
21. januar 2003 - 17:57 Der er 7 kommentarer

Logfil

Hejsa...

hvordan indsætter jeg i en logilf lad os kalde den log.dat


Jeg skal kunne bruge en funktion så jeg bare kan skrive'


logf(session("username")&"logged på")


Så skal den i funktion indsætte en linie hvor der står noget med:

05-01-02 - 17:55, Ip: 127.0.0.1 - Brugernavn logged på

Håber der er nogen som kan hjælpe...
Avatar billede no_doubt Nybegynder
21. januar 2003 - 18:01 #1
Hvorfor ikke bare skrive til en txt ?
Avatar billede no_doubt Nybegynder
21. januar 2003 - 18:03 #2
brug da:
http://www.html.dk/tutorials/asp/lektion16.asp

Derefter brug de kendte, Date(), Remoteaddress, og session("username")
Avatar billede eagleeye Praktikant
21. januar 2003 - 18:11 #3
Her er en function som skriver til enten af en fil log.dat som du har skrevet i sprøgsmålet:


<html>
<body>
<%

sub logf(navn,str)
set FSO = Server.CreateObject("scripting.FileSystemObject")
set myFile = fso.OpenTextFile("C:\inetpub\wwwroot\eksperten\log.dat", 8,true)

ipadr = Request.ServerVariables("REMOTE_ADDR")
myFile.WriteLine (date & " - " & time & ", IP: " & ipadr & " " & navn & " " & str)
myFile.Close
Set myFile = Nothing
Set FSO = Nothing
end sub

'Du bruger functionen sådan her så:
logf Session("username"), "logged på"

%>
</body>
</html>
Avatar billede eagleeye Praktikant
21. januar 2003 - 18:11 #4
enten = enden
Avatar billede Slettet bruger
21. januar 2003 - 18:44 #5
Måske kan du også bruge "Response.AppendToLog" til at skrive informationen til den normale log (Så får du dato, tid og ip automatisk)
Avatar billede php_newbie Nybegynder
23. januar 2003 - 17:08 #6
Hvorfor virker det her ikke ?

  sub logfil(text)
    strTekst=text
    set FSO = Server.CreateObject("scripting.FileSystemObject")
    set myFile = fso.OpenTextFile("C:\Inetpub\wwwroot\main\log.dat", 8,true)
    myFile.WriteLine (date & " - " & time & ", IP: " & Request.ServerVariables("REMOTE_ADDR") & " " & strTekst)
    myFile.Close
    Set myFile = Nothing
    Set FSO = Nothing
  end sub

logfil("Test")

Den henter slet ikke siden låser sig bare fast...
Avatar billede php_newbie Nybegynder
23. januar 2003 - 17:26 #7
Har fået det til at du sådan her:

  sub logfil(text)
    Dim fso, f, filespec
    Set fso = CreateObject("Scripting.FileSystemObject")
    filespec = Server.Mappath("/log.txt")
    Set f = fso.OpenTextFile(filespec,8,true)
    f.WriteLine ""&Date&" -kl: "&time&", Ip:"&Request.ServerVariables("REMOTE_ADDR")&" - "&text
    f.Close
  end sub

  logfil("Logged in i admin")


En lille blanding af de to script... Mit problem er at den indsætterlinien under alle de andre i stedet for oven over... Hvordan ændre man det ?
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