Toplist sistemi

[LincolnSamet]

Toplist sistemi nasıl yazılır kodları

Basit Bir TOPLİST Sistemi Yazıcaz Hemde Hit Sistemlerinin Mantığını anlarsınız

Gerekenler

db.mdb

Tablo adı : toplist (id : autonumber , site : text , Adres : text , Hit : number)

default.asp
----------
Kodlar
---------

<%
'----------------------------------------
'///Db Bağlanrısı
set baglanti = server.createobject("adodb.connection")
baglanti.open "Provider=Microsoft.Jet.Oledb.4.0;data source=" & Server.Mappath("db.mdb")
'-----------------------------------------
'///Rs Bağlantısı
set rs=server.createobject("adodb.recordset")
sql="select * from toplist order by hit desc" ' hiti Yüksek olan Üste Çıksın dedik
rs.open sql,baglanti,1,3
'-----------------------------------------
if rs.eof then ' Veritabanında site girilmemişse..
Response.write "Hiç Bir tane site Eklenmemiiş !!"
end if ' ifi Kapattık

do while not rs.eof ' Döngümüzü Başlattık
' Tagımızı kapattık Çünkü Html kodları araya girecek asp tagı içinde olmasın diye
%>
<table border="1" width="500" cellspacing="0" cellpadding="0">
 <tr>
  <td>&nbsp;Site İsmi : <%=rs("site")%></td>
  <td>&nbsp;<%=rs("hit")%></td>
  <td>
  <p align="center">&nbsp;<a href="git.asp?id=<%=rs("id")%>">Git</a></td>
 </tr>
</table>

<%
rs.movenext' Dön gümüz Bİtii.
loop 
%>
-----------------------------------------------
Şimdi Git.asp
-----------
Kodlar
-----------
<%
'-----------------------
'//Db Bağlantısı
set baglanti = server.createobject("adodb.connection")
baglanti.open "Provider=microsoft.jet.Oledb.4.0;data source=" & server.Mappath("db.mdb")
'--------------------------------
 ' default.asp de gitaspye link verirken id alı bir strinf kullandık onu çağrıyoruz
'//Rs bağlantısı
id = request.querystring("id")
set git=server.createobject("adodb.recordset")
sql="select * from toplist where id="&id&" order by hit desc" 'Veritabanındaki id hangi idye eşitse ona işlem yapılsın
git.open sql,baglanti,1,3 ' Coded by Oksiyus
'--------------------------------
'şimdide Hit Eklenme Bölümünü Yapalım Çok Basit

git("hit") = git("hit") + 1 ' Veritabanınddaki Hit Kaçsa Ondan Birtane Fazla olsun Yani Hit Birtane artsın siz bir yerine ikide arttırabilirsiniz
git.update
response.redirect ""&git("adres")&""
git.close
set git=nothing
baglanti.close
set baglanti= nothing
%>

-----------------------

[favorites]

ya arkadaş
bir sürü post atıyorsun kopyala - yapıştır ama abartılı yapıyorsun bu işi sanırım.
biraz dinlen istersen ?

Burası forum, kütüphane değil..bu kadar post atacağına ve bilgi sahibi isen, kategorilerdeki" soruları cevaplamayı " dene.
daha faydalı olacaksın inan.
yani gözüm yoruldu postlarını görmekten. kirlilik yapıyorsun gibime geldi yanlış anlama da.
attığın postlar zaten alakalı sitelerde mevcut. bilgi paylaşmak istiyorsan onlarca soru var forumda, onları cevaplamaya çalış. 1 günde 100 post atmanın anlamı yok yani.

her sayfayı yenilediğimde seni postlarını görüyorum copy-paste.
gelecek ay seni ayın üyesi yapacağız eğer bu postları bırakırsan..söz oyum da sana..

[cevirmen]

bir kac gunluk uye olarak 100 uzerine cikmissin ben kac aydir (demistim ama 1 yil olmus uye olali) uyeyim daha 60 felan herhalde mesajim ama kendi bilgilerini aktariyorsan sozumuz olamaz ama kopyalayip yapistiriyorsan buraya o cok yanlis.

[LincolnSamet]

belki haklsınız ama sonuçta bu konu forumda yok,

bulunmuş bişeyi öğrenmeden yeni bişey nasıl bulabilirizki bence

yanlış düşünüyosunuz..sonuçta burda anlatılmış bişey tekrarmı anlatıcamki

(yanlış düşünüyosam söyleyin)

ayrıca istersen 50 yıl üye ol 1 mesaj ol benim için farketmez ..Ben sadece kendime bakarım..

favorites:Burası forum, kütüphane değil

bulunduğumuz alt forumun adı ASP Hazır Kodlar / ASP Kütüphane

..

[favorites]

"benim için farketmez " deyipo kestirip atamazsın. burası yol geçen hanı değil.forum.belli kuralları var.
100 mesaj atmışsın. hepsinin toplam okunma sayısı 50 bile değil. yani post kasmak için kirlilik yapma. her açtığın konu sağdan soldan ( ç )alıntı. kaynak bile göstermiyorsun.
forumda tek bir soruya cevap yazmamışsın. ha 2 tane soru cevapla yardımcı ol eyvallah..o ayrı konu.

[LincolnSamet]

forumun kurallarına uymazsam banlanırım ..
50 kere okunmuştur 1 gün oldu konular açılalı sonuçta makale değil
bilinen scriptler kütüphane sonuçta burası(bu alt forum yani)

ya eğer kirlilik yapıyosa söyle admine silsin ya uğraşmak istemiyorum artık konularla
..

[zdearban]

ya eğer kirlilik yapıyosa söyle admine silsin ya uğraşmak istemiyorum artık konularla

kızmak yerine uyarı yapan arkadaşı dinlemek daha doğru, sonuçta bu forum diğerlerinden farklı, okadar çok saygın insanlar varki, seni uyaran arkadaşlar olmasa o saygın ve yardım alabilceğin insanlara ulaşman mümkün değil. umarım nedemek istediğimi anladın