Sayfadaki uzun yazılari sınırlayarak sayfalama yapmak

scrol · 29 Mart 2007

Arkadaslar ben wap sitelerim icin bi haber scripti yaptim. yanliz soyle bir sorun var mesela cok uzun bi haber oldugu zaman cep telleri sayfayi acmakta zorlaniyor. istiyorum ki db deki haber alanindan cektigi bir veriyi belli bir karakterler bir sayfada sinirlamasini ve diger sayfalarda devamini gostermesini mesela 1000 karakterlik bir yazı varsa bunu 250 250 olarak 4 sayfa halinde gostermesi. kod bu. buna nasil bi duzenleme yapabiliriz

Kod:

<p align="left">

<%
			id=request("id")
			Set Rs=Server.CreateObject("Adodb.Recordset")
			sorgu = "Select * from haber where id="&id&""
			Rs. Open Sorgu, Bag, 1, 3
			rs("oku")=rs("oku")+1
			rs.update
			%>

<b><small><%=rs("ad")%></small></b><br/>

<small><%=rs("detay")%></small><br/><br/>

<small>Bu haber <b><%=rs("tarih")%></b> tarihinde <b><%=rs("yazan")%></b> tarafindan gonderildi ve <b><%=rs("oku")%></b> defa okundu</small><br/>




<%
			rs.close
			set rs=nothing
			bag.close
			set bag=nothing
			%>

</p>

scrol · 31 Mart 2007

arkadaslar bu soruna cvp verebilecek bi asp ci yokmu. belki biraz zaman ayiracaksiniz ama verdiginiz cevap size dua etmemi saglayacak cunku cok onemli benim icin

db.gen.tr · 31 Mart 2007

PHP:

<p align="left">
<% id=request("id")
set rs = Bag.execute("Select detay, ad, tarih, yazan, oku from haber where id="&id&" order by id desc")
set oku = Bag.execute("Update haber SET oku= oku+1 where id = "& id  &"")
uzunluk = len(rs("detay"))
for i = 1 to uzunluk
if i <= 250 and i mod 250 = 0 Then%>
<b><small><%=rs("ad")%></small></b><br/>
<small><%=left(rs("detay"),250)%></small>
<%elseif i > 250 and i mod 250 = 0 Then%>
<small><%=mid(rs("detay"),250,500)%></small>
<%elseif  i > 500 and i mod 250 = 0 Then%>
<small><%=mid(rs("detay"),500,750)%></small>
<%elseif  i > 750 and i mod 250 = 0 Then%>
<small><%=right(rs("detay"),250)%></small><br/><br/>
<small>Bu haber <b><%=rs("tarih")%></b> tarihinde <b><%=rs("yazan")%></b> tarafindan gonderildi ve <b><%=rs("oku")%></b> defa okundu</small><br/>
<%end if
rs.movenext
next
bag.close
set bag=nothing
%>
</p>

Sayfalama olayını bilmiyorum wapta ama anladığım kadarıyla bu mantık işini görür sanırım...

Uykuluyum idare et

murdock · 31 Mart 2007

gönderdiğin kodlarda <%=rs("detay")%> bunu aşağıdaki ile değiştir.

<%=left(rs("detay"),180)%>

180 karakter sayısıdır.. kendine göre editlersin.

bide altına devamı.. şeklinde birşey yaparsın.. tıklayınca yazının tamamı gözükür.. o sayfayıda yapmak için verdiğin kodu o sayfaya yapıştır. sayfa haber.asp ise.. haber.asp?id=222 diye ayarlasan devama tıklayınca gösterir..

idleri otomatik belirlesin istiyosanda aşağıdaki kodu editle arkadaşım..

<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("aaaas/aaa.mdb")
%><%
response.expires=0
set rs=server.createobject("adodb.recordset")
sql="select haber.* from haber order by kimlik desc"
rs.open sql,baglanti,1,3
Session.CodePage = 1254
syf=request.querystring("syf")
if syf="" then
syf=1
end if%>
<%rs.pagesize=4
rs.absolutepage=syf
for i=1 to rs.pagesize
if rs.eof then exit for
%>

Sayfadaki uzun yazılari sınırlayarak sayfalama yapmak

scrol

0

scrol

0

db.gen.tr

0

murdock

0

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5