Log browser-type

det får du da også af vide: MSIE 6.0 ? eller har jeg misforstået noget ?

Tjo, men jeg havde nok forventet noget andet af hensyn til, hvis jeg senere ifb. med noget statistik skulle bruge det til at lave noget "GROUP BY" med og også være i stand til at præsentere en "pænere tekst".

Nej det gør der ikke du bliver nød til at lave en if sætning som checker om der er MSIE i og så skrive Internet Explorer 6.0 eller hvad du nu vil.

det skulle der jo heller ikke være de store problemer i at splitte den op, da strengen er seppereret med ";" så kan du jo nemt hive det ud....

Ja det er nemt, hvis man ved hvad man skal lede efter (hér 'MSIE 6.0'), men det kunne jo ligeså godt være Opera, Netscape eller andre browsere - og i diverse versioner.

Du kan prøve noget lignende:

        strUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
        Select Case true
            Case InStr(strUserAgent,"Opera/4.0") > 0, Instr(strUserAgent,"Opera 4.0") > 0
                strBrowserVer = "Opera 4.0"
            Case InStr(strUserAgent,"Opera/5.0") > 0, Instr(strUserAgent,"Opera 5.0") > 0
                strBrowserVer = "Opera 5.0"
            Case InStr(strUserAgent,"Opera/6.0") > 0, Instr(strUserAgent,"Opera 6.0") > 0
                strBrowserVer = "Opera 6.0"
            Case InStr(strUserAgent,"Opera/7.0") > 0, Instr(strUserAgent,"Opera 7.0") > 0
                strBrowserVer = "Opera 7.0"
            Case InStr(strUserAgent,"MSIE 4.0") > 0
                strBrowserVer = "Internet Explorer 4.0"
            Case InStr(strUserAgent,"MSIE 4.5") > 0
                strBrowserVer = "Internet Explorer 4.5"
            Case InStr(strUserAgent,"MSIE 5.0") > 0
                strBrowserVer = "Internet Explorer 5.0"
            Case InStr(strUserAgent,"MSIE 5.5") > 0
                strBrowserVer = "Internet Explorer 5.5"
            Case InStr(strUserAgent,"MSIE 6.0") > 0
                strBrowserVer = "Internet Explorer 6.0"
            Case InStr(strUserAgent,"Mozilla/4.0") > 0
                strBrowserVer = "Netscape 4.0"
            Case InStr(strUserAgent,"Mozilla/4.5") > 0
                strBrowserVer = "Netscape 4.5"
            Case InStr(strUserAgent,"Mozilla/4.6") > 0
                strBrowserVer = "Netscape 4.6"
            Case InStr(strUserAgent,"Mozilla/4.7") > 0
                strBrowserVer = "Netscape 4.7"
            Case InStr(strUserAgent,"Mozilla/5.0") > 0
                strBrowserVer = "Netscape 6.0"
            Case Else
                strBrowserVer = "Ukendt browser"
        End Select

Du skal være opmærksom på, at selv om scriptet kommer frem til at browseren f.eks. er en Netscape 6.0, kan det også være en Mozilla m.fl.

Du kan evt- tage et kig på det indbyggede Browser Capabilities component. Bare kør følgende stykke kode:

<%
Set objBrowser = Server.CreateObject("MSWC.BrowserType")
%>
<table border="1">
<tr>
    <td>Browser</td>
    <td><%=objBrowser.browser%></td>
</tr>
<tr>
    <td>Version</td>
    <td><%=objBrowser.version%></td>
</tr>
<tr>
    <td>Understøtter frames</td>
    <td>
    <%
    If (objBrowser.frames = true) then
        Response.Write "true"
    Else
        Response.Write "false"
    End If
    %>
    </td>
</tr>
<tr>
    <td>Understøtter tabeller</td>
    <td>
    <%
    If (objBrowser.tables = true) then
        Response.Write "true"
    Else
        Response.Write "false"
    End If
    %>
    </td>
</tr>
<tr>
    <td>Understøtter backgroundsounds</td>
    <td>
    <%
    If (objBrowser.backgroundsounds = true) then
        Response.Write "true"
    Else
        Response.Write "false"
    End If
    %>
    </td>
</tr>
<tr>
    <td>Understøtter VBScript</td>
    <td>
    <%
    If (objBrowser.vbscript = true) then
        Response.Write "true"
    Else
        Response.Write "false"
    End If
    %>
    </td>
</tr>
<tr>
    <td>Understøtter JScript</td>
    <td>
    <%
    If (objBrowser.javascript = true) then
        Response.Write "true"
    Else
        Response.Write "false"
    End If
    %>
    </td>
</tr>
</table>

Nope - det viser Netscape 4.0, selvom jeg kører MSIE60.

Lukker spg.