folder Tahribat.com Forumları
linefolder Asp - Php - Cgi - Perl
linefolder ASP'de Global.Asa İle Sayfaya Giriş-Çıkış Zamanları [?]



ASP'de Global.Asa İle Sayfaya Giriş-Çıkış Zamanları [?]

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    nickalti
    Lightsaber
    Lightsaber's avatar
    Kayıt Tarihi: 29/Ağustos/2012
    Erkek

    Merhaba müridler..  Global.asa kullanarak bir kişinin o sayfaya giriş ve çıkış tarihlerini almaya çalışıyorum:

    <script language="vbscript" runat="server">
    Sub Session_OnStart
    if Session("sayfa") = "32452131" then
    Application("baslangic") = Now()
    end if
    end sub
    Sub Session_OnEnd
    if Session("sayfa") = "32452131" then
    Application("bitis") = Now()
    end if
    End Sub
    </script>

    Giriş - çıkış tarihlerini kullandığım sayfanın başına da şunu ekliyorum:

    if session("sayfa")<>"" then
    Session.Contents.Remove("sayfa")
    end if
    Session("sayfa") = "32452131"

    sonra da application("baslangic") değerini sayfaya yazdırmayı deniyorum ama boş çıkıyor,nerede  hata yapıyorum?


    İnsan; insan olsaydı,insan olmazdı..
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    nickalti
    Lightsaber
    Lightsaber's avatar
    Kayıt Tarihi: 29/Ağustos/2012
    Erkek

    up upp


    İnsan; insan olsaydı,insan olmazdı..
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    camarade
    ontedi
    ontedi's avatar
    Kayıt Tarihi: 04/Eylül/2005
    Erkek

    Application nesnesine o ziyaretçiye özel bir şey aktarman gerek. Ip gibi bir değer olabilir

    Application(ip & "giris") = Now()

     

    Bu değeri sayfanda yazdırabilirsin (Session ile uğraşma.)

    ontedi tarafından 14/Ağu/13 22:54 tarihinde düzenlenmiştir

    Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    nickalti
    Lightsaber
    Lightsaber's avatar
    Kayıt Tarihi: 29/Ağustos/2012
    Erkek
    ontedi bunu yazdı

    Application nesnesine o ziyaretçiye özel bir şey aktarman gerek. Ip gibi bir değer olabilir

    Application(ip & "giris") = Now()

     

    Bu değeri sayfanda yazdırabilirsin (Session ile uğraşma.)


    hocam böyle yaparsam kullanıcı sayfayı f5lediğinde veya başka sayfaya geçtiğinde nasıl o sayfadan çıkış süresini alabilirim ki? diğer sessionlarla çakışmaması için if else koydum ama application("baslangic")değeri boş.. 


    İnsan; insan olsaydı,insan olmazdı..
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    camarade
    ontedi
    ontedi's avatar
    Kayıt Tarihi: 04/Eylül/2005
    Erkek
    Lightsaber bunu yazdı
    ontedi bunu yazdı

    Application nesnesine o ziyaretçiye özel bir şey aktarman gerek. Ip gibi bir değer olabilir

    Application(ip & "giris") = Now()

     

    Bu değeri sayfanda yazdırabilirsin (Session ile uğraşma.)


    hocam böyle yaparsam kullanıcı sayfayı f5lediğinde veya başka sayfaya geçtiğinde nasıl o sayfadan çıkış süresini alabilirim ki? diğer sessionlarla çakışmaması için if else koydum ama application("baslangic")değeri boş.. 

    Hocam o zaman

    if (Application(ip & "giris") <> "")
    bla bla bla
    end if

     

    Bunun gibi bir şey kullanabilirsin.


    Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    nickalti
    Lightsaber
    Lightsaber's avatar
    Kayıt Tarihi: 29/Ağustos/2012
    Erkek
    ontedi bunu yazdı
    Lightsaber bunu yazdı
    ontedi bunu yazdı

    Application nesnesine o ziyaretçiye özel bir şey aktarman gerek. Ip gibi bir değer olabilir

    Application(ip & "giris") = Now()

     

    Bu değeri sayfanda yazdırabilirsin (Session ile uğraşma.)


    hocam böyle yaparsam kullanıcı sayfayı f5lediğinde veya başka sayfaya geçtiğinde nasıl o sayfadan çıkış süresini alabilirim ki? diğer sessionlarla çakışmaması için if else koydum ama application("baslangic")değeri boş.. 

    Hocam o zaman

    if (Application(ip & "giris") <> "")
    bla bla bla
    end if

     

    Bunun gibi bir şey kullanabilirsin.

    hocam benim yaptığımla aynı yere çıkmıyor mu bu da?


    İnsan; insan olsaydı,insan olmazdı..
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    camarade
    ontedi
    ontedi's avatar
    Kayıt Tarihi: 04/Eylül/2005
    Erkek
    Hocam, application ile session farklı niteliklere sahiptir.
    Session kullanma, application kullan.

    Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    nickalti
    Lightsaber
    Lightsaber's avatar
    Kayıt Tarihi: 29/Ağustos/2012
    Erkek

    hocam ifleri çıkardım sadece application kaldı. Session_onstart ve session_onend de applicationlara değer atıyorum..ancak şöyle bir sorunum var: sayfa f5lendiğinde bile yeni kullanıcı muamelesiyapmak istediğim için bir session belirledim- session("sayfa")- sayfa f5lendiğinde eğer boş değilse siliyorum sonra yeni bir değer atıyorum bu sayede session kapanıp yeni bir session açılmış gibi oluyor.. Daha doğrusu olması lazım ama olmuyor:

    if session("sayfa")<>"" then
    Session.Contents.Remove("sayfa")
    end if
    Session("sayfa") = "525347452363422" 'sabit bir değer

    Acaba session.contents.remove session yok etmeyip de sadece içeriğini mi siliyor da böyle oluyor? yoksa başka bir hata mı?


    İnsan; insan olsaydı,insan olmazdı..
  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    nickalti
    Lightsaber
    Lightsaber's avatar
    Kayıt Tarihi: 29/Ağustos/2012
    Erkek

    upp


    İnsan; insan olsaydı,insan olmazdı..
  10. KısayolKısayol reportŞikayet pmÖzel Mesaj
    camarade
    ontedi
    ontedi's avatar
    Kayıt Tarihi: 04/Eylül/2005
    Erkek
    <script language="vbscript" runat="server">
    Sub Session_OnStart
    strIP = Request.ServerVariables("REMOTE_ADDR")
    If Application(strIP&"baslangic") = "" OR IsNull(Application(strIP&"baslangic")) = True Then
    Application(strIP&"baslangic") = Now()
    End If
    end sub
    Sub Session_OnEnd
    strIP = Request.ServerVariables("REMOTE_ADDR")
    If Application(strIP&"bitis") = "" OR IsNull(Application(strIP&"bitis")) = True Then
    Application(strIP&"bitis") = Now()
    End If
    End Sub
    </script>

    Böyle bir dene istersen.


    Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.
Toplam Hit: 940 Toplam Mesaj: 10