13. juni 2002 - 16:37Der er
7 kommentarer og 1 løsning
Forklaring...
Jeg har dette script:
<% ' skal tomme referrers også gemmes i logfil ? logTomme = true
' find logfilens navn ud fra dags dato 'filename = right("0" & year(now), 2) & right("0" & month(now), 2) & right("0" & day(now), 2) & ".log"
'En samlet logfil istedet for en pr dag filename = "tracker.log"
' opret system objektet til filhåndtering Set fs = CreateObject("Scripting.FileSystemObject")
' opret en reference til vores logfil - enten eksisterende ellers oprettes en ny Set a = fs.OpenTextFile(server.mappath(filename), 8, True, False)
' hvis der er nogen referrer, så gemmes denne if request.servervariables("HTTP_REFERER") <> "" then a.writeline(time & " : [" & request.servervariables("REMOTE_ADDR") & "] - " & request.servervariables("HTTP_REFERER") & " - " & &request.servervariables("HTTP_USER_AGENT")) else if logTomme then a.writeline(time & " : [" & request.servervariables("REMOTE_ADDR") & "] - " & request.servervariables("HTTP_REFERER") & " - " & request.servervariables("HTTP_USER_AGENT")) end if end if
a.close %>
Hvordan laver jeg sådan, at det logger flere ting, og kan nogen sætte det op på en sådan måde, at det står som noge lign. det her:
Med version 7 af TeamShare tager Lector næste skridt og bygger en platform for AI-agenter, der i højere grad kan følge medarbejderen gennem hele arbejdsprocessen.
Handler det bare om at få de enkelte elementer du logger i en linie for sig selv ?
I så fald kan du anvende write i stedet for writeline og så skrive en vbCrLf efter sidste felt. En anden måde at gøre det overskueligt på, kunne være at udskrive vbTab mellem hver enkelt felt.
jeg ville lave denne if: ' hvis der er nogen referrer, så gemmes denne if request.servervariables("HTTP_REFERER") <> "" then a.writeline(time & " : [" & request.servervariables("REMOTE_ADDR") & "] - " & request.servervariables("HTTP_REFERER") & " - " & &request.servervariables("HTTP_USER_AGENT")) else if logTomme then a.writeline(time & " : [" & request.servervariables("REMOTE_ADDR") & "] - " & request.servervariables("HTTP_REFERER") & " - " & request.servervariables("HTTP_USER_AGENT")) end if end if
Om til så man ikke har det samme kode to gange:
' hvis der er nogen referrer, så gemmes denne if (request.servervariables("HTTP_REFERER") <> "") OR (logTomme = true) then a.writeline(time & " : [" & request.servervariables("REMOTE_ADDR") & "] - " & request.servervariables("HTTP_REFERER") & " - " & &request.servervariables("HTTP_USER_AGENT")) end if
Lav disse linier: ' hvis der er nogen referrer, så gemmes denne if request.servervariables("HTTP_REFERER") <> "" then a.writeline(time & " : [" & request.servervariables("REMOTE_ADDR") & "] - " & request.servervariables("HTTP_REFERER") & " - " & &request.servervariables("HTTP_USER_AGENT")) else if logTomme then a.writeline(time & " : [" & request.servervariables("REMOTE_ADDR") & "] - " & request.servervariables("HTTP_REFERER") & " - " & request.servervariables("HTTP_USER_AGENT")) end if end if
OM TIL :
' hvis der er nogen referrer, så gemmes denne if (request.servervariables("HTTP_REFERER") <> "") OR (logTomme = true) then a.write(time & " : ") a.write([" & request.servervariables("REMOTE_ADDR") & "]" - ") a.write(request.servervariables("HTTP_REFERER") & " - ") a.write(request.servervariables("HTTP_USER_AGENT") & " - ") a.write(Request.ServerVariables("SCRIPT_NAME")) a.write(vbCrLf) end if
hmm det er gået lidt galt i denne linie: a.write([" & request.servervariables("REMOTE_ADDR") & "]" - ") Skal være: a.write("[" & request.servervariables("REMOTE_ADDR") & "] - ")
Jeps Det skulle det gerne.. men jeg er ikke så sikker på der findes en servervirable som hedder SCRIPT_MAP....
Du kan evt prøve at tilføje: HTTP_ACCEPT_LANGUAGE a.write(request.servervariables("HTTP_ACCEPT_LANGUAGE") & " - ")
Synes godt om
Ny brugerNybegynder
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.