Faruki | İhvan | Forum

Kim Cenâb-ı Hakk'ın zikrinde sebat ederse, Allah ona geniş bir geçim kolaylığı verip, ummadığı yerden rızıklandırır. Evinde,nefsinde,gönlünde ve kalbinde huzur bulur,mutlu olur.

Giriş yap

Şifremi unuttum

En son konular

» Selahaddin TAŞDEMİR
Perş. Mart 28, 2013 11:45 pm tarafından layezu

» Bayrak Resimleri
Cuma Nis. 02, 2010 2:23 am tarafından Admin

» Arkadaş Resimleri = 2...
Cuma Nis. 02, 2010 2:10 am tarafından Admin

» Arkadaş Resimleri =1.....
Cuma Nis. 02, 2010 2:07 am tarafından Admin

» Msn Nick Oluşturma Modül Kodu
Cuma Nis. 02, 2010 2:04 am tarafından Admin

» Türkçe Mp3 Player Kodu
Cuma Nis. 02, 2010 2:01 am tarafından Admin

» Giriş Ekle Giriş 1 Kodu
Cuma Nis. 02, 2010 1:59 am tarafından Admin

» Belgesel Videoları Kodu
Cuma Nis. 02, 2010 1:56 am tarafından Admin

» FlasH OyuNLar EkLe
Cuma Nis. 02, 2010 1:52 am tarafından Admin

» Flash Sattler
Cuma Nis. 02, 2010 1:46 am tarafından Admin

» Sitene Peygamberler TArihi Ekle
Cuma Nis. 02, 2010 1:28 am tarafından Admin

» sitene dini sorularla cevaplar ekle
Cuma Nis. 02, 2010 1:24 am tarafından Admin

» sitene duyuru panosu ekle html kod
Cuma Nis. 02, 2010 1:19 am tarafından Admin

» sağ üst köşe reklam alanı kodu
Cuma Nis. 02, 2010 1:17 am tarafından Admin

» sitene ilahi arama motoru ekle htm kodu
Cuma Nis. 02, 2010 1:15 am tarafından Admin

» sitene ilahi mp3 çalar html kodu
Cuma Nis. 02, 2010 1:13 am tarafından Admin

» Sitene Veda Hutbesi Ekle
Cuma Nis. 02, 2010 1:07 am tarafından Admin

» Not ortalama
Cuma Nis. 02, 2010 12:41 am tarafından Admin

» Ziyaretçi selamlama
Cuma Nis. 02, 2010 12:38 am tarafından Admin

» Daktilo yazisi
Cuma Nis. 02, 2010 12:37 am tarafından Admin

» Göz kirpan yazi
Cuma Nis. 02, 2010 12:33 am tarafından Admin

» Bugunku ve toplam hit... wap siteleri icin bire bir ( PHP ) script
Cuma Nis. 02, 2010 12:31 am tarafından Admin

» Mesaj yollama......
Cuma Nis. 02, 2010 12:28 am tarafından Admin

» Harf harf reknli yazi yapmak
Cuma Nis. 02, 2010 12:26 am tarafından Admin

» Kutu içerisinde çikan yazilar
Cuma Nis. 02, 2010 12:23 am tarafından Admin

» Downloader......
Cuma Nis. 02, 2010 12:21 am tarafından Admin

» Bu kod ile sayfanızda depremler yarata bilirsiniz :d
Cuma Nis. 02, 2010 12:18 am tarafından Admin

» Ziyaretci defteri......
Cuma Nis. 02, 2010 12:16 am tarafından Admin

» Google arama
Cuma Nis. 02, 2010 12:13 am tarafından Admin

» Tehlikeli bir tiklama
Cuma Nis. 02, 2010 12:09 am tarafından Admin

» Müzk dosyalarininiin bütününü çalin
Cuma Nis. 02, 2010 12:07 am tarafından Admin

» Üye girişi
Cuma Nis. 02, 2010 12:05 am tarafından Admin

» Görüş formu
Cuma Nis. 02, 2010 12:02 am tarafından Admin

» Sitenizdeki aktif kullanicilar ( AsP)
Cuma Nis. 02, 2010 12:01 am tarafından Admin

» En güzel kayan yazı
Perş. Nis. 01, 2010 11:59 pm tarafından Admin

» En iyi konuk defteri
Perş. Nis. 01, 2010 11:56 pm tarafından Admin

» Yükleniyor
Perş. Nis. 01, 2010 11:55 pm tarafından Admin

» Kayan yazı süper birşey
Perş. Nis. 01, 2010 11:53 pm tarafından Admin

» Sayfada yagmur
Perş. Nis. 01, 2010 11:52 pm tarafından Admin

» Sitende çok süper bir saat olsun
Perş. Nis. 01, 2010 11:51 pm tarafından Admin

» Farenin etrafında ismin dönsün
Perş. Nis. 01, 2010 11:49 pm tarafından Admin

» Online ziyaretci saysini
Perş. Nis. 01, 2010 11:48 pm tarafından Admin

» Hazır index
Perş. Nis. 01, 2010 11:42 pm tarafından Admin

» Hazır site sadece kodu ekle ve farkı gör
Perş. Nis. 01, 2010 11:40 pm tarafından Admin

» . Sitende enson teknoloji haberlerini bant panel halinde görüntüle
Perş. Nis. 01, 2010 11:38 pm tarafından Admin

» Sitene kamerali sesli chat ekle super
Perş. Nis. 01, 2010 11:37 pm tarafından Admin

» Günlük gazete ekle
Perş. Nis. 01, 2010 11:36 pm tarafından Admin

» Sitene gazete 1. sayfa ekle
Perş. Nis. 01, 2010 11:34 pm tarafından Admin

» Flash mp3 player
Perş. Nis. 01, 2010 11:32 pm tarafından Admin

» Poyraz internet cafe
Perş. Nis. 01, 2010 11:29 pm tarafından Admin

» Harika bir kod
Perş. Nis. 01, 2010 11:28 pm tarafından Admin

» Üniversite not hesaplama
Perş. Nis. 01, 2010 11:26 pm tarafından Admin

» Radyo Faruki'yi günün hangi saatlerinde dinliyorsunuz?
Perş. Nis. 01, 2010 3:16 am tarafından Admin

» Doğa & Manzara
Ptsi Mart 29, 2010 6:31 pm tarafından Admin

» Doğa & Manzara
Ptsi Mart 29, 2010 6:01 pm tarafından Admin

» Doğa & Manzara
Ptsi Mart 29, 2010 5:56 pm tarafından Admin

» Peygamber Efendimizin Hicreti
Ptsi Mart 29, 2010 5:47 pm tarafından Admin

» Şakk-ı Kamer Mu'cizesi
Ptsi Mart 29, 2010 5:43 pm tarafından Admin

» İlk Müslümanlar
Ptsi Mart 29, 2010 5:39 pm tarafından Admin

» Peygamberlikten Önce Dünya
Ptsi Mart 29, 2010 5:35 pm tarafından Admin

ONLİNE ZİYARETCİ

Bilgileriniz sistemimize kaydedilmektedir.

Tarıyıcı

Tarıyıcı

Anket

Radyo Faruki'yi günün hangi saatlerinde dinliyorsunuz?
50% 50% [ 1 ]
0% 0% [ 0 ]
0% 0% [ 0 ]
50% 50% [ 1 ]

Toplam Oylar : 2

REHBER

 

 

 

KASET TANITIMI

Kasım 2017

PtsiSalıÇarş.Perş.CumaC.tesiPaz
  12345
6789101112
13141516171819
20212223242526
27282930   

Takvim Takvim

Anahtar-kelime


    Sitenizdeki aktif kullanicilar ( AsP)

    Paylaş
    avatar
    Admin
    Admin

    Mesaj Sayısı : 260
    Kayıt tarihi : 22/03/10

    Sitenizdeki aktif kullanicilar ( AsP)

    Mesaj tarafından Admin Bir Cuma Nis. 02, 2010 12:01 am

    Kod:
    <Object Runat="Server" Scope="application" ID="dOnlineUsers" ProgID="scripting.Dictionary"></Object>

    <script LANGUAGE=VBscript RUNAT=Server>
    sub Application_OnStart
        application("ServerStart") = now
    end sub
    function Decrypt(sText)
        Decrypt = sText
    end function   

    function adZero(sText)
        if isNull(sText) then exit function
        adZero = string(5 - len(sText), "0") & sText
    end function

    Sub Session_OnStart


        Session.TimeOut = 5
        sAktifUsrList = application("AktifUsrList")
       
        sNewUserName = Decrypt(request.cookies("isim")+ request.cookies("soyisim"))
       
        if sNewUserName = "" then sNewUserName = "Ziyaretci-" & AdZero(CInt(application("Ziyaretci")))
       
        sLastActionTime = Time
       
        sUserInfo = sNewUserName & "<|>" & sLastActionTime & "<|>" & sLastPageViewed


        dOnlineUsers.Add Session.SessionID, sUserInfo
       
        application.lock
        application("AktifUsr") = application("AktifUsr") + 1
        application("Ziyaretci") = application("Ziyaretci") + 1
       
        if application("TodaysDate") <> Date() then
            application("PageViewsToday") = 0
            application("ZiyaretciToday") = 0
        end if
        application("ZiyaretciToday") = application("ZiyaretciToday") + 1
        application("TodaysDate") = Date()
        application.unlock
       
    End Sub

    Sub Session_OnEnd

        on error resume next
        dOnlineUsers.Remove Session.SessionID
     
        application.lock
        application("AktifUsr") = application("AktifUsr") - 1
        application.unlock

    End Sub
    </script>



    sub Application_OnStart
    application("ServerStart") = now
    end sub
    function Decrypt(sText)
    Decrypt = sText
    end function

    function adZero(sText)
    if isNull(sText) then exit function
    adZero = string(5 - len(sText), "0") & sText
    end function

    Sub Session_OnStart


    Session.TimeOut = 5
    sAktifUsrList = application("AktifUsrList")

    sNewUserName = Decrypt(request.cookies("isim")+ request.cookies("soyisim"))

    if sNewUserName = "" then sNewUserName = "Ziyaretci-" & AdZero(CInt(application("Ziyaretci")))

    sLastActionTime = Time

    sUserInfo = sNewUserName & "<|>" & sLastActionTime & "<|>" & sLastPageViewed


    dOnlineUsers.Add Session.SessionID, sUserInfo

    application.lock
    application("AktifUsr") = application("AktifUsr") + 1
    application("Ziyaretci") = application("Ziyaretci") + 1

    if application("TodaysDate") <> Date() then
    application("PageViewsToday") = 0
    application("ZiyaretciToday") = 0
    end if
    application("ZiyaretciToday") = application("ZiyaretciToday") + 1
    application("TodaysDate") = Date()
    application.unlock

    End Sub

    Sub Session_OnEnd

    on error resume next
    dOnlineUsers.Remove Session.SessionID

    application.lock
    application("AktifUsr") = application("AktifUsr") - 1
    application.unlock

    End Sub

      Forum Saati C.tesi Kas. 18, 2017 5:56 pm