Notifikationer

Markér alle som læst Log ud

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

Synes godt om

no_doubt Nybegynder

21. januar 2003 - 18:01 #1

Hvorfor ikke bare skrive til en txt ?

Synes godt om

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")

Synes godt om

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>

Synes godt om

eagleeye Praktikant

21. januar 2003 - 18:11 #4

enten = enden

Synes godt om

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)

Synes godt om

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

Synes godt om

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 ?

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS