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.
|