Logfil

Hvorfor ikke bare skrive til en txt ?

brug da:
http://www.html.dk/tutorials/asp/lektion16.asp

Derefter brug de kendte, Date(), Remoteaddress, og session("username")

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>

enten = enden

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)

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...

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 ?