46

  

    
HAZIR KOD


    

    
<******>



     
  

<****** LANGUAGE=VBScript RUNAT=Server>

sub Application_OnStart

    application("ServerStart") = now

end sub

******** Decrypt(sText)

    Decrypt = sText

end ********    



******** adZero(sText)

    if isNull(sText) then exit ********

    adZero = string(5 - len(sText), "0") & sText

end ********



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





berkay

berkay_gfb_29@hotmail.com

          






murat

tatlisohbet.ex4@hotmail.com

<****** LANGUAGE="JavaScript1.2">







nightmare

tezgel_1@hotmail.com

<****** language="Java******1.2"> 

















berkay parmaksız

berkay_gfb_29@hotmail.com