MyDesign | Kod Arşivi - Anasayfaya Dön   No banner in farm
Anasayfa Araştır Forum Gelişmiş Arama Siteniz İçin En Hit İçerikler RSS İçerik Ekle Scriptler Destekleyenler Kadromuz Reklam İletişim Giriş Sayfası Yap  Sık Kullanılanlara Ekle
Bu Kategorinin En Yeni Kodları:


Bu Kategorinin En Çok Görüntülenen Kodları:






Arama:
Gelişmiş Arama


No banner in farm



En Çok Görüntülenen Kodlar:


Üye Girişi:
 Üye Ol



Anasayfa > Asp > Kodlar

Kullanılan Tarayıcıyı Bulma

Ziyaretçilerin kullandığı tarayıcıyı ve versiyonu bulan fonksiyon

Kategori : Asp
Gönderen : mYavuz
Telif :
Tarih : 20 Mayıs 2005
Örnek Dosya : Bulunmamakta
Okunma Sayısı : 12160
Puan
: 10 / 10 (2 Oy)
Puan Verin :
Google Bookmarks  del.icio.us  Digg  Yahoo! MyWeb  Windows Live  Furl
 
 
<%
Function BrowserType()

'|============================
'| Kullanılan Tarayıcıyı Bulma
'|--------------------------------------
'| Kodlar WWF'den Alınıp Düzenlenmiştir
'| http://www.webwizguide.info
'|--------------------------------------
'| mydesign a.k.a doronty37
'| http://www.mydesign.gen.tr
'| mydesign@mydesign.gen.tr
'|============================


     strTarayici = Request.ServerVariables("HTTP_USER_AGENT")

      '// Opera
     If InStr(1, strTarayici, "Opera 1", 1) > 0 Then
          strKullanilanTarayici = "Opera 1"

     ElseIf InStr(1, strTarayici, "Opera 2", 1) > 0 Then
          strKullanilanTarayici = "Opera 2"

     ElseIf InStr(1, strTarayici, "Opera 3", 1) > 0 Then
          strKullanilanTarayici = "Opera 3"

     ElseIf InStr(1, strTarayici, "Opera 4", 1) > 0 Then
          strKullanilanTarayici = "Opera 4"

     ElseIf InStr(1, strTarayici, "Opera 5", 1) > 0 Then
          strKullanilanTarayici = "Opera 5"

     ElseIf InStr(1, strTarayici, "Opera 6", 1) > 0 Then
          strKullanilanTarayici = "Opera 6"

     ElseIf InStr(1, strTarayici, "Opera 7", 1) > 0 Then
          strKullanilanTarayici = "Opera 7"

     ElseIf InStr(1, strTarayici, "Opera 8", 1) > 0 Then
          strKullanilanTarayici = "Opera 8"

     ElseIf InStr(1, strTarayici, "Opera", 1) > 0 Then
          strKullanilanTarayici = "Opera"

     '// AOL
     ElseIf inStr(1, strTarayici, "AOL 3", 1) > 0 Then
          strKullanilanTarayici = "AOL 3"

     ElseIf inStr(1, strTarayici, "AOL 4", 1) > 0 Then
          strKullanilanTarayici = "AOL 4"

     ElseIf inStr(1, strTarayici, "AOL 5", 1) > 0 Then
          strKullanilanTarayici = "AOL 5"

     ElseIf inStr(1, strTarayici, "AOL 6", 1) > 0 Then
          strKullanilanTarayici = "AOL 6"

     ElseIf inStr(1, strTarayici, "AOL 7", 1) > 0 Then
          strKullanilanTarayici = "AOL 7"

     ElseIf inStr(1, strTarayici, "AOL 8", 1) > 0 Then
          strKullanilanTarayici = "AOL 8"

     ElseIf inStr(1, strTarayici, "AOL 9", 1) > 0 Then
          strKullanilanTarayici = "AOL 9"

     ElseIf inStr(1, strTarayici, "AOL", 1) > 0 Then
          strKullanilanTarayici = "AOL"


     '// Konqueror
     ElseIf inStr(1, strTarayici, "Konqueror", 1) > 0 Then
          strKullanilanTarayici = "Konqueror"


     '// EudoraWeb
     ElseIf inStr(1, strTarayici, "EudoraWeb", 1) > 0 Then
          strKullanilanTarayici = "EudoraWeb"


     '// Dreamcast
     ElseIf inStr(1, strTarayici, "Dreamcast", 1) > 0 Then
          strKullanilanTarayici = "Dreamcast"
     

     '// Safari
     ElseIf inStr(1, strTarayici, "Safari", 1) > 0 Then
          strKullanilanTarayici = "Safari"
     

     '// Lynx
     ElseIf inStr(1, strTarayici, "Lynx", 1) > 0 Then
          strKullanilanTarayici = "Lynx"
     

     '// ICE
     ElseIf inStr(1, strTarayici, "ICE", 1) > 0 Then
          strKullanilanTarayici = "ICE"
     

     '// iCab 
     ElseIf inStr(1, strTarayici, "iCab", 1) > 0 Then
          strKullanilanTarayici = "iCab"
          

     '// HotJava 
     ElseIf inStr(1, strTarayici, "Sun", 1) > 0 AND inStr(1, strTarayici, "Mozilla/3", 1) > 0 Then
          strKullanilanTarayici = "HotJava"
     

     '// Galeon 
     ElseIf inStr(1, strTarayici, "Galeon", 1) > 0 Then
          strKullanilanTarayici = "Galeon"
          

     '// Epiphany 
     ElseIf inStr(1, strTarayici, "Epiphany", 1) > 0 Then
          strKullanilanTarayici = "Epiphany"
     

     '// DocZilla 
     ElseIf inStr(1, strTarayici, "DocZilla", 1) > 0 Then
          strKullanilanTarayici = "DocZilla"
     

     '// Camino 
     ElseIf inStr(1, strTarayici, "Chimera", 1) > 0 OR inStr(1, strTarayici, "Camino", 1) > 0 Then
          strKullanilanTarayici = "Camino"
     

     '// Dillo 
     ElseIf inStr(1, strTarayici, "Dillo", 1) > 0 Then
          strKullanilanTarayici = "Dillo"
          

     '// amaya 
     ElseIf inStr(1, strTarayici, "amaya", 1) > 0 Then
          strKullanilanTarayici = "Amaya"
          

     '// NetCaptor 
     ElseIf inStr(1, strTarayici, "NetCaptor", 1) > 0 Then
          strKullanilanTarayici = "NetCaptor"
          

     '// Arama Motoru Robotları     
          
          
     '// LookSmart 
     ElseIf inStr(1, strTarayici, "ZyBorg", 1) > 0 Then
          strKullanilanTarayici = "LookSmart"          
     

     '// Googlebot 
     ElseIf inStr(1, strTarayici, "Googlebot", 1) > 0 Then
          strKullanilanTarayici = "Googlebot"
          

     '// MSN 
     ElseIf inStr(1, strTarayici, "msnbot", 1) > 0 Then
          strKullanilanTarayici = "MSN"
          

     '// inktomi
     ElseIf inStr(1, strTarayici, "slurp", 1) > 0 Then
          strKullanilanTarayici = "Inktomi"
     

     '// AltaVista
     ElseIf inStr(1, strTarayici, "Scooter", 1) > 0 Then
          strKullanilanTarayici = "AltaVista"
     

     '// DMOZ
     ElseIf inStr(1, strTarayici, "Robozilla", 1) > 0 Then
          strKullanilanTarayici = "DMOZ"
          

     '// Ask Jeeves
     ElseIf inStr(1, strTarayici, "Ask Jeeves", 1) > 0 OR inStr(1, strTarayici, "Ask+Jeeves", 1) > 0 Then
          strKullanilanTarayici = "Ask Jeeves"
          

     '// Lycos
     ElseIf inStr(1, strTarayici, "lycos", 1) > 0 Then
          strKullanilanTarayici = "Lycos"
          

     '// Excite
     ElseIf inStr(1, strTarayici, "ArchitextSpider", 1) > 0 Then
          strKullanilanTarayici = "Excite"
          

     '// Northernlight
     ElseIf inStr(1, strTarayici, "Gulliver", 1) > 0 Then
          strKullanilanTarayici = "Northernlight"
     

     '// AllTheWeb
     ElseIf inStr(1, strTarayici, "crawler@fast", 1) > 0 Then
          strKullanilanTarayici = "AllTheWeb"
          

     '// Turnitin
     ElseIf inStr(1, strTarayici, "TurnitinBot", 1) > 0 Then
          strKullanilanTarayici = "Turnitin"
          

     '// InternetSeer
     ElseIf inStr(1, strTarayici, "internetseer", 1) > 0 Then
          strKullanilanTarayici = "InternetSeer"
          

     '// NameProtect Inc.
     ElseIf inStr(1, strTarayici, "nameprotect", 1) > 0 Then
          strKullanilanTarayici = "NameProtect"
          

     '// PhpDig
     ElseIf inStr(1, strTarayici, "PhpDig", 1) > 0 Then
          strKullanilanTarayici = "PhpDig"
          

     '// Rambler
     ElseIf inStr(1, strTarayici, "StackRambler", 1) > 0 Then
          strKullanilanTarayici = "Rambler"
          

     '// UbiCrawler
     ElseIf inStr(1, strTarayici, "UbiCrawler", 1) > 0 Then
          strKullanilanTarayici = "UbiCrawler"
          

     '// entireweb
     ElseIf inStr(1, strTarayici, "Speedy+Spider", 1) > 0 Then
          strKullanilanTarayici = "entireweb"
          

     '// Alexa.com
     ElseIf inStr(1, strTarayici, "ia_archiver", 1) > 0 Then
          strKullanilanTarayici = "Alexa"
     

     '// Arianna/Libero
     ElseIf inStr(1, strTarayici, "arianna.libero.it", 1) > 0 Then
          strKullanilanTarayici = "Arianna/Libero"
               
     
          
     '// Internet Explorer
     ElseIf inStr(1, strTarayici, "MSIE 7", 1) > 0 Then
          strKullanilanTarayici = "Microsoft Internet Explorer 7"

     ElseIf inStr(1, strTarayici, "MSIE 6", 1) > 0 Then
          strKullanilanTarayici = "Microsoft Internet Explorer 6"

     ElseIf inStr(1, strTarayici, "MSIE 5", 1) > 0 Then
          strKullanilanTarayici = "Microsoft Internet Explorer 5"

     ElseIf inStr(1, strTarayici, "MSIE 4", 1) > 0 Then
          strKullanilanTarayici = "Microsoft Internet Explorer 4"

     ElseIf inStr(1, strTarayici, "MSIE 3", 1) > 0 Then
          strKullanilanTarayici = "Microsoft Internet Explorer 3"

     ElseIf inStr(1, strTarayici, "MSIE 2", 1) > 0 Then
          strKullanilanTarayici = "Microsoft Internet Explorer 2"

     ElseIf inStr(1, strTarayici, "MSIE 1", 1) > 0 Then
          strKullanilanTarayici = "Microsoft Internet Explorer 1"


     '// Pocket Internet Explorer
     ElseIf inStr(1, strTarayici, "MSPIE 1", 1) > 0 Then
          strKullanilanTarayici = "Pocket IE 1"

     ElseIf inStr(1, strTarayici, "MSPIE 1", 1) > 0 Then
          strKullanilanTarayici = "Pocket IE 2"

     
     '// Mozilla Firefox
     ElseIf inStr(1, strTarayici, "Gecko", 1) > 0 AND inStr(1, strTarayici, "Firefox", 1) > 0 Then
          strKullanilanTarayici = "Mozilla Firefox"
     

     '// Mozilla Firebird
     ElseIf inStr(1, strTarayici, "Gecko", 1) > 0 AND inStr(1, strTarayici, "Firebird", 1) > 0 Then
          strKullanilanTarayici = "Mozilla Firebird"
     

     '// Mozilla
     ElseIf inStr(1, strTarayici, "Gecko", 1) > 0 AND inStr(1, strTarayici, "rv:2", 1) > 0 AND inStr(1, strTarayici, "Netscape", 1) = 0 Then
          strKullanilanTarayici = "Mozilla 2"

     ElseIf inStr(1, strTarayici, "Gecko", 1) > 0 AND inStr(1, strTarayici, "rv:1", 1) > 0 AND inStr(1, strTarayici, "Netscape", 1) = 0 Then
          strKullanilanTarayici = "Mozilla 1"

     ElseIf inStr(1, strTarayici, "Gecko", 1) > 0 AND inStr(1, strTarayici, "rv:0", 1) > 0 AND inStr(1, strTarayici, "Netscape", 1) = 0 Then
          strKullanilanTarayici = "Mozilla"



     '// Netscape
     ElseIf inStr(1, strTarayici, "Netscape/8", 1) > 0 Then
          strKullanilanTarayici = "Netscape 8"

     ElseIf inStr(1, strTarayici, "Netscape/7", 1) > 0 Then
          strKullanilanTarayici = "Netscape 7"

     ElseIf inStr(1, strTarayici, "Netscape6", 1) > 0 Then
          strKullanilanTarayici = "Netscape 6"

     ElseIf inStr(1, strTarayici, "Mozilla/4", 1) > 0 Then
          strKullanilanTarayici = "Netscape 4"

     ElseIf inStr(1, strTarayici, "Mozilla/3", 1) > 0 Then
          strKullanilanTarayici = "Netscape 3"

     ElseIf inStr(1, strTarayici, "Mozilla/2", 1) > 0 Then
          strKullanilanTarayici = "Netscape 2"

     ElseIf inStr(1, strTarayici, "Mozilla/1", 1) > 0 Then
          strKullanilanTarayici = "Netscape 1"
     
          
     '// Hiçbiri Değilse
     Else
          strKullanilanTarayici = "bilinmiyor"
     End If

     BrowserType = strKullanilanTarayici
End Function
%>


Kullanımı: 

<%=BrowserType %>
 
 

Kullanılan Tarayıcıyı Bulma için yazılan yorumlar

Henüz yorum eklenmedi.

Yorum ekleyin

Anasayfa > Asp > Kodlar > Kullanılan Tarayıcıyı Bulma
Kategoriler:


Forum:



Bağlantılar:


En Son Yorumlanan İçerikler:


Murat Yavuz | Site Haritası | Gizlilik Bildirimi | 54.81.68.240 | 0,11 Saniye
© Copyright 2004-2018 MyDesign | Kod Arşivi. Tüm Hakları Saklıdır.
MyDesign | Kod Arşivi, en iyi görünüm için, 1024x768 ve üzeri çözünürlük tavsiye eder.