Larve Yazılım

Web Tasarım&Programlama

Larve Yazılım resmi sitemiz bakımdadır. Bilginize

Giriş yap

Şifremi unuttum

En son konular

» İşlem Yönetici 1.0.0.1
23/1/2012, 23:00 tarafından Admin

» İşlem Yönetici 1.0.0.0
11/11/2011, 13:50 tarafından Admin

»  Bilgisayarımı Kapat 1.0.0.2 - Kolay Windows Kapatıcı
28/9/2011, 18:08 tarafından Admin

» Bilgisayarımı Kapat 1.0.0.1 - Kolay Windows Kapatıcı
31/7/2011, 21:20 tarafından Admin

» Çemberin Çevresini Hesapla
30/7/2011, 18:31 tarafından Admin

» Visual Basic 2005 ile E-posta Göndermek
27/7/2011, 19:32 tarafından Admin

» Dosya adı ve Uzantı Ayırma
25/7/2011, 13:05 tarafından Admin

» C Programlama Diline Giriş
30/6/2011, 19:08 tarafından Admin

» C++'a Giriş : Hello World
30/6/2011, 19:06 tarafından Admin

» Visual Basic Nedir?
30/6/2011, 18:59 tarafından Admin

» Bilgisayarımı Kapat 1.0.0.0 - Kolay Windows Kapatıcı
25/6/2011, 14:21 tarafından Admin

» Html'ye giriş
28/6/2010, 16:29 tarafından Admin

» Java Script nedir?
28/6/2010, 15:03 tarafından Admin

» Php ile rasgele veri Listeleme
28/6/2010, 15:01 tarafından Admin

» Toplist yapma
28/6/2010, 14:57 tarafından Admin

» Veri sayfalama
28/6/2010, 00:36 tarafından Admin

» Puanlı üyelik Sistemi
28/6/2010, 00:30 tarafından Admin

» Sub Kullanımı
28/6/2010, 00:28 tarafından Admin

» Veritabanı İşlemi (kayıt eklme, kayıt silme)
28/6/2010, 00:21 tarafından Admin

Arama

 
 

Sonuç :
 

Rechercher çıkıntı araştırma

En iyi yollayıcılar

Admin (181)
 
MuHaMMeD (4)
 

En aktif konular

En bakılan konular

Bilgisayarımı Kapat 1.0.0.1 - Kolay Windows Kapatıcı
Bilgisayarımı Kapat 1.0.0.0 - Kolay Windows Kapatıcı
Sub Kullanımı
Veri sayfalama
Türkçe Karakteri Sorunu
Toplist yapma
Veritabanı İşlemi (kayıt eklme, kayıt silme)
İşletim Sistemi ve Tarayıcı bilgileri bulma
Puanlı üyelik Sistemi
ASP ile dinamik sitemap.xml oluşturalım

    İşletim Sistemi ve Tarayıcı bilgileri bulma

    Paylaş
    Admin

    Admin
    Normal Üye

    Ad: Enes
    Şehir: İzmir
    Erkek
    Doğum tarihi: 27/07/95
    Takım: Fenerbahçe
    Mesaj Sayısı: 181
    Yaş: 16
    Tecrübe puanı: 5576
    Rep Puanı: 12
    Kayıt tarihi: 15/08/08
    • Post n°1

    İşletim Sistemi ve Tarayıcı bilgileri bulma

    Mesaj tarafından Admin Bir 26/6/2010, 04:32

    Bu kod ile ziyaretçilerinize browser, ip ve sistem bilgilerini gösterebilirsiniz.
    Kodu .asp sayfası olarak kayıt ettikten sonra çalıştırmanız yeterli.
    Kod:

    <%
    ua = Request.ServerVariables("HTTP_USER_AGENT" )
    os = Request.ServerVariables("HTTP_UA_OS" )
    If  InStr(ua, "MSIE" )  Then 
        If  InStr(ua, "MSIE 5." )  Then 
              Browser = "Microsoft Internet Explorer 5.x"
        ElseIf  InStr(ua, "MSIE 4." )  Then 
              Browser = "Microsoft Internet Explorer 4.x"
        ElseIf  InStr(ua, "MSIE 3." )  Then 
              Browser = "Microsoft Internet Explorer 3.x"
              If  InStr(ua, "MSIE 3.02" )  Then 
                  Browser = "Microsoft Internet Explorer 3.02"
              End  If
          Else 
              Browser = "Microsoft Internet Explorer"
          End  If
    ElseIf  InStr(ua, "Mozilla" ) and  InStr(ua, "compatible" ) = 0  Then 
        If  InStr(ua, "Mozilla/4" )  Then 
              Browser = "Netscape Navigator 4.x"
        ElseIf  InStr(ua, "Mozilla/3" )  Then 
              Browser = "Netscape Navigator 3.x"
          Else 
              Browser = "Netscape Navigator"
          End  If
    End  If

    If  InStr(ua, "Windows 95" ) or  InStr(ua, "Win95" )  Then 
        System = "Windows 95"
    ElseIf  InStr(ua, "Windows 98" ) or  InStr(ua, "Win98" )  Then 
        System = "Windows 98"
    ElseIf  InStr(ua, "Windows 3.1" ) or  InStr(os, "Win16" )  Then 
        System = "Windows 3.x/Windows NT 3.x"
    ElseIf  InStr(ua, "NT" ) or  InStr(oa, "NT" )  Then 
        System = "Windows NT"
    ElseIf  InStr(ua, "Mac" )  Then 
        System = "Mac"
        If  InStr(ua, "PowerPC" ) or  InStr(ua, "PPC" )  Then 
              System = "Mac PPC"
        ElseIf  InStr(ua, "68000" ) or  InStr(ua, "68K" )  Then 
              System = "Mac 68K"
          End  If
    ElseIf  InStr(ua, "X11" )  Then 
        System = "UNIX"
    End  If
    %>



    Larve Yazılım
    • Sayfa başına dön
    « Önceki başlık · Sonraki başlık »


      Forum Saati 21/5/2012, 21:00