Browser — webForum

mats47Medlem sedan mars 2009185 inlägg

Frågan15 jan. 2010 09:13#1

Jag har en sida där jag vill se mina vad mina användare använder för browser.

Jag vill ha den i asp ohc jag hittade en men jag gjorde ett test och fick fram att jag har Netscape men jag har iställe "Internet Explorer 8"
någon som vet en bättre kod snutt?

<% 
Set objBCap = Server.CreateObject("MSWC.BrowserType") 
    Response.Write objBCap.Browser 
%>

KoggenMedlem sedan juni 2002169 inlägg

15 jan. 2010 15:44#2

Kan request.servervariables("HTTP_USER_AGENT") vara något kanske?

postolMedlem sedan jan. 201017 inlägg

21 jan. 2010 17:15#3

Kanske detta kan vara till nytta för dig.

function getBrowser()
dim sBrowser: sBrowser = Request.ServerVariables("HTTP_USER_AGENT")
if (instr(lcase(sBrowser),lcase("msie 5.0")) > 0) then
getBrowser = "ie5"
elseif (instr(lcase(sBrowser),lcase("msie 6.0")) > 0) then
getBrowser = "ie6"
elseif (instr(lcase(sBrowser),lcase("msie 7.0")) > 0) then
getBrowser = "ie7"
elseif (instr(lcase(sBrowser),lcase("msie 8.0")) > 0) then
getBrowser = "ie8"
elseif (instr(lcase(sBrowser),lcase("firefox/1")) > 0) then
getBrowser = "ff1"
elseif (instr(lcase(sBrowser),lcase("firefox/2")) > 0) then
getBrowser = "ff2"
elseif (instr(lcase(sBrowser),lcase("firefox/3")) > 0) then
getBrowser = "ff3"
elseif (instr(lcase(sBrowser),lcase("AOL 3.0; Mac")) > 0) then
getBrowser = "aolmac"
elseif (instr(lcase(sBrowser),lcase("MSPIE")) > 0) then
getBrowser = "pcc"
elseif (instr(lcase(sBrowser),lcase("Konqueror")) > 0) then
getBrowser = "konqueror"
elseif (instr(lcase(sBrowser),lcase("Opera")) > 0) then
getBrowser = "opera"
elseif (instr(lcase(sBrowser),lcase("MSIE 2.1; Mac")) > 0) then
getBrowser = "iemac2"
elseif (instr(lcase(sBrowser),lcase("MSIE 4.01; Mac_PowerPC")) > 0) then
getBrowser = "iemac4"
elseif (instr(lcase(sBrowser),lcase("MSIE 5.0; Mac_PowerPC")) > 0) then
getBrowser = "iemac5"
elseif (instr(lcase(sBrowser),lcase("Safari")) > 0) then
getBrowser = "safari"
end if
end function