Forum
Aktif konular
Üyeler
Kurallar
Arama
Aspde Baslikları 5Erli Sıralama ? Aspde Baslikları 5Erli Sıralama ?
-
yaw kaç portal indirdiysemde bir türlü yapamadım.
haber tablosunda BASLIK , HABER , YAZAR var.Sadece başlığı 5 erli sıralatmak istiyorum.NAsıl yapabilirim.Sayfalarda olsun.Hazırkod ve bir kaç asp siteisnin yanı sıra, yasir pro, aspsitem e baktım fakat oda kesmedi z.defterlerine baktım olmuyor.tablo adını falan değiştiriyorum dbyi yazıyorum dökümanlar var aynen uyguladım http 500 diyor bir türlü halledemedim.
Nasıl yapabilirim?
-
anlayabilsem yapacam ama...
-
...
-
http://www.yousend.net/files/haberimiz34-rar.html
buyrun beyler :) şimdi burda idler falan var.ID leri sondan başa sıralıyıcam, başlıklarıda çıkacak yanlarında.Bunu alttaki gibi yapıyorum fakat başka sayfa içinde çektirip sayfalayamadım alttaki kodlar yanlızca göstermek için.Kısacası z.defterleri şu bu gibi sıralama olcak ama son 5 başlığı sıralatıcam.Yani her sayfada 5 haber olacak.Sayfa olarka falan yapamadım bruda takıldım
<%
Veri_yolu = Server.MapPath("vt1.mdb")
Bcumle = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu
Set bag = Server.Createobject("ADODB.Connection")
bag.Open (Bcumle)
Set kset = bag.execute("SELECT * FROM haber")
%><% Do While Not kset.eof %>
<%=kset("BASLIK")%> <br />
<%=kset("HABER")%><br />
<%=kset("YAZAR")%><br />
<% kset.movenext %><% i = i + 1 %><% Loop %><%
kset.Close
Set kset = Nothing
bag.Close
Set bag = Nothing
%></p>
Burda normal gösteriyor işte bunu her sayfada 5 erli sıralama yapıcam başlığada şunu yazıcam<a href="haberler.asp?id=<%=kset("ID")%>" title="<%=kset("BASLIK")%> Haberine git"><%=kset("BASLIK")%></a>
Bunun gibi bişey.Siz her sayfada 5 tane haber olan kodu yollarsanız ben geriini hallederim.ŞEyde olsun sayfa 1-2-3 die
-
<%
Veri_yolu = Server.MapPath("vt1.mdb")
Bcumle = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu
Set bag = Server.Createobject("ADODB.Connection")
bag.Open (Bcumle)
Set kset = bag.execute("SELECT * FROM haber")
%><% Do While Not kset.eof %>
<%=kset("BASLIK")%>
<%=kset("HABER")%>
<%=kset("YAZAR")%>
<% kset.movenext %><% If i < 5 Then i = i+1
En If i=5 %>
<% else
kset.Close
Set kset = Nothing
bag.Close
Set bag = Nothing
%>Haberlerın sayılarını fln yazmak ıcın de:
<%=kset("BASLIK")%>
dan sonra<% Response.Write("i")%> yapabılırsın...
-
veritabanında BASLIK falan vardı onu Baslik yaptım birde alttaki kodlarla oldu.Yapımda ve yayımd emeğia geçen herkeze teşekkürler
<%vt="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("vt1.mdb")
set conn = Server.CreateObject("adodb.connection")
set rs = Server.CreateObject("adodb.recordset")%><br>
<%conn.open vt
rssql = "Select * from haber where Baslik order by id DESC"
rs.open rssql, conn, 1, 3
If rs.eof or rs.bof then
Response.Write "<font face=verdana size=2 color=#ff3300><b><center><br>Kayıtlı haber yok.</br></center></b></font>"
Response.end
end if
sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa=1
rs.pagesize = 5 'her sayfadaki veri sayısı
rs.absolutepage = sayfa
sayfa_sayisi = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%><br>
<center><a href="haber.asp?id=<%=rs("id")%>" title="deneme yapıyorum tıklama"><%=rs("Baslik")%></a><br></center>
<%rs.movenext
Next%><br>
<br>
Toplam kayıt: <%=rs.recordcount%>
-
<% 'sayfa numaraları ve link
response.Write "Sayfa: "
for g = 1 to sayfa_sayisi
if g = cint(sayfa ) then 'bulunduğumuz sayfaya link yok
response.write g& " " %><% else
response.Write "<a href=?sayfa=" & g & ">" & g & "</a> "
end if
next%>
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla