goder kväller!

hur attans ska man utnyttja http_user_agent?


jag tänkte skriva en liten kodfnutt som visar webbläsare och annat smått och gott som kan bidra till att mina sidor ser fucked-up på vissa datorer....

problemet är jag inte vet vilka värden i strängen jag får från http_user_agent som jag ska använda och hur....

snällt om någon kunde förklara hur jag ska bära mig åt....




tack på förhand!

1079 osv...

Den här sidan är på franska, men kod är ju kod.
Du förstår säkert vad dom menar :)

http://www.henri-ruch.ch/ASP/info_visiteur/http_navigateur.asp

Sök på google efter fler exempel...

Fredrik

Denna rutin använder jag och lägger den i en includefil för att använda mig av. Håll till godo

<code>
dim strUserAgent
dim MacNs
dim Ns
dim PcNs
dim MSIE

strUserAgent = ""
If checkUserAgent("browserType")="Navigator" and checkUserAgent("Platform")="NonWin" Then
MacNs = True
Ns = True
End If
If checkUserAgent("browserType")="Navigator" and InStr(checkUserAgent("Platform"), "Win") > 0 Then
PcNs = True
Ns = True
End If
If checkUserAgent("browserType")="MSIE" Then
MSIE = True
End If

'function checkUserAgent(strPropertyName)
'
'In-value: strPropertyName
' "browserType"
' "browserVersion"
' "Platform"
'
'Out-value: checkUserAgent
' "MSIE"
' "Navigator"
' "5"
' "5"
' "4"
' "3"
' "WinNT"
' "Win98"
' "Win95"
' "Windows"
' "NonWin"

function checkUserAgent(strPropertyName)
checkUserAgent="Unspecified"
If strUserAgent="" Then strUserAgent=Request.ServerVariables ("HTTP_USER_AGENT")
select case strPropertyName
case "browserType"
if instr(strUserAgent,"MSIE") then
checkUserAgent="MSIE"
else
checkUserAgent="Navigator"
end if

case "browserVersion"
if instr(strUserAgent,"6.") then
checkUserAgent="6"
elseif instr(strUserAgent,"5.") then
checkUserAgent="5"
elseif instr(strUserAgent,"4.") then
checkUserAgent="4"
else
checkUserAgent="3"
end if

case "Platform"
if instr(strUserAgent,"Win") and instr(strUserAgent,"NT") then
checkUserAgent="WinNT"
elseif instr(strUserAgent,"Win") and instr(strUserAgent,"95") then
checkUserAgent="Win95"
elseif instr(strUserAgent,"Win") and instr(strUserAgent,"98") then
checkUserAgent="Win98"
elseif instr(strUserAgent,"Win") then
checkUserAgent="Windows"
else
checkUserAgent="NonWin"
end if

case else
checkUserAgent="Wrong argument"
end select
end function
</code>