www.kolyesesli.com

Miliotta · #1 12-03-2008, 13:03

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

%>

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

Ş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

%>

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

Bu Kadar.. İyi Günler

Alıntıdır

Benzer Konuları Oku
Konu	Konu Açan	Forum	Cevap	Son Mesaj
yeni toplist	dartanyan69	Hit - Ziyaretci Kaynakları	0	15-02-2010 20:36
toplist sitesinden link takası	enflow	Banner Değişim	1	09-02-2010 13:12
Kodsuz toplist site ekleyin	bucakrali	Webmastersitesi çöplüğü	11	12-12-2008 13:34
pr 2 toplist le link değişimi	banauyar	Link Değişimi	0	23-06-2008 11:24
pr 2 toplist - karşılıksız sitenizi ekleyin.	banauyar	Toplistler	0	23-06-2008 11:16

www.kolyesesli.com

25 Şubat 2010 Perşembe

www.kolyesesli.com bekleriz

Toplist sistemi"

Hiç yorum yok:

Yorum Gönder

İzleyiciler

Blog Arşivi

Hakkımda

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)