USLANMAM

UslanmaM En Kaliteli Bilgi Adresiniz
USLANMAM öğesini iGoogle sayfanıza ekleyin.
Geri git   USLANMAM > PROGRAM > PROGRAMLAMA DİLLERİ > ASP, Perl, Php, Html
Php Veritabanındaki Bilgileri İki Sutun halinde Sayfaya Dökmek Php Veritabanındaki Bilgileri İki Sutun halinde Sayfaya Dökmek
UslanmaM Resim AlbümleriSosyal Gruplar
Özel Arama
Kayıt ol Sosyal Gruplar Ajanda Konuları Okundu Kabul Et

ASP, Perl, Php, Html ASP, Perl, Php, Html gibi her tür web programcılığı dili için yardım

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 05-14-2009, 11:19 AM   #1 (permalink)
{♥_♥} sürgün..{♥_♥}
 
Constantine - ait Kullanıcı Resmi (Avatar)
Standart Php Veritabanındaki Bilgileri İki Sutun halinde Sayfaya Dökmek
Konu : Veritabanındaki Bilgileri İki Sutun halinde Sayfaya Dökmek
Seviye : Orta
Kaynak Dosyalar :Linkleri Üyelerimiz Görebilir. UslanmaM Üyeliği İçin Tıklayın





Kod:
<% @ Language=VBScript CodePage="1254" %>
<%
Option explicit
Response.Buffer = true
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>ornek</title>
<aaaa http-equiv="aaaaaaa-Type" aaaaaaa="text/html; charset=iso-8859-9">
<style type="text/css">
<!--
body {
margin:0px;
padding:0px;
}
.sayfa {
font-family: Verdana Arial Helvetica sans-serif;
font-size: 12px;
font-weight:normal;
color: #ffcc00;
}
A.link_01:link {
font-family: Verdana Arial Helvetica sans-serif;
font-size: 12px;
font-weight:normal;
color: #0077b5;
text-decoration: none
}
A.link_01:visited {
font-family: Verdana Arial Helvetica sans-serif;
font-size: 12px;
font-weight:normal;
color: #0077b5;
text-decoration: none
}
A.link_01:active {
font-family: Verdana Arial Helvetica sans-serif;
font-size: 12px;
font-weight:normal;
color: #0077b5;
text-decoration: none
}
A.link_01:hover {
font-family: Verdana Arial Helvetica sans-serif;
font-size: 12px;
font-weight:normal;
color: #ffcc00;
text-decoration: none
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>
<table align="center" border="0" cellpadding="0" cellspacing="0" width="769" bgcolor="#ffffff">
<tr>
<td align="center" height="120">üst banner alanı</td>
</tr>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="1"><img src="resimler/bosluk.gif" alt="" width="1" height="1" border="0"></td>
<td align="center" width="160" valign="top">Sol menu</td>
<td width="1"><img src="resimler/bosluk.gif" alt="" width="4" height="1" border="0"></td>
<td width="600" valign="top">
<%
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")

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

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

dim strSqlKategori
strSqlKategori = "SELECT * FROM tblKategori"
objRsKategori.Open strSqlKategori objConn &H0001

Response.Write "<table align=""center"" border=""1"" cellpadding=""3"" cellspacing=""0"" width=""100%"">" & vbNewLine

if objRsKategori.EOF and objRsKategori.BOF then
Response.Write " <tr>" & vbNewLine & _
" <td height=""400"" align=""center"" valign=""middle"">Kayıt Yok!</td>" & vbNewLine & _
" </tr>" & vbNewLine

else

dim intToplamVeri
intToplamVeri = objRsKategori.RecordCount

dim intSutun
intSutun = 2

dim intSay
do while not objRsKategori.EOF

intSay = intSay + 1
if intSay Mod intSutun = 1 then
Response.Write " <tr>" & vbNewLine
end if

Response.Write " <td valign=""top""><a href=""kategori.asp?id=" & objRsKategori("KATEGORI_ID") & """ class=""link_01""><b>" & objRsKategori("KATEGORI_AD") & "</b></a><br>"
'/////////////////////////////////////////////////////////////////////////////////////////////////////////
dim objRsAltKategori
set objRsAltKategori = Server.CreateObject("ADODB.Recordset")
objRsAltKategori.Cursoraaaaaaaa = 2
objRsAltKategori.CursorType = 1
objRsAltKategori.LockType = 3

dim strSqlAltKategori
strSqlAltKategori = "SELECT * FROM tblKategoriAlt WHERE KATEGORI_ID = " & objRsKategori("KATEGORI_ID")
objRsAltKategori.Open strSqlAltKategori objConn &H0001
if not objRsAltKategori.EOF then
do while not objRsAltKategori.EOF
Response.Write "<a href=""altkategori.asp?kategori=" & objRsKategori("KATEGORI_ID") & "&altkategori=" & objRsAltKategori("KATEGORI_ALT_ID") & """ class=""link_01"">" & objRsAltKategori("KATEGORI_ALT_AD") & "</a><br>"
objRsAltKategori.MoveNext
loop
end if
objRsAltKategori.Close
set objRsAltKategori = Nothing
'/////////////////////////////////////////////////////////////////////////////////////////////////////////
Response.Write "</td>" & vbNewLine

if intSay Mod intSutun = 0 then
Response.Write " </tr>" & vbNewLine
end if

objRsKategori.MoveNext
loop

if intToplamVeri mod intSutun <> 0 then
dim i
for i = 1 to (intSutun - (intToplamVeri mod intSutun))
Response.Write " <td>&nbsp;</td>" & vbNewLine
next
end if
Response.Write " </tr>" & vbNewline
end if
Response.Write " </table>" & vbNewline


objRsKategori.Close
set objRsKategori = Nothing

objConn.Close
set objConn = Nothing
%>
</td>
<td width="1"><img src="resimler/bosluk.gif" alt="" width="4" height="1" border="0"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" height="40">sayfa altı</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>

Constantine isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla

Beğenilen Sayfayı İşaretleyin
Konuyla Alakalı Etiketler

« asp Veritabanından Bilgileri Güncellemek | Veritabanından Alınan Kayıtların Her Satırını Bir Önceki Satırdan Farklı Bir Renkle Sayfaya Dökmek. »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil
Normal Normal

Yetkileriniz
You may not post new threads
You may not post replies
Eklenti Ekleyemezsiniz
You may not edit your posts
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-KodlarıKapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık
Gitmek istediğiniz klasörü seçiniz

Benzer Konular
Konu Konuyu Başlatan UslanmaM Cevaplar Son Mesaj
Veritabanından Alınan Kayıtların Her Satırını Bir Önceki Satırdan Farklı Bir Renkle Sayfaya Dökmek. Constantine ASP, Perl, Php, Html 0 05-14-2009 11:22 AM
Veritabanından Bilgileri Sayfaya Dökmek Constantine ASP, Perl, Php, Html 0 05-14-2009 11:09 AM
sutun adı sorgusu (column name query) AsSeMbLy PROGRAMLAMA DİLLERİ 0 01-22-2008 10:34 PM
Sutun Tasmasini Onlemek... SuyunGizemi Pratik Bilgiler 0 03-30-2007 09:52 PM
Sutun Tasmasini Onlemek BoDyGuArD Pratik Bilgiler 0 01-20-2007 05:14 PM


Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 10:08 AM .
Üyelerimiz görüşlerini önceden onay olmadan anında yazabilmektedir, bu yazılardan dolayı doğabilecek sorumluluklar yazan kullanıcılara aittir, UslanmaM yoneticileri itina ile icerik kontrolleri yapmaktadir, yine de UslanmaM' da yasalara aykırı unsurlar bulursanız 04/05/2007 tarihli ve 5651 sayılı yasa gereği destek(@)uslanmam.com veya 0537 403 03 03 numaralı telefona bildirebilirsiniz, gereği yapılacaktır.
English Explanation: Our users can give their opinions without getting any approval in our site, all the responsibilities which can rise from these articles belong to these users, the managers of UslanmaM control the contents very carrefully, but if you find any item opposite to the rules destek(@)uslanmam.com or dial +90537 403 03 03

İletişim - Uslanmam - Arşiv - Yukarı git

Powered by vBulletin Version 3.8.4
Copyright ©2000 - 2010, Jelsoft Enterprises Ltd.'e Aittir.
Tercüme Eden : TEKplatform
Search Engine Optimization by vBSEO 3.2.0
[Gizlilik Politikası]-[UslanmaM Kuralları]-[UslanmaM İletişim/Contact]
Alexa
Sagopa Kajmer*Bilgi*izafet*Melekler Mekanı*Web Hattı*MaxiCep*araba