Avatar billede cotus Nybegynder
14. maj 2007 - 22:25 Der er 3 kommentarer

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.
Avatar billede ellebaek Nybegynder
14. maj 2007 - 22:48 #1
du kunne jo bruge noget i stilen af:

browser = Request.Servervariables("HTTP_USER_AGENT")
if instr(browser, "Firefox") > 0 then
  response.write "Du bruger Firefox"
elseif instr(browser, "MSIE 6.0") > 0 then
  response.write "Du bruge IE 6.0"
elseif instr(browser, "MSIE 7.0") > 0 then
  response.write "Du bruger IE 7.0"
else
  response.write "Du bruger noget andet"
end if
Avatar billede mikkelnh Nybegynder
22. maj 2007 - 22:58 #2
jeg har den her som jeg bruger til forskellige css filer alt efter browser på http://scriptmaster.element-web.dk

        <%
        Function CSSDetect()
       
        strHUA = LCase(Request.Servervariables("HTTP_USER_AGENT"))
          ' Macintosh
          If Instr(strHUA,"mac") Then
            strOS = "mac"
          ' Windows
          ElseIf Instr(strHUA,"windows") Then
            strOS = "windows"
          ' Linux
          Else
            strOS = "linux"
          End If
       
          ' Netscape 6
          If Instr(strHUA,"netscape") Then
            strUA = "netscape6"
          ' Opera
          Elseif Instr(strHUA,"opera") Then
            strUA = "opera"
          ' Konqueror
          Elseif Instr(strHUA,"konqueror") Then
            strUA = "konqueror"
          ' Microsoft Internet Explorer
          ElseIf Instr(strHUA,"msie 7.0") Then
            strUA = "ie7"
          ElseIf Instr(strHUA,"msie") Then
            strUA = "ie"
          ElseIf Instr(strHUA,"gecko") AND Instr(strHUA,"mozilla") Then
            strUA = "mozilla"
          Else
            ' Standard (ukendt browser)
            If Instr(strHUA,"compatible") Then
              strUA = "default"
            ' Netscape 4
            Elseif Left(strHUA,7) = "mozilla" Then
              strUA = "firefox"
            End If
          End If
         
        CSSDetect = "Styles/browsere/" & strUA & ".css"
       
        End Function
        %>
Avatar billede mikkelnh Nybegynder
22. maj 2007 - 22:58 #3
du kan nok ændre lidt i den og få den til at virke som du vil
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



Seneste spørgsmål Seneste aktivitet
I dag 06:10 Excel åbner fil i kæmpe format Af Aske i Excel
I går 22:00 Datafordeler Af Lsk i PHP
I går 12:37 Summere beløb pr. dato Af TTA i Excel
31/1022:44 Tilslutte chassic fans Af viking69 i PC
31/1020:28 LED lysstofrør Af ErikHg i Fri debat