Textfil -> Inloggningsrapport

Eftersom ni alltid brukar nappa på minsta lilla problem, och jag fortfarande inte har fått ett svar, gör jag det med en access databas!

Tack endå, ni som tittade igenom denna tråd!

Ok, då:

<%
session.LCID=1053
dim filesys, filetxt, sway
sway = "c:/din sökväg"
Const ForAppending = 8, ForWriting = 2, ForReading = 1
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.OpenTextFile(sway, ForReading, true)
	if datediff("m",cdate(left(filetxt.ReadLine,10)),date) > 0 then
		Set filetxt = filesys.OpenTextFile(sway, ForWriting, true)
		filetxt.WriteLine(date()&" ")& left(time(),5)& session("nick") &" "& Session.SessionID
	else
		Set filetxt = filesys.OpenTextFile(sway, ForAppending, true)
		filetxt.WriteLine(date()&" ")& left(time(),5)& session("nick") &" "& Session.SessionID
	end if
filetxt.Close
%>

Då får sätta in ett namn i sessionen "nick" bara så, tror jag att det skall funka.
Du måste skapa en textfil som heter det du vill i sökvägen.
Alltså om sökvägen är: E:/www/wwwsite/textfil.txt, så får du först skapa en rad i den ex.
2003-09-25 20:00 Kalle 84455455
och döpa filen till textfil.txt

Frågan är varför du ville ha det i en textfil istället för en databas?

Jesper T skrev:

Då får sätta in ett namn i sessionen "nick" bara så, tror jag att det skall funka.
Du måste skapa en textfil som heter det du vill i sökvägen.
Alltså om sökvägen är: E:/www/wwwsite/textfil.txt, så får du först skapa en rad i den ex.
2003-09-25 20:00 Kalle 84455455
och döpa filen till textfil.txt

Tack så mkt! :e

Vide skrev:

Frågan är varför du ville ha det i en textfil istället för en databas?

Login Log

Känns lite onödigt att ha en hel databastabell för inloggnings rapporter...