Asp"De Veri Listeleme Sorunu?
-
Arkadaşlar benim yapmak istedigim bu kodda 3 tane ürün yan yana ve 3 üründe alt alta listelemek fakat aynı ürün resmi 9 kez listleniyor nerde yanlış yapıyorum yardımcı olabilirmisiniz?
<%
dim Baslangic,Bitis,SiraSayisi
Baslangic = 1
Bitis = 9
SiraSayisi = 3
%>
<% Do While Not rs.Eof %>
<table border="0" width="100%" >
<tr><% for i = Baslangic to Bitis %>
<td>
<table border="0" width="100" id="table1">
<tr>
<td colspan="2">
<img border="0" src="<%=rs("resim")%>" width="108" height="100">
</td>
</tr>
<tr>
<td >
<p style="text-align: right"><font color="#FF0000">Urunadı:</font></td></p>
<td > </td>
</tr>
<tr>
<td height="17" width="49" >
<p style="text-align: right"><font color="#FF0000">Fiyat:</font></td>
<td height="17" width="55"></td>
</tr>
<tr>
<td width="84" colspan="2">
<img border="0" src="images/incele.gif" width="65" height="20"></td>
</tr>
</table>
</td>
<%
If i mod SiraSayisi = 0 Then
Response.Write "</tr><tr>"
End If
Next
%>
</tr> <%
rs.MoveNext
Loop
%>
</table> -
bir örnek kod varsa ben kendim ordanda geliştirebilirim arkadaşlar?
-
ben resim sıralarken böyle yapıyorum bi bak bakalım belki bişeyler çıkar
<%
galeriSirala = 4
tablo = "Select * from resimler order by id desc "
resim.pagesize = 8
resim.open tablo,baglanti,1,3
if request.QueryString("s")="" or request.querystring("s")=0 then
s=1
else
s=request.QueryString("s")
end if
resim.AbsolutePage = s
%>
<CENTER>
<table width="146" align="center">
<tr>
<% for k=1 to resim.pagesize %>
<% if resim.eof or resim.bof then exit for %>
<% if yan=galeriSirala then
response.write ("<tr>")
yan=0
End if
%><td width="171">
<table width="136" height="120" border="0" align="center" bordercolor="#F3EFE5">
<tr>
<td width="130" height="15" bgcolor="#F4F2F0">
<div align="center"><a href="resimdetay.asp?x=<%=resim("id")%>"><%=resim("baslik")%> </a></div></td>
</tr>
<tr>
<td ><div align="center"><img border="0" src="<%=resim("resim")%>" width="100" height="75" align="center" /></div></td>
</tr>
</table>
</td>
<% yan=yan+1
if yan = (galeriSirala+1) then
response.write ("</tr>")
end if
%>
<%
resim.movenext : next
%>
</table>
<% for x=1 to resim.pagecount %>
<a href="?s=<%=x%>" class=ler><%=x%></a>
<% next %>
<br />
<font color="#999999">Toplam</font> <%=resim.recordcount%> <font color="#999999">Resim Bulunmaktadır.</font>
</p> -
* * *
* * *
* * *
1-2-3-4-5
Not:*'lar resim
gibi yapmaya çalışıyorum EmQceR
-
iyi yanımdan kalkmısım :)
denemedim ama calısır, oturdum inceledim yazdım :)
umarım işini görür kolay gelsin
<%
dim Baslangic,Bitis,SiraSayisi
Baslangic = 0
Bitis = 9
SiraSayisi = 3
%>
<table border="0" width="100%" ><% Do While Not rs.Eof
if Baslangic< 9 then%>
<tr>
<td>
<table border="0" width="100" id="table1"><tr>
<td colspan="2">
<img border="0" src="<%=rs("resim")%>" width="108" height="100">
</td>
</tr><tr>
<td >
<p style="text-align: right"><font color="#FF0000">Urunadı:</font></p>
</td>
<td >
</td>
</tr>
<tr>
<td height="17" width="49" >
<p style="text-align: right"><font color="#FF0000">Fiyat:</font></td>
<td height="17" width="55"></td></tr>
<tr>
<td width="84" colspan="2">
<img border="0" src="images/incele.gif" width="65" height="20"></td>
</tr></table>
</td>
<%
Baslangıc=Baslangıc+1
If Baslangic mod SiraSayisi = 0 Then
Response.Write "</tr>"
End If
End ifrs.MoveNext
Loop%>
</table> -
@qral tşkler ugraşdıgın için saol yanlız alt altda sıraladı resimleri :).! istedigim şekildeki gibi yapmak ama yapiyorum yukardaki kodlarla her bir ürün için şekildeki gibi çıkıyor yani 3 yandan 3 aşağıdan 9 tane çıkıyor..!
* * *
* * *
* * *
1-2-3-4-5
Not:*'lar resim
-
yanyana sıralamak için asp koduna gerenk yok =) css gibi büyük bi nimet varkene =) ama sayfalama icin kullanırsn, üstte vermisler zaten sayfalama kodunu.
<div style='width:300px">
<%while not rs.eof and i < 9%>
<div style='float:left;width:98px; height:200px;margin:0px 1px 1px 0px; background:blue; color:white;">
<%=rs("sutunadi")%>
</div>
<%i=i+1:rs.movenext: wend%>
<div style='clear:both'></div>
</div>
ben bu sekilde kullanıorum. hem kolay hemde kod kalablıgı olmuyor. stili kendine göre ayarlarsn. float lara dokunma. alt divlerin width degerinin ana divin 3 te biri olması gerek.
-
al hoja istediğin kadar sayfalar sıralar düzenler vs
<%
Set foxxly = server. CreateObject("ADODB.Recordset")
kayit = "Select * from haber order by id desc"
foxxly.Open kayit,sur,1,3
'Yapacağımız sayfalama için tanımlama
shf = Request.QueryString("shf")
if shf="" then
shf=1
end if
%>
<table width="100%" align="center" cellpadding="3" cellspacing="1" class="tableBorder" height="54">
<tbody>
<tr class="tableLedger">
<td align="left" height="14"><div align="center">..:: <%=siteadi%> |
Galeri ::.. </div></td>
</tr>
<tr class="tableRow">
<td height="132">
<body link="#FF3300" vlink="#FF3300" alink="#FF3300">
<CENTER>
<table width="1" align="center" cellpadding=3 cellspacing=0>
<tr>
<%
foxxly.pagesize = 28 ' bir sayfada kaç veri çıkacaksa
foxxly.absolutepage = shf
sayfa = foxxly.pagecount
for i=1 to foxxly.pagesize
if foxxly.eof then exit for
haberSirala = 3 ' yan yana kaç tane sıralayacaksan
%>
<% if yan=haberSirala then
response.write ("<tr>")
yan=0
End if
%><td width="326">
<table style="border: 1px solid rgb(207, 221, 240);" cellpadding="0" cellspacing="0" width="70">
<tr>
<td style="padding: 0pt 5px 5px;" width="1">
<a href="<%=foxxly("url")%>" rel="lightbox[plants]"><img src="<%=foxxly("url")%>" border="0" height="96" width="96" ></a></td>
</tr>
</tbody>
</table>
</td>
<% yan=yan+1
if yan = (haberSirala+1) then
response.write ("</tr>")
end if
%>
<%
foxxly.movenext : next
%>
</td>
</tr>
</tbody></table>
</td></tr><tr><td colspan="3" height="1" width="529"></td></tr><tr>
<td valign="top" width="261" height="1">
</table>
<center>
<font face="Verdana"> <span class="style2">» Sayfa : <%
for y=1 to sayfa
if shf=y then
response.write y
else
response.write "<b> <a href=""galeri.asp?shf="&y&""">"&y&"</a></b>"
end if
next
%><br>
</span> </font></center>çalışıyor kodlar ben kullanıyorum.
-
FOXXLY çok tşk ederim sağolasın..!
-
<%
dim Baslangic,Bitis,SiraSayisi
Baslangic = 0
SiraSayisi = 3
%>
<table border="0" width="100%" >
<tr>
<% Do While Not rs.Eof
if Baslangic< 9 then%>
<td>
<table border="0" width="100" id="table1"><tr>
<td colspan="2">
<img border="0" src="<%=rs("resim")%>" width="108" height="100">
</td>
</tr><tr>
<td >
<p style="text-align: right"><font color="#FF0000">Urunadı:</font></p>
</td>
<td >
</td>
</tr>
<tr>
<td height="17" width="49" >
<p style="text-align: right"><font color="#FF0000">Fiyat:</font></td>
<td height="17" width="55"></td></tr>
<tr>
<td width="84" colspan="2">
<img border="0" src="images/incele.gif" width="65" height="20"></td>
</tr></table>
</td>
<%
Baslangıc=Baslangıc+1
If Baslangic mod SiraSayisi = 0 Then
Response.Write "</tr><tr>"
End If
End ifrs.MoveNext
Loop%>
</table>yanlıs yere koymusum <TR> yi ondan öle olmus :)
neyse umarım işin görülmüştür kolay gelsin...
-
al şöle bişi olcak
<%
Set rs = server. CreateObject("ADODB.Recordset")
sql = "Select * from tablo order by id desc"
rs.Open sql,sur,1,3veri = Request.QueryString("veri")
if veri="" then
veri=1
end if
%>
<table width="100%" height="54">
<tbody>
<tr class="tableRow">
<td height="132"><body link="#FF3300" vlink="#FF3300" alink="#FF3300">
<CENTER>
<table width="1" align="center" cellpadding=3 cellspacing=0>
<tr>
<%
rs.pagesize = 10 'kaç veri olacaqı
rs.absolutepage = veri
sayfa = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then exit forhaberSirala = 3
%>
<% if yan=haberSirala then
response.write ("<tr>")
yan=0
End if
%><td width="326"><table style="border: 1px solid rgb(207, 221, 240);" cellpadding="0" cellspacing="0" width="70">
<tr>
<td style="padding: 0pt 5px 5px;" width="1">
<a href="<%=rs("url")%>" rel="lightbox[plants]"><img src="<%=rs("url")%>" border="0" height="96" width="96" ></a></td></tr>
</tbody>
</table></td>
<% yan=yan+1
if yan = (haberSirala+1) then
response.write ("</tr>")
end if
%>
<%
rs.movenext : next
%>
</td>
</tr>
</tbody></table>
</td></tr><tr><td colspan="3" height="1" width="529"></td></tr><tr>
<td valign="top" width="261" height="1">
</table><center>
<font face="Verdana"> <span class="style2">» Sayfa : <%
for y=1 to sayfa
if veri=y then
response.write y
else
response.write "<b> <a href=""galeri.asp?veri="&y&""">"&y&"</a></b>"
end if
next
%><br>
</span> </font></center>