http_user_agent - Opera tror han är IE

5 svar · 327 visningar · startad av kolas 3 aug. 2005

kolasMedlem sedan mars 2001142 inlägg

Frågan3 aug. 2005 22:33#1

Med denna kod så tror Opera att han är IE, hur kommer man runt så att man kan skriva ut nå´t ENBART för IE?

If instr(lcase(Request.ServerVariables("HTTP_USER_AGENT")), lcase("msie")) > 0 Then 
response.write "endast Explorer"
else
response.write "alla andra läsare"
end if

PeeerMedlem sedan mars 20025 907 inlägg

4 aug. 2005 06:52#2

Rätta mig om jag har fel nu, men har inte Opera en inbyggd funktion för att "identifiera" sig som just IE? Då kommer user_agent-strängen vara identisk för både IE och Opera...

Erik JuhlinMedlem sedan maj 200010 687 inlägg

4 aug. 2005 06:59#3

Det går inte att förlita sig på USER_AGENT för att identifiera webbläsare.

kolasMedlem sedan mars 2001142 inlägg

4 aug. 2005 07:28#4

Jo det är väl nå´t sånt att den identifierar sig som IE, Opera skriver ut:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) Opera 7.51 [en]

och IE:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; (R1 1.5); .NET CLR 1.1.4322)

Men hur kan man göra smartast och relativt säkert för att skilja dem åt?

sontaMedlem sedan maj 200125 inlägg

4 aug. 2005 07:35#5

Så här kanske..

If instr(lcase(Request.ServerVariables("HTTP_USER_AGENT")), lcase("msie")) > 0 and instr(lcase(Request.ServerVariables("HTTP_USER_AGENT")), lcase("opera")) < 0  Then 
response.write "endast Explorer"
else
response.write "alla andra läsare"
end if

/Pelle

kolasMedlem sedan mars 2001142 inlägg

4 aug. 2005 07:44#6

Löste det på ett annat sätt:

Function getBrowser()
	Dim Browser, ua
	
	ua = Request.ServerVariables("HTTP_USER_AGENT")
	
	If Instr(ua, "Opera") Then
		Browser = "Opera"	
	ElseIf Instr(ua, "MSIE") Then
		If Instr(ua, "MSIE 6.") Then
			Browser = "background-attachment: fixed;"
		ElseIf Instr(ua, "MSIE 5.") Then
			Browser = "background-attachment: fixed;"
		ElseIf Instr(ua, "MSIE 4.") Then
			Browser = "background-attachment: fixed;"
		ElseIf Instr(ua, "MSIE 3.") Then
			Browser = ""
			If Instr(ua, "MSIE 3.02") Then
				Browser = ""
			End If
		Else
			Browser = ""
		End If
	ElseIf Instr(ua, "Mozilla") and Instr(ua, "compatible") = 0 Then
		If Instr(ua, "Netscape6") Then
			Browser = ""
		ElseIf Instr(ua, "Mozilla/4") Then
			Browser = ""
		ElseIf Instr(ua, "Mozilla/3") Then
			Browser = ""
		Else
			Browser = ""
		End If
	End If
	
	getBrowser = Browser
End Function