İşletim Sistemini Bulma

 
<%
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%>

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

� şletim sistemini bulma