Opløsning

<SCRIPT LANGUAGE="JavaScript">
<!--
document.write('Screen resolution: '+screen.width+'x'+screen.height+'<BR>');
document.write('Screen size (resolution - task bar etc.): '+screen.availWidth+'x'+screen.availHeight+'<BR>');

if (document.all) {
  bw = document.body.clientWidth;
  bh = document.body.clientHeight;               
} else {
  bw = window.innerWidth;
  bh = window.innerHeight;   
}

document.write('Browser size: '+bw+'x'+bh+'<BR>');
document.write('Screen colors: '+screen.colorDepth+'<BR>');

if (bw < 700 && bh<400)
  window.location.replace('http://intranet/');

//document.write('<IMAGE SRC="logger.asp?bredde'+bw'"');
//-->
</SCRIPT>

<%
' Af Jan Vinten (jan@vinten.net) d. 11.07.2001
' Testet på følgende browsere:
'                                Internet Explorer 4.0, 5.01 & 5.5
'                                Netscape 2.02, 3.01, 4.78, 6.01 & 6.02
'                                Opera 5.12
'
' Sprøgsmål? Brug http://www.activeserverpages.dk's forum! :o)


strUA = Request.ServerVariables("HTTP_USER_AGENT")

' Hvad skal regnes for, at være en gammel browser?
reqIE        = "5.0"    ' Skal være X.XX    Det er incl. og mindre end!
reqNet        = "6.02"    ' Skal være X.XX
reqOpera    = "4.00"    ' Skal være X.XX

    If (InStr(strUA, "MSIE")) AND (InStr(strUA, "Opera") = 0) Then  ' Jeg fandt en Internet Explorer
        intVersion = Trim(Mid(strUA, InStr(strUA, "MSIE") + 5, 4))
        If (Mid(intVersion, 4, 1) = ";") Then
            intVersion = Trim(Mid(intVersion, 1, 3)) + "0"
        End If
        Response.Write("Jeg fandt Internet Explorer version " & intVersion)
        If (intVersion <= reqIE) Then
            Response.Write(" som regnes for, at være en gammel version")
        Else
            Response.Redirect ("default.asp")
        End If
    Else 
        If InStr(strUA, "Mozilla") Then  ' Jeg fandt en Mozilla

            If InStr(strUA, "compatible;") = 0 _
            And InStr(strUA, "Opera") = 0 Then  ' Satser på det er en Netscape
                intVersion = Trim(Mid(strUA, InStr(strUA, "/") + 1, 4))
                ' Hvis der står Netscape 5.0 - så er det en version 6! Netscape er underlig!
                If(intVersion = "5.0") Then
                    intVersion = Trim(Mid(strUA, InStr(strUA, "6/") + 2, 4))
                End If

                Response.Write("<br><br>Jeg fandt Netscape version " & intVersion)
                If (intVersion <= reqNet) Then
                    Response.Write(" som regnes for, at være en gammel version")   
                Else
                    Response.Redirect ("defaulta.asp")
              End If

            Else  ' Ok, det var altså ikke en Netscape

                If InStr(strUA, "Opera") Then
                ' Mon ikke det er en Opera browser? :o)
                    intVersion = Trim(Mid(strUA, InStr(strUA, "Opera") + 5, 5))
                    Response.Write("Jeg fandt Opera browser version " & intVersion)
                    If (intVersion <= reqOpera) Then
                        Response.Write(" som regnes for, at være en gammel version")       
                    Else
                        Response.Redirect ("defaulta.asp")
                       
                    End If
                Else
                    ' Underlig browser - jeg aner ikke hvilken en det er?! :o(
                    Response.Write("Hm! Underligt... jeg kan ikke finde ud af hvilken browser det er!")
                End If

            End If

        End If

    End If
   
%>

JEMS
Dit script finder ud af hvilken browser type der er tale om, ikke hvilken opløsning.

Tak,
Men jeg skal bruge det som asp(vbscript) variabel og helst uden at redirecte

VesTer

Den sidste her var til sone

du kan ikke gøre det i ASP uden et kommercielt komponent, se www.aspin.com

-peter

ok, tak
VesTer