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

İşletim Sistemini Bulma

Ziyaretçilerin kullandığı işletim sistemini bulan fonksiyon

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

'|============================
'| Kullanılan Sistemi 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")

     '// Windows
     If inStr(1, strTarayici, "Windows 2003", 1) > 0 Or inStr(1, strTarayici, "NT 5.2", 1) > 0 Then
          IsletimSistemi = "Windows 2003"

     ElseIf inStr(1, strTarayici, "Windows XP", 1) > 0 Or inStr(1, strTarayici, "NT 5.1", 1) > 0 Then
          IsletimSistemi = "Windows XP"

     ElseIf inStr(1, strTarayici, "Windows 2000", 1) > 0 Or inStr(1, strTarayici, "NT 5", 1) > 0 Then
          IsletimSistemi = "Windows 2000"

     ElseIf inStr(1, strTarayici, "Windows NT", 1) > 0 Or inStr(1, strTarayici, "WinNT", 1) > 0 Then
          IsletimSistemi = "Windows  NT 4"

     ElseIf inStr(1, strTarayici, "Windows 95", 1) > 0 Or inStr(1, strTarayici, "Win95", 1) > 0 Then
          IsletimSistemi = "Windows 95"

     ElseIf inStr(1, strTarayici, "Windows ME", 1) > 0 Or inStr(1, strTarayici, "Win 9x 4.90", 1) > 0 Then
          IsletimSistemi = "Windows ME"

     ElseIf inStr(1, strTarayici, "Windows 98", 1) > 0 Or inStr(1, strTarayici, "Win98", 1) > 0 Then
          IsletimSistemi = "Windows 98"

     ElseIf Instr(1, strTarayici, "Windows 3.1", 1) > 0 or Instr(1, strTarayici, "Win16", 1) > 0 Then
          IsletimSistemi = "Windows 3.x"

     ElseIf Instr(1, strTarayici, "Windows CE", 1) > 0 Then
          IsletimSistemi = "Windows CE"


     '// PalmOS
     ElseIf inStr(1, strTarayici, "PalmOS", 1) > 0 Then
          IsletimSistemi = "Palm OS"
          

     '// PalmPilot
     ElseIf inStr(1, strTarayici, "Elaine", 1) > 0 Then
          IsletimSistemi = "PalmPilot"


     '// Nokia
     ElseIf inStr(1, strTarayici, "Nokia", 1) > 0 Then
          IsletimSistemi = "Nokia"


     '// Linux
     ElseIf inStr(1, strTarayici, "Linux", 1) > 0 Then
          IsletimSistemi = "Linux"


     '// Amiga
     ElseIf inStr(1, strTarayici, "Amiga", 1) > 0 Then
          IsletimSistemi = "Amiga"


     '// Solaris
     ElseIf inStr(1, strTarayici, "Solaris", 1) > 0 Then
          IsletimSistemi = "Solaris"


     '// SunOS
     ElseIf inStr(1, strTarayici, "SunOS", 1) > 0 Then
          IsletimSistemi = "Sun OS"


     '// BSD
     ElseIf inStr(1, strTarayici, "BSD", 1) > 0 or inStr(1, strTarayici, "FreeBSD", 1) > 0 Then
          IsletimSistemi = "Free BSD"


     '// Unix
     ElseIf inStr(1, strTarayici, "Unix", 1) > 0 OR inStr(1, strTarayici, "X11", 1) > 0 Then
          IsletimSistemi = "Unix"


     '// AOL webTV
     ElseIf inStr(1, strTarayici, "AOLTV", 1) > 0 OR inStr(1, strTarayici, "AOL_TV", 1) > 0 Then
          IsletimSistemi = "AOL TV"

     ElseIf inStr(1, strTarayici, "WebTV", 1) > 0 Then
          IsletimSistemi = "Web TV"

     '// Machintosh
     ElseIf inStr(1, strTarayici, "Mac OS X", 1) > 0 Then
          IsletimSistemi = "Mac OS X"

     ElseIf inStr(1, strTarayici, "Mac_PowerPC", 1) > 0 or Instr(1, strTarayici, "PPC", 1) > 0 Then
          IsletimSistemi = "Mac PowerPC"

     ElseIf (inStr(1, strTarayici, "6800", 1) > 0 OR inStr(1, strTarayici, "68k", 1) > 0) AND inStr(1, strTarayici, "Mac", 1) > 0 Then
          IsletimSistemi = "Mac 68k"

     ElseIf inStr(1, strTarayici, "Mac", 1) > 0 or inStr(1, strTarayici, "apple", 1) > 0 Then
          IsletimSistemi = "Macintosh"


     '// OS/2
     ElseIf inStr(1, strTarayici, "OS/2", 1) > 0 Then
          IsletimSistemi = "OS/2"


     '// Arama Motoru Robotu
     ElseIf inStr(1, strTarayici, "Googlebot", 1) > 0 OR inStr(1, strTarayici, "ZyBorg", 1) > 0 OR inStr(1, strTarayici, "slurp", 1) > 0 OR inStr(1, strTarayici, "Scooter", 1) > 0 OR inStr(1, strTarayici, "Robozilla", 1) > 0 OR inStr(1, strTarayici, "Ask Jeeves", 1) > 0 OR inStr(1, strTarayici, "Ask+Jeeves", 1) > 0 OR inStr(1, strTarayici, "lycos", 1) > 0 OR inStr(1, strTarayici, "ArchitextSpider", 1) > 0 OR inStr(1, strTarayici, "Gulliver", 1) > 0 OR inStr(1, strTarayici, "crawler@fast", 1) > 0 Then
          IsletimSistemi = "Arama Motoru Robotu"
          

     '// Arama Motoru Robotu
     ElseIf inStr(1, strTarayici, "TurnitinBot", 1) > 0 OR inStr(1, strTarayici, "internetseer", 1) > 0 OR inStr(1, strTarayici, "nameprotect", 1) > 0 OR inStr(1, strTarayici, "PhpDig", 1) > 0 OR inStr(1, strTarayici, "StackRambler", 1) > 0 OR inStr(1, strTarayici, "UbiCrawler", 1) > 0 OR inStr(1, strTarayici, "Speedy+Spider", 1) > 0 OR inStr(1, strTarayici, "ia_archiver", 1) > 0 OR inStr(1, strTarayici, "msnbot", 1) > 0 OR inStr(1, strTarayici, "arianna.libero.it", 1) > 0 Then
          IsletimSistemi = "Arama Motoru Robotu"          
 
     '// Hiçbiri Değilse
     Else
          IsletimSistemi = "Bilinmiyor"

     End If


End Function
%>


Kullanımı:

<%=IsletimSistemi%>
 
 

İşletim Sistemini Bulma için yazılan yorumlar

Henüz yorum eklenmedi.

Yorum ekleyin

Anasayfa > Asp > Kodlar > İşletim Sistemini Bulma
Kategoriler:


Forum:



Bağlantılar:



    En Son Yorumlanan İçerikler:


    Murat Yavuz | Site Haritası | Gizlilik Bildirimi | 35.172.201.102 | 0,19 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.