skicka vidare..

6 svar · 214 visningar · startad av Choronzon 19 jan. 2002

ChoronzonMedlem sedan aug. 20011 346 inlägg

Frågan19 jan. 2002 13:48#1

jag skulle vilja, men hjälp av den här koden som jag hittade här i forumet plocka ut alla med windows och explorer, och skicka dom till en sida, och mac och ns till en annan! Kanske går det att göra enklare? Annars är jag väldigt tacksam om någon skulle vilja hjälpa mig med det!

Response.write getOS & " - " & getBrowser
' Hämta användarens webbläsare:
Function getBrowser()
	Dim Browser, ua
	
	ua = Request.ServerVariables("HTTP_USER_AGENT")
	
	If Instr(ua, "MSIE") Then
		If Instr(ua, "MSIE 6.") Then
			Browser = "Microsoft Internet Explorer 6.x"
		ElseIf Instr(ua, "MSIE 5.") Then
			Browser = "Microsoft Internet Explorer 5.x"
		ElseIf Instr(ua, "MSIE 4.") Then
			Browser = "Microsoft Internet Explorer 4.x"
		ElseIf Instr(ua, "MSIE 3.") Then
			Browser = "Microsoft Internet Explorer 3.x"
			If Instr(ua, "MSIE 3.02") Then
				Browser = "Microsoft Internet Explorer 3.02"
			End If
		Else
			Browser = "Microsoft Internet Explorer"
		End If
	ElseIf Instr(ua, "Mozilla") and Instr(ua, "compatible") = 0 Then
		If Instr(ua, "Netscape6") Then
			Browser = "Netscape Navigator 6.x"
		ElseIf Instr(ua, "Mozilla/4") Then
			Browser = "Netscape Navigator 4.x"
		ElseIf Instr(ua, "Mozilla/3") Then
			Browser = "Netscape Navigator 3.x"
		Else
			Browser = "Netscape Navigator"
		End If
	End If
	
	getBrowser = Browser
End Function

'Hämta användarens operativsystem.
Function getOS()
	Dim System, ua, os
	
	ua = Request.ServerVariables("HTTP_USER_AGENT")
	os = Request.ServerVariables("HTTP_UA_OS")
	
	If Instr(ua, "Windows 95") Or Instr(ua, "Win95") Then
		System = "Windows 95"
	ElseIf Instr(ua, "Win 9x 4.90") Then
		System = "Windows ME"
	ElseIf Instr(ua, "Windows 98") Or Instr(ua, "Win98") Then
		System = "Windows 98"
	ElseIf Instr(ua, "Windows 3.1") Or Instr(os, "Win16") Then
		System = "Windows 3.x/Windows NT 3.x"
	ElseIf Instr(ua, "NT 5.1") Or Instr(oa, "NT 5.1") Then
		System = "Windows XP"
	ElseIf Instr(ua, "NT 5") Or Instr(oa, "NT 5") Then
		System = "Windows 2000"
	ElseIf Instr(ua, "NT") Or Instr(oa, "NT") Then
		System = "Windows NT"
	ElseIf Instr(ua, "Mac") Then
		System = "Mac"
		If Instr(ua, "PowerPC") Or Instr(ua, "PPC") Then
			System = "Mac PPC"
		ElseIf Instr(ua, "68000") Or Instr(ua, "68K") Then
			System = "Mac 68K"
		End If
	ElseIf Instr(ua, "Linux") Then
		System = "Linux"
	ElseIf Instr(ua, "X11") Then
		System = "UNIX"
	End If
	
	getOS = System
End Function

------------------

-- Çhørønzøñ II --

VideMedlem sedan dec. 19998 577 inlägg

19 jan. 2002 15:36#2

Typ:

if instr( Request.ServerVariables("HTTP_USER_AGENT"), "MSIE" ) > 0 then
response.redirect "ie.asp"
else
response.redirect "nn.asp"
end if

------------------
Mostly Harmless

ChoronzonMedlem sedan aug. 20011 346 inlägg

19 jan. 2002 15:51#3

Jo fast jag vill ju dela på mac & win oxo..

------------------

-- Çhørønzøñ II --

@ndersMedlem sedan juni 200032 969 inlägg

19 jan. 2002 15:55#4

strFil = "ie.asp"
if instr( Request.ServerVariables("HTTP_USER_AGENT"), "MSIE" ) <= 0 or instr(lcase(Request.ServerVariables("HTTP_USER_AGENT")), "mac" ) > 0 then strFil = "nn.asp"

Response.redirect fil

Känns som att det borde göra susen.

Mvh,

ChoronzonMedlem sedan aug. 20011 346 inlägg

19 jan. 2002 16:38#5

hmm, känner mig lite trög, men menar du såhär eller?

strFil = "ie.asp"
if instr( Request.ServerVariables("HTTP_USER_AGENT"), "MSIE" ) <= 0 or instr(lcase(Request.ServerVariables("HTTP_USER_AGENT")), "mac" ) > 0 then strFil = "nn.asp" 

[b]Response.redirect ("ie.asp")[/b]

------------------

-- Çhørønzøñ II --

@ndersMedlem sedan juni 200032 969 inlägg

19 jan. 2002 16:45#6

Nej, men du har rätt i att jag skrev fel. Jag ber om ursäkt.

Response.redirect strFil

Mvh,

ChoronzonMedlem sedan aug. 20011 346 inlägg

19 jan. 2002 17:14#7

:D :D :D

------------------

-- Çhørønzøñ II --