|
|
|
10-19-2008, 01:47 PM
|
#1 (permalink) |
|
Web Owner/Administrator
  
|
Browser Tespiti Detaylı v2.0 (KOD)
Yaklaşık 50 ye yakın Browser Markası ve 200 den fazla versiyon tanıyan Browser Detayları, Sitenize giren kullanıcıların hangi browser kullandığını detaylı olarak alabilmenizi sağlayan kod.
Kullanım : Browser.asp olarak kaydedin. Kullanmak istediğiniz yerde StrBrowser string ini çağırın yeter. Kod:
<% StrBrowser = Request.ServerVariables("HTTP_USER_AGENT") %>
<%
'--------------------------------------------------------------------------------
' :. Browser Tespit
'--------------------------------------------------------------------------------
' :. Version = 2.0
'--------------------------------------------------------------------------------
' Süleyman Öztürk
' Vega Yazılım Akdeniz Bölge Müdürlüğü
' Destek Departmanı
' MSN Developmenttech@gmail.com
'
' Kaynak Olarak Bu Linki Görüntüleyebilmeniz İçin Üye Olmanız Gerekiyor. baz alınmıştır.
'--------------------------------------------------------------------------------
': Microsoft Internet Explorer
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "MSIE") Then
If Instr(StrBrowser, "MSIE 7.") Then
StrBrowser = "Microsoft Internet Explorer 7.X"
Elseif Instr(StrBrowser, "MSIE 6.") Then
StrBrowser = "Microsoft Internet Explorer 6.X"
Elseif Instr(StrBrowser, "MSIE 5.") Then
StrBrowser = "Microsoft Internet Explorer 6.X"
Elseif Instr(StrBrowser, "MSIE 4.") Then
StrBrowser = "Microsoft Internet Explorer 4.X"
Elseif Instr(StrBrowser, "MSIE 3.") Then
StrBrowser = "Microsoft Internet Explorer 3.X"
Elseif Instr(StrBrowser, "MSIE 2.") Then
StrBrowser = "Microsoft Internet Explorer 2.X"
Else
StrBrowser = "Microsoft Internet Explorer X.X"
End If
End If
': Opera
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "Opera") Then
If Instr(StrBrowser, "Opera 9.") Then
StrBrowser = "Opera 9.X"
Elseif Instr(StrBrowser, "Opera 8.") Then
StrBrowser = "Opera 8.X"
Elseif Instr(StrBrowser, "Opera 7.") Then
StrBrowser = "Opera 7.X"
Elseif Instr(StrBrowser, "Opera 6.") Then
StrBrowser = "Opera 6.X"
Elseif Instr(StrBrowser, "Opera 5.") Then
StrBrowser = "Opera 5.X"
Elseif Instr(StrBrowser, "Opera 4.") Then
StrBrowser = "Opera 4.X"
Else
StrBrowser = "Opera X.X"
End If
End If
': Firefox
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "Firefox") Then
If Instr(StrBrowser, "Firefox/3.0") Then
StrBrowser = "Firefox 3.0"
Elseif Instr(StrBrowser, "Firefox/2.0") Then
StrBrowser = "Firefox 2.0"
Elseif Instr(StrBrowser, "Firefox/1.5") Then
StrBrowser = "Firefox 1.5"
Elseif Instr(StrBrowser, "Firefox 1.0") Then
StrBrowser = "Firefox 1.0"
Else
StrBrowser = "Firefox X.X"
End If
End If
': America Online Browser
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "America Online Browser") Then
If Instr(StrBrowser, "America Online Browser 1.5") Then
StrBrowser = "America Online Browser 1.5"
Elseif Instr(StrBrowser, "America Online Browser 1.1") Then
StrBrowser = "America Online Browser 1.1"
Elseif Instr(StrBrowser, "America Online Browser 1.0") Then
StrBrowser = "America Online Browser 1.0"
Else
StrBrowser = "America Online Browser X.X"
End If
End If
': AOL
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "AOL") Then
If Instr(StrBrowser, "AOL 9.0") Then
StrBrowser = "AOL 9.0"
Elseif Instr(StrBrowser, "AOL 8.0") Then
StrBrowser = "AOL 8.0"
Elseif Instr(StrBrowser, "AOL 7.0") Then
StrBrowser = "AOL 7.0"
Elseif Instr(StrBrowser, "AOL 6.0") Then
StrBrowser = "AOL 6.0"
Elseif Instr(StrBrowser, "AOL 5.0") Then
StrBrowser = "AOL 5.0"
Elseif Instr(StrBrowser, "AOL 4.0") Then
StrBrowser = "AOL 4.0"
Else
StrBrowser = "AOL X.X"
End If
End If
': Netscape
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "Netscape") Then
If Instr(StrBrowser, "Netscape/8.") Then
StrBrowser = "Netscape 8.X"
Elseif Instr(StrBrowser, "Netscape/7.") Then
StrBrowser = "Netscape 7.X"
Elseif Instr(StrBrowser, "Netscape/6.") Then
StrBrowser = "Netscape 6.X"
Elseif Instr(StrBrowser, "Netscape6") Then
StrBrowser = "Netscape 6.X"
Else
StrBrowser = "Netscape X.X"
End If
End If
': Mozilla
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "Gecko/") Then
If Instr(StrBrowser, "rv:1.8") Then
StrBrowser = "Mozilla 1.8.X"
Elseif Instr(StrBrowser, "rv:1.7") Then
StrBrowser = "Mozilla 1.7.X"
Elseif Instr(StrBrowser, "rv:1.6") Then
StrBrowser = "Mozilla 1.6.X"
Elseif Instr(StrBrowser, "rv:1.5") Then
StrBrowser = "Mozilla 1.5.X"
Elseif Instr(StrBrowser, "rv:1.4") Then
StrBrowser = "Mozilla 1.4.X"
Elseif Instr(StrBrowser, "rv:1.3") Then
StrBrowser = "Mozilla 1.3.X"
Elseif Instr(StrBrowser, "rv:1.2") Then
StrBrowser = "Mozilla 1.2.X"
Elseif Instr(StrBrowser, "rv:1.1") Then
StrBrowser = "Mozilla 1.1.X"
Elseif Instr(StrBrowser, "rv:1.0") Then
StrBrowser = "Mozilla 1.0.X"
Elseif Instr(StrBrowser, "rv:0.9") Then
StrBrowser = "Mozilla 0.9.X"
Else
StrBrowser = "Mozilla X.X.X"
End If
End If
': Camino
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "Camino") Then
If Instr(StrBrowser, "Camino/1.2") Then
StrBrowser = "Camino 1.2.X"
Elseif Instr(StrBrowser, "Camino/1.1") Then
StrBrowser = "Camino 1.1.X"
Elseif Instr(StrBrowser, "Camino/1.0") Then
StrBrowser = "Camino 1.0.X"
Elseif Instr(StrBrowser, "Camino/0.9") Then
StrBrowser = "Camino 0.9.X"
Elseif Instr(StrBrowser, "Camino/0.8") Then
StrBrowser = "Camino 0.8.X"
Elseif Instr(StrBrowser, "Camino/0.7") Then
StrBrowser = "Camino 0.7.X"
Else
StrBrowser = "Camino X.X.X"
End If
End If
': Crazy Browser
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "Crazy Browser") Then
If Instr(StrBrowser, "Crazy Browser 3.0.") Then
StrBrowser = "Crazy Browser 3.X.X"
Elseif Instr(StrBrowser, "Crazy Browser 2.0.") Then
StrBrowser = "Crazy Browser 2.X.X"
Elseif Instr(StrBrowser, "Crazy Browser 1.0.") Then
StrBrowser = "Crazy Browser 1.X.X"
Else
StrBrowser = "Crazy Browser X.X.X"
End If
End If
': Elinks
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "Elinks") Then
If Instr(StrBrowser, "Elinks/0.11") Then
StrBrowser = "Elinks 0.11.X"
Elseif Instr(StrBrowser, "Elinks/0.10") Then
StrBrowser = "Elinks 0.10.X"
Elseif Instr(StrBrowser, "Elinks/0.9") Then
StrBrowser = "Elinks 0.9.X"
Else
StrBrowser = "Elinks X.X.X"
End If
End If
': Epiphany
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "Epiphany") Then
If Instr(StrBrowser, "Epiphany/2.1") Then
StrBrowser = "Epiphany 2.1.X"
Elseif Instr(StrBrowser, "Epiphany/1.8") Then
StrBrowser = "Epiphany 1.8.X"
Elseif Instr(StrBrowser, "Epiphany/1.4") Then
StrBrowser = "Epiphany 1.4.X"
Elseif Instr(StrBrowser, "Epiphany/1.2") Then
StrBrowser = "Epiphany 1.2.X"
Elseif Instr(StrBrowser, "Epiphany/1.0") Then
StrBrowser = "Epiphany 1.0.X"
Elseif Instr(StrBrowser, "Epiphany/0.9") Then
StrBrowser = "Epiphany 0.9.X"
Else
StrBrowser = "Epiphany X.X.X"
End If
End If
': Firebird
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "Firebird") Then
If Instr(StrBrowser, "Firebird/0.8") Then
StrBrowser = "Firebird 0.8.X"
Elseif Instr(StrBrowser, "Firebird/0.7") Then
StrBrowser = "Firebird 0.7.X"
Elseif Instr(StrBrowser, "Elinks/0.6") Then
StrBrowser = "Firebird 0.6.X"
Else
StrBrowser = "Firebird X.X.X"
End If
End If
': Flock
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "Flock") Then
If Instr(StrBrowser, "Flock/0.8") Then
StrBrowser = "Flock 0.8.X"
Elseif Instr(StrBrowser, "Flock/0.7") Then
StrBrowser = "Flock 0.7.X"
Elseif Instr(StrBrowser, "Flock/0.6") Then
StrBrowser = "Flock 0.6.X"
Elseif Instr(StrBrowser, "Flock/0.5") Then
StrBrowser = "Flock 0.5.X"
Elseif Instr(StrBrowser, "Flock/0.4") Then
StrBrowser = "Flock 0.4.X"
Else
StrBrowser = "Flock X.X.X"
End If
End If
': Galeon
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "Galeon") Then
If Instr(StrBrowser, "Galeon/2.0") Then
StrBrowser = "Galeon 2.0.X"
Elseif Instr(StrBrowser, "Galeon/1.3") Then
StrBrowser = "Galeon 1.3.X"
Elseif Instr(StrBrowser, "Galeon/1.2") Then
StrBrowser = "Galeon 1.2.X"
Elseif Instr(StrBrowser, "Galeon/1.0") Then
StrBrowser = "Galeon 1.0.X"
Else
StrBrowser = "Galeon X.X.X"
End If
End If
': Gran Paradiso
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "GranParadiso") Then
If Instr(StrBrowser, "GranParadiso/3.0") Then
StrBrowser = "GranParadiso 3.0.X"
Elseif Instr(StrBrowser, "GranParadiso/2.0") Then
StrBrowser = "GranParadiso 2.0.X"
Else
StrBrowser = "GranParadiso X.X.X"
End If
End If
': IBrowse
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "IBrowse") Then
If Instr(StrBrowser, "IBrowse 3.") Then
StrBrowser = "IBrowse 3.0.X"
Elseif Instr(StrBrowser, "IBrowse/2.") Then
StrBrowser = "IBrowse 2.0.X"
Else
StrBrowser = "IBrowse X.X"
End If
End If
': iCab
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "iCab") Then
If Instr(StrBrowser, "iCab 3.0.") Then
StrBrowser = "iCab 3.0.X"
Elseif Instr(StrBrowser, "iCab 2.9.") Then
StrBrowser = "iCab 2.9.X"
Elseif Instr(StrBrowser, "iCab 2.8.") Then
StrBrowser = "iCab 2.8.X"
Else
StrBrowser = "iCab X.X.X"
End If
End If
': Iceape
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "Iceape") Then
If Instr(StrBrowser, "Iceape/1.0.8") Then
StrBrowser = "Iceape 1.0.8.X"
Elseif Instr(StrBrowser, "Iceape/1.0.7") Then
StrBrowser = "Iceape 1.0.7.X"
Else
StrBrowser = "Iceape X.X.X.X"
End If
End If
': Iceweasel
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "Iceweasel") Then
If Instr(StrBrowser, "Iceweasel/2.0") Then
StrBrowser = "Iceweasel 2.0.X"
Elseif Instr(StrBrowser, "Iceweasel/1.5") Then
StrBrowser = "Iceweasel 1.5.X"
Else
StrBrowser = "Iceweasel X.X.X"
End If
End If
': Kazehakase
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "Kazehakase") Then
If Instr(StrBrowser, "Kazehakase/0.4") Then
StrBrowser = "Kazehakase 0.4.X"
Elseif Instr(StrBrowser, "Kazehakase/0.3") Then
StrBrowser = "Kazehakase 0.3.X"
Elseif Instr(StrBrowser, "Kazehakase/0.2") Then
StrBrowser = "Kazehakase 0.2.X"
Else
StrBrowser = "Kazehakase X.X.X"
End If
End If
': Konqueror
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "Konqueror") Then
If Instr(StrBrowser, "Konqueror/3.5") Then
StrBrowser = "Konqueror 3.5.X"
Elseif Instr(StrBrowser, "Konqueror/3.4") Then
StrBrowser = "Konqueror 3.4.X"
Elseif Instr(StrBrowser, "Konqueror/3.2") Then
StrBrowser = "Konqueror 3.2.X"
Elseif Instr(StrBrowser, "Konqueror/3.1") Then
StrBrowser = "Konqueror 3.1.X"
Elseif Instr(StrBrowser, "Konqueror/3.0") Then
StrBrowser = "Konqueror 3.0.X"
Elseif Instr(StrBrowser, "Konqueror/2.2") Then
StrBrowser = "Konqueror 2.2.X"
Elseif Instr(StrBrowser, "Konqueror/2.1") Then
StrBrowser = "Konqueror 2.1.X"
Else
StrBrowser = "Konqueror X.X.X"
End If
End If
': MultiZilla
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "MultiZilla") Then
If Instr(StrBrowser, "MultiZilla/1.7") Then
StrBrowser = "MultiZilla 1.7.X"
Elseif Instr(StrBrowser, "MultiZilla/1.6") Then
StrBrowser = "MultiZilla 1.6.X"
Elseif Instr(StrBrowser, "MultiZilla v1.5") Then
StrBrowser = "MultiZilla 1.5.X"
Elseif Instr(StrBrowser, "MultiZilla v1.4") Then
StrBrowser = "MultiZilla 1.4.X"
Elseif Instr(StrBrowser, "MultiZilla v1.1") Then
StrBrowser = "MultiZilla 1.1.X"
Else
StrBrowser = "MultiZilla X.X.X"
End If
End If
': NetNewsWire
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "NetNewsWire") Then
If Instr(StrBrowser, "NetNewsWire/3.0") Then
StrBrowser = "NetNewsWire 3.0.X"
Elseif Instr(StrBrowser, "NetNewsWire/2.1") Then
StrBrowser = "NetNewsWire 2.1.X"
Elseif Instr(StrBrowser, "NetNewsWire/2.0") Then
StrBrowser = "NetNewsWire 2.0.X"
Else
StrBrowser = "NetNewsWire X.X.X"
End If
End If
': Phoenix
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "Phoenix") Then
If Instr(StrBrowser, "Phoenix/0.5") Then
StrBrowser = "Phoenix 0.5.X"
Elseif Instr(StrBrowser, "Phoenix/0.4") Then
StrBrowser = "Phoenix 0.4.X"
Elseif Instr(StrBrowser, "Phoenix/0.3") Then
StrBrowser = "Phoenix 0.3.X"
Elseif Instr(StrBrowser, "Phoenix/0.2") Then
StrBrowser = "Phoenix 0.2.X"
Elseif Instr(StrBrowser, "Phoenix/0.1") Then
StrBrowser = "Phoenix 0.1.X"
Else
StrBrowser = "Phoenix X.X.X"
End If
End If
': SeaMonkey
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "SeaMonkey") Then
If Instr(StrBrowser, "SeaMonkey/1.5") Then
StrBrowser = "SeaMonkey 1.5.X"
Elseif Instr(StrBrowser, "SeaMonkey/1.1") Then
StrBrowser = "SeaMonkey 1.1.X"
Elseif Instr(StrBrowser, "SeaMonkey/1.0") Then
StrBrowser = "SeaMonkey 1.0.X"
Else
StrBrowser = "SeaMonkey X.X.X"
End If
End If
': Diğerleri
'--------------------------------------------------------------------------------
': Amiga Voyager
'--------------------------------------------------------------------------------
If Instr(StrBrowser, "AmigaVoyager") Then
StrBrowser = "Amiga Voyager X.X"
': Avant Browser
'--------------------------------------------------------------------------------
Elseif Instr(StrBrowser, "Avant Browser") Then
StrBrowser = "Avant Browser X.X"
': Beonex
'--------------------------------------------------------------------------------
Elseif Instr(StrBrowser, "Beonex") Then
StrBrowser = "Beonex X.X"
': BonEcho
'--------------------------------------------------------------------------------
Elseif Instr(StrBrowser, "BonEcho") Then
StrBrowser = "BonEcho X.X"
': Cheshire
'--------------------------------------------------------------------------------
Elseif Instr(StrBrowser, "Cheshire") Then
StrBrowser = "Cheshire X.X"
': Chimera
'--------------------------------------------------------------------------------
Elseif Instr(StrBrowser, "Chimera") Then
StrBrowser = "Chimera X.X"
': Dillo
'--------------------------------------------------------------------------------
Elseif Instr(StrBrowser, "Dillo") Then
StrBrowser = "Dillo X.X"
': Enigma Browser
'--------------------------------------------------------------------------------
Elseif Instr(StrBrowser, "Enigma") Then
StrBrowser = "Enigma Browser X.X"
': K-Meleon
'--------------------------------------------------------------------------------
Elseif Instr(StrBrowser, "K-Meleon") Then
StrBrowser = "K-Meleon X.X"
': K-Ninja
'--------------------------------------------------------------------------------
Elseif Instr(StrBrowser, "K-Ninja") Then
StrBrowser = "K-Ninja X.X"
': Links
'--------------------------------------------------------------------------------
Elseif Instr(StrBrowser, "Links") Then
StrBrowser = "Links X.X"
': Links
'--------------------------------------------------------------------------------
Elseif Instr(StrBrowser, "Lynx") Then
StrBrowser = "Lynx X.X"
': Maxthon
'--------------------------------------------------------------------------------
Elseif Instr(StrBrowser, "Maxthon") Then
StrBrowser = "Maxthon X.X"
': Minefield
'--------------------------------------------------------------------------------
Elseif Instr(StrBrowser, "Minefield") Then
StrBrowser = "Minefield X.X"
': MyIE2
'--------------------------------------------------------------------------------
Elseif Instr(StrBrowser, "MyIE2") Then
StrBrowser = "MyIE2 X.X"
': OmniWeb
'--------------------------------------------------------------------------------
Elseif Instr(StrBrowser, "OmniWeb") Then
StrBrowser = "OmniWeb X.X"
': Oregano
'--------------------------------------------------------------------------------
Elseif Instr(StrBrowser, "Oregano") Then
StrBrowser = "Oregano X.X"
': Safari
'--------------------------------------------------------------------------------
Elseif Instr(StrBrowser, "Safari") Then
StrBrowser = "Safari X.X"
': Shiira
'--------------------------------------------------------------------------------
Elseif Instr(StrBrowser, "Shiira") Then
StrBrowser = "Shiira X.X"
': W3M
'--------------------------------------------------------------------------------
Elseif Instr(StrBrowser, "W3M") Then
StrBrowser = "W3M X.X"
End If
%>
<%= StrBrowser %>
__________________
 İsrailli Çocuk: Babam dedi ki, siz araplar şeytansınız, teröristsiniz, hayvansınız ! Filistinli Çocuk: Babam bana hiç bir şey demedi, sizinkiler öldürmüş... |
|
    
|
 |
| Konuyu Toplam 1 Üye Okuyor. (0 Kayıtlı Üye Ve 1 Misafir) | |
| Seçenekler | |
| Stil | |
|
|
Normal
