Logbog over nye poster

Jeg har selv lavet noget lignende. Jeg har på en IIS 5.0 lavet noget asp, som går ned og scan\'er log filerne efter requests på min default.asp side.

Det skal lige siges at IIS faktisk kan logge direkte til en odbc data source, jeg kunne bare ikke få det til at virke.

Hvis du bruger IIS kan jeg hjælpe dig...

Følgende returnerer antallet af requests på parameteren uniqueURL siden dt:

function getConnSinceDate(uniqueURL,dt)
    dim count,i
   
    count = 0

    for i = 0 to DateDiff(\"d\",dt,now)
        count = count + getConnOnDate(uniqueURL,now-i)
    next
   
    getConnSinceDate = count
end function

function getConnOnDate(uniqueURL,dt)
    dim logFile,logStr,csvData,count
   
    count = 0
    logFile = \"c:\\WINNT\\system32\\LogFiles\\W3SVC1\\\" & getLogFileName(dt-1/24)\' minus one hour to get time in local time

\'    Response.Write logFile & \"<br>\"

    dim objFile,objFSO,i
    set objFSO = CreateObject(\"Scripting.FileSystemObject\")
   
    if objFSO.FileExists(logFile) then

        set objFile = objFSO.OpenTextFile(logFile,1,false,0)
   
          do while objFile.AtEndOfStream <> true
            logStr = objFile.ReadLine
           
            if Mid(logStr,1,1) <> \"#\" And Len(logStr) <> 0 then
                csvData = Split(logStr)
                for each i In csvData
                    if UCase(i) = UCase(uniqueURL) then
                        count = count+1
                    end if
                next
            end if
        loop

        objFile.Close
       
    end if

    getConnOnDate = count
end function   

function getLogFileName(dt)
dim y,m,d

    if Day(dt) < 10 then
        d = \"0\" & Day(dt)
    else
        d = Day(dt)
    end if
   
    if Month(dt) < 10 then
        m = \"0\" & Month(dt)
    else
        m = Month(dt)
    end if

    y = Mid(CStr(Year(dt)),3,2)

    getLogFileName = \"ex\" & y & m & d & \".log\"
end function

sføli er det rimlig omsonst hvis du kan få din webserver til at logge direkte i en tabel istedet for W3SVC1-log filerne

Arrrghhh ... Jeg anede ikke at det var så beværligt ... Hmmm ... Hvis du ikke har noget i mod det, så vil jeg lade dette spørgsmål stå i noget længere tid, indtil det VIRKELIG bliver nødvendigt...

Hvis det virker til den tid, får du se\'føl\'i \'alle\' pointene..

Tak

/Kotelet

Jeg kan slet ikke overskue det nu. Jeg siger tak og satser på at det er et rigtigt svar :-) .. Så giv et svar, så får du dine point.

/Kotelet

Jeg lukker her. Hvis du føler at du bør krav på dine point, så kontakt mig for at oprette et ny spm til dig med dem.