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
Gerekenler
db.mdb
Tablo adı : toplist (id : autonumber , site : text , Adres : text , Hit : number)
default.asp
- Kod:
<%
'----------------------------------------
'///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> Site İsmi : <%=rs("site")%></td>
<td> <%=rs("hit")%></td>
<td>
<p align="center"> <a href="git.asp?id=<%=rs("id")%>">Git</a></td>
</tr>
</table>
<%
rs.movenext' Dön gümüz Bİtii.
loop
%>
- Kod:
<%
'//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 git aspye 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
'--------------------------------
'ş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
%>
» İşlem Yönetici 1.0.0.0
» Bilgisayarımı Kapat 1.0.0.2 - Kolay Windows Kapatıcı
» Bilgisayarımı Kapat 1.0.0.1 - Kolay Windows Kapatıcı
» Çemberin Çevresini Hesapla
» Visual Basic 2005 ile E-posta Göndermek
» Dosya adı ve Uzantı Ayırma
» C Programlama Diline Giriş
» C++'a Giriş : Hello World
» Visual Basic Nedir?
» Bilgisayarımı Kapat 1.0.0.0 - Kolay Windows Kapatıcı
» Html'ye giriş
» Java Script nedir?
» Php ile rasgele veri Listeleme
» Toplist yapma
» Veri sayfalama
» Puanlı üyelik Sistemi
» Sub Kullanımı
» Veritabanı İşlemi (kayıt eklme, kayıt silme)