Forskellige sider alt efter browser
<%' ****************************************************************
' Dette script er beskyttet efter gældende dansk lov om ophavsret
' Kan benyttes frit - men må ikke distribueres fra andre sites end HTML.dk
' Kontakt HTML.dk hvis du er i tvivl
' ****************************************************************
Dim strUA ' User Agent (Browser Tag)
Dim arrUA ' Array med ord fra nyere browser tags
Dim intUA ' til at gennemløbe array
Function W3C(strUA)
strUA = LCase(strUA)
arrUA = Array("compatible","msie","netscape","opera","konqueror","gecko","aol")
For intUA = 0 to Ubound(arrUA)
If Instr(strUA,arrUA(intUA)) Or Left(strUA,7) <> "mozilla" Then
W3C = "true"
Exit For
End If
Next
End Function
If W3C(Request.Servervariables("HTTP_USER_AGENT")) = "true" Then
'Her kan man skrive koder til øvrige browsere, robotter og W3C validatoren
Response.Write "Du bruger IKKE Netscape"
Else
'Her kan man skrive koder til Netscape 4
Response.Write "Du bruger Netscape"
End If
%>
Har fundet følgende script til at finde frem til, at man bruger Netscape 4. Nu vil jeg gerne have dette overført til en skelnen mellem Firefox, IE 6.0, IE 7.0 og "alle andre". Der skal bare stå "Du bruger Firefox", "Du bruger IE 6.0" osv.
Det kan jeg umiddelbart ikke gennemskue.
Ved flg. om HTTP-user-agents'ne for de forskellige browsere:
Firefox: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.3
IE 6.0: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 2.0.50727)
IE 7.0: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727)
På forhånd tak.