Unikt för Netscape?

1 svar · 158 visningar · startad av Skarre 18 nov. 2001

SkarreMedlem sedan apr. 20012 427 inlägg

Frågan18 nov. 2001 22:51#1

Jag tänkte använda mig av följande för att använda olika style sheets för IE resp. NS, men vet inte vad man kan söka efter som är unikt för Netscape. För IE söker jag som synes efter "msie". Jag tar även tacksamt emot kritik angående koden.

<% 
    strUserAgent = Request.ServerVariables("HTTP_USER_AGENT") 
    strUserAgent = lcase(strUserAgent) 
    Explorer = InStr(strUserAgent,"msie") 

    If Explorer > 0 Then			
			Response.Write "<link rel='stylesheet' href='ie_styles.css' type='text/css'>"
		Else  
			Response.Write "<link rel='stylesheet' href='other_styles.css' type='text/css'>"
		End if
%>

------------------
// Skarre

Erik JuhlinMedlem sedan maj 200010 687 inlägg

18 nov. 2001 23:09#2

Jag kollade nu vad som står i ens HTTP_USER_AGENT om man använder Netscape.
Inte så kul att analysera: Mozilla/4.75 [en] (Windows NT 5.0; U) :l

Sen kritik angående koden... Så här skulle jag skrivit:

<%
Dim strUserAgent
strUserAgent = LCase(Request.ServerVariables("HTTP_USER_AGENT"))

If InStr(strUserAgent,"msie") Then
Response.Write "<link rel=""stylesheet"" href=""ie_styles.css"" type=""text/css"">"
Else
Response.Write "<link rel=""stylesheet"" href=""other_styles.css"" type=""text/css"">"
End if
%>

InStr returnerar platsen den hittar "msie" och om det inte hittas så returneras 0. Och 0 är False och allt annat är True. :)

------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/