Veritabanından Alınan Kayıtların Her Satırını Bir Önceki Satırdan Farklı Bir Renkle Sayfaya Dökmek.

**Constantine** · 05-14-2009, 11:22 AM

Konu : Veritabanından Alınan Kayıtların Her Satırını Bir Önceki Satırdan Farklı Bir Renkle Sayfaya Dökmek.
Seviye : Basit
Kaynak Dosyalar : Linkleri Üyelerimiz Görebilir. UslanmaM Üyeliği İçin Tıklayın

Bu örneği veritabanından bilgileri sayfaya döktüğümüz örnek üzerinden göstereceğim.

Yapacağımız Uygulamanın görüntüsü

Bu işlemi yapan kodları kırmızı ile seçiyorum.

Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Veritabanından kayıt okumak</title>
<aaaa http-equiv="aaaaaaa-Type" aaaaaaa="text/html; charset=iso-8859-9">
</head>
<body>

<table border="1" cellpadding="0" cellspacing="0" width="100%">
<%
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")
'strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani.mdb")

dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

dim objRs
set objRs = Server.CreateObject("ADODB.Recordset")
objRs.CursorType = 0
objRs.Cursoraaaaaaaa = 2
objRs.LockType = 1

dim strSql
strSql = "SELECT * FROM tblUye"
objRs.Open strSql

objConn

&H0001

if objRs.EOF then
%>
<tr>
<td>Veritabanı boş</td>
</tr>
<%
else

dim intSayac
intSayac = 0

dim strRenk
do while Not objRs.EOF
if intSayac mod 2 then
strRenk = "#e8e8e8"
else
strRenk = "#ffffcc"
end if
%>
<tr bgcolor="<% = strRenk %>">
<td><% = objRs("UYE_ID") %></td>
<td><% = objRs("UYE_AD") %></td>
<td><% = objRs("UYE_SOYAD") %></td>
<td><% = objRs("UYE_MAIL") %></td>
<td><% = objRs("UYE_SEHIR") %></td>
<td><% = objRs("UYE_MESAJ") %></td>
</tr>
<%
intSayac = intSayac + 1
objRs.MoveNext
loop
end if

objRs.Close
set objRs = Nothing

objConn.Close
set objConn = Nothing
%>
</table>

</body>
</html>

05-14-2009, 11:22 AM	#1 (permalink)
Constantine {♥_♥} sürgün..{♥_♥}	Veritabanından Alınan Kayıtların Her Satırını Bir Önceki Satırdan Farklı Bir Renkle Sayfaya Dökmek. Konu : Veritabanından Alınan Kayıtların Her Satırını Bir Önceki Satırdan Farklı Bir Renkle Sayfaya Dökmek. Seviye : Basit Kaynak Dosyalar : Linkleri Üyelerimiz Görebilir. UslanmaM Üyeliği İçin Tıklayın Bu örneği veritabanından bilgileri sayfaya döktüğümüz örnek üzerinden göstereceğim. Yapacağımız Uygulamanın görüntüsü Bu işlemi yapan kodları kırmızı ile seçiyorum. Kod: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>Veritabanından kayıt okumak</title> <aaaa http-equiv="aaaaaaa-Type" aaaaaaa="text/html; charset=iso-8859-9"> </head> <body> <table border="1" cellpadding="0" cellspacing="0" width="100%"> <% dim strConn strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb") 'strConn = "Driver={Microsoft Access Driver (.mdb)}; DBQ=" & Server.MapPath("veritabani.mdb") dim objConn set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn dim objRs set objRs = Server.CreateObject("ADODB.Recordset") objRs.CursorType = 0 objRs.Cursoraaaaaaaa = 2 objRs.LockType = 1 dim strSql strSql = "SELECT FROM tblUye" objRs.Open strSql objConn &H0001 if objRs.EOF then %> <tr> <td>Veritabanı boş</td> </tr> <% else dim intSayac intSayac = 0 dim strRenk do while Not objRs.EOF if intSayac mod 2 then strRenk = "#e8e8e8" else strRenk = "#ffffcc" end if %> <tr bgcolor="<% = strRenk %>"> <td><% = objRs("UYE_ID") %></td> <td><% = objRs("UYE_AD") %></td> <td><% = objRs("UYE_SOYAD") %></td> <td><% = objRs("UYE_MAIL") %></td> <td><% = objRs("UYE_SEHIR") %></td> <td><% = objRs("UYE_MESAJ") %></td> </tr> <% intSayac = intSayac + 1 objRs.MoveNext loop end if objRs.Close set objRs = Nothing objConn.Close set objConn = Nothing %> </table> </body> </html>

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	UslanmaM	Cevaplar	Son Mesaj
Php Veritabanındaki Bilgileri İki Sutun halinde Sayfaya Dökmek	Constantine	ASP, Perl, Php, Html	0	05-14-2009 11:19 AM
Veritabanından Bilgileri Sayfaya Dökmek	Constantine	ASP, Perl, Php, Html	0	05-14-2009 11:09 AM
Merkez bankası'ndan kayıtların silinmesine ilişkin duyuru	TWEETY	Güncel HABERLER	0	01-28-2009 05:41 PM
» Payına Bir Harf Düşür Bu Satırdan «	_AyDaN_	Aşk Hikayeleri	1	10-24-2008 03:06 PM
Komut Satırını Renklendirin	BoDyGuArD	Donanım	0	02-28-2007 10:35 AM

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