Çevrim içi ziyaretçi rekoru!

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Merhabalar,

Kendi siteme bir eklenti yaptım. Bu eklentiye yönelik birçok eposta alıyorum. Burada da yayınlamak istedim, hoşunuza gideceğini düşünüyorum.
Sayfanın altında Çevrim içi üyelerin altında o ana kadar ki çevrim içi kullanıcı rekorunu yazıyor.

Kodlara geçmeden önce örnek için www.halidiye.com/YeniForum adresine bakabilirsiniz.

Şöyle başlayalım..
İlk önce default.asp dosyasında aşağıdaki 
kod satırlarını bulun;

'Calculate the number of members 
online and total people online
 intActiveUsers = UBound(saryActiveUsers, 
2)
 intActiveMembers = intActiveUsers - 
intActiveGuests

 Response.Write(strTxtInTotalThereAre & " " & 
intActiveUsers & " <a href=""active_users.asp" & strQsSID1 & 
""">" & strTxtActiveUsers & "</a> " & strTxtOnLine & ", 
" & intActiveGuests & " " & strTxtGuestsAnd & " " & 
intActiveMembers & " " & strTxtMembers)
 If strMembersOnline <> 
"" Then Response.Write(vbCrLf & "   <br />" & strTxtMembers & 
" " & strTxtOnLine & ": " & strMembersOnline)
End If

Bu kodların hemen altına aşağıda verdiğim 
kodları ekleyin;

Response.Write "<br /><br 
/>"
Dim MetinDosyasi2, sayi, metin
Set DosyaSistemi = 
Server.CreateObject("Scripting.FileSystemObject")
Set MetinDosyasi = 
DosyaSistemi.OpenTextFile(Server.MapPath("rekorsayi.txt"),1,-1)
Set 
MetinDosyasi2 = 
DosyaSistemi.OpenTextFile(Server.MapPath("rekormetin.txt"),1,-1)
sayi = 
MetinDosyasi.ReadAll
MetinDosyasi.Close
MetinDosyasi2.Close

if CInt(intActiveUsers) > 
CInt(sayi) then
Set MetinDosyasi = 
DosyaSistemi.CreateTextFile(Server.MapPath("rekorsayi.txt"))
Set 
MetinDosyasi2 = 
DosyaSistemi.CreateTextFile(Server.MapPath("rekormetin.txt"))
      'Set 
MetinDosyasi = 
DosyaSistemi.OpenTextFile(Server.MapPath("rekorsayi.txt"),8,-1)
      'Set 
MetinDosyasi2 = 
DosyaSistemi.OpenTextFile(Server.MapPath("rekormetin.txt"),8,-1)
MetinDosyasi.Write 
CStr(intActiveUsers)
metin = "Site çevrim içi kullanıcı rekorumuz "& 
now() &" tarihinde <B>"& intActiveGuests &"</B> 
ziyaretçi ve <B>"& intActiveMembers &"</B> üye ile toplam 
<B>"& intActiveUsers &"</B> kişidir."
MetinDosyasi2.Write 
CStr(metin)
MetinDosyasi.Close
MetinDosyasi2.Close
end if

Set MetinDosyasi2 = 
DosyaSistemi.OpenTextFile(Server.MapPath("rekormetin.txt"),1,-1)
metin = 
MetinDosyasi2.ReadAll
MetinDosyasi2.Close

Set DosyaSistemi = 
Nothing
Response.Write metin

Bunları yaptıktan sonra sitenin 
dosyalarının arasına (Default.asp nin yanına) iki tane metin belgesi açmalısınız.
rekormetin.txt
rekorsayi.txt

Bunlara kontrol panelinizden yazma izni 
vermeniz lazım, yoksa hata verir.
Bunları yaptıktan sonra 
çalışacaktır.

Kolay gelsin, iyi çalışmalar.

Not: İngilizce bilmem, çevirmek isteyen arkadaşlar çeviriversinler.