Statistik

Brug denne her: http://extremetracking.com/

dødt link...

Men er det gratis???

Jeg ville helst have et system i koder... hvis det kunne lade sig gøre ;)

Her er et link der virker:

http://www.extreme-dm.com/tracking/?reg

Hvad koster det?? og hvordan er det??

Der findes en gratis version og en betalings version. Gratis version er simpel og kan de ting som du beskriver i dit spørgsmål. Du kan prøve at oprette dig på gratis versionen og se mere hvad den kan.

okai! Men jeg ville stadig gerne have nogle koder hvis det kan lade sig gøre... hvis der er andre!

Her er noget som du kan brug: http://www.aspalliance.com/stevesmith/samples/sitestats.asp

Sådan et system kan laves i ASP.

Dette scriptet henter følgende data kan du bruke dette?
- Skjermoppløsning
- System - PC eller MAC¨
- Hvor du kom ifra
- Browsertype
- Språk
- IP

<%
If session("Read-Resolution") = False Then
%>
    <script language="JavaScript">
    location.href = "wp.asp?B=" + screen.width + "&H=" + screen.height
   
    if (navigator.appVersion.indexOf("Mac") != -1) {
        location.href = "wp.asp?B=" + screen.width + "&H=" + screen.height + "&S=MAC"
    } else {
        location.href = "wp.asp?B=" + screen.width + "&H=" + screen.height  + "&S=PC"
    }
    </script>
<%
    session("Read-Resolution") = True
    Session.Timeout = 25

ELSE

    If session("Visit") = False Then

        Session.LCID = 1030

        'Henter browser typen.
        Dim strUA
        strUA = Request.ServerVariables("HTTP_USER_AGENT")
        'Henter IP`en
        Dim strIP
        strIP = Request.ServerVariables("REMOTE_ADDR")
        'Henter opprativ språket.
        Dim strLanguage
        strLanguage = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
        'Henter skjermbredden.
        Dim strWindowWidht
        strWindowWidht = Request.QueryString("B")
        'Henter skjermhøyden.
        Dim strWindowHeight
        strWindowHeight = Request.QueryString("H")
        Dim strSystem
        strSystem = Request.QueryString("S")
       
        'Henter hvilken side man kom fra.
        Dim strRefer
       
        If session("strRefer") = "" Then
            strRefer = Request.ServerVariables("HTTP_REFERER")
        Else
            strRefer = session("strRefer")
        End if
       
        'Hvilken dato det er.
        Dim strDate
        strDate = date()
        'Hva klokka er.
        Dim strTime
        strTime = time()
        '---------------------
        'Sjekker browser typen
        '---------------------
        If (InStr(strUA, "MSIE")) AND (InStr(strUA, "Opera") = 0) Then
            intVersion = Trim(Mid(strUA, InStr(strUA, "MSIE") + 5, 4))
            If (Mid(intVersion, 4, 1) = ";") Then
                intVersion = Trim(Mid(intVersion, 1, 3)) + "0"
            End If
            strBrowserType = "Explorer"
            strBrowserVersion = intVersion
           
        Else 
            If InStr(strUA, "Mozilla") Then

                If InStr(strUA, "compatible;") = 0 _
                And InStr(strUA, "Opera") = 0 Then
                    intVersion = Trim(Mid(strUA, InStr(strUA, "/") + 1, 4))
                    If(intVersion = "5.0") Then
                        intVersion = Trim(Mid(strUA, InStr(strUA, "6/") + 2, 4))
                    End If
                    strBrowserType = "Netscape"
                    strBrowserVersion = intVersion
                   
                    If strBrowserVersion = "ozil" Then
                        Session("BrowserVersion") = "NEW"
                        strBrowserVersion = 7.0
                    Else
                        If Clng(strBrowserVersion) => 4.7 Then
                            Session("BrowserVersion") = "OLD"
                            Session.Timeout = 25
                        Elseif Clng(strBrowserVersion) < 4.7 Then
                            Session("BrowserVersion") = "NEW"
                            Session.Timeout = 25               
                        End if
                    End if
                   
                Else

                    If InStr(strUA, "Opera") Then
                        intVersion = Trim(Mid(strUA, InStr(strUA, "Opera") + 5, 5))
                        strBrowserType = "Opera"
                        strBrowserVersion = intVersion
                    Else
                        strBrowserType = "Ukjent"
                        strBrowserVersion = 0
                    End If

                End If

            End If

        End If
        '--------------------
        'browser sjekk slutt.
        '--------------------

        If strRefer = "" Then
            strRefer = "Ukjent"
        End if
       
        If Len(strRefer) < 500 Then
            strRefer = "Ukjent"
        End if       

        If strBrowserType = "" Then
            strBrowserType = "Ukjent"
        End if

        If Clng(strBrowserVersion) = "" Then
            strBrowserVersion = 0
        End if

        If strLanguage = "" Then
            strLanguage = "Ukjent"
        End if
       
        If strWindowHeight = "" Then
            strWindowHeight = 0
        End if   
       
        If strWindowWidht = "" Then
            strWindowWidht = 0
        End if
       
        If IsNumeric(strWindowWidht) = False Then
            strWindowWidht = 0
        End if       
       
        If Len(strWindowWidht) > 6 Then
            strWindowWidht = 0
        End if
       
        If IsNumeric(strWindowHeight) = False Then
            strWindowHeight = 0
        End if
       
        If Len(strWindowHeight) > 6 Then
            strWindowHeight = 0
        End if
       
        If strSystem = "" Then
            strSystem = "Ukjent"
        End if

        Set oRS=Server.CreateObject("ADODB.Recordset")
        oRS.CursorLocation = 2 ' adUseServer
        'oRS.CursorType = 0 ' adOpenForwardOnly
        oRS.CursorType = 2 ' adOpenDynamic
        oRS.LockType = 3 ' adLockOptimistic
        SQL = "SELECT * FROM tblStatistikk"
        oRS.Open SQL, strConn, , , &H0001 ' adCmdText   
       
        oRS.AddNew
        oRS("IP") = strIP
        oRS("BrowserType") = strBrowserType
        oRS("BrowserVersion") = Trim(replace(strBrowserVersion ,".",","))
        oRS("Language") = strLanguage
        oRS("System") = strSystem   
        oRS("WindowWidth") = strWindowWidht
        oRS("WindowHeight") = strWindowHeight           
        ors("Refer") = strRefer
        oRS("SDato") = strDate
        oRS("STime") = strTime
        oRS.Update
               
        session("Visit") = True
        Session.Timeout = 25
    End if
End if
%>

Kan du ikke sender mig koderne i filer???

http://www.thecounter.com

Jeg må gå nå men hva er mail adressen din?

Skal du ha access database eller SQL?

Sorry se bortifra www.thecounter.com den er ikke gratis lenger. - glem det :-)

Patrick@nielsenmand.dk og helst over en access database ;)

Metatraffic fra Metasun er godt og gratis samt kodet i ASP

http://www.metasun.com

Men gad du sende det til min mail ????

nå ik?