Makale Sayfalama (Uzun makaleleri istenilen yerden bölüm sayfalama)

 

<%
Function parcala(gelen,shf)
If not INSTR(gelen,"|----kes----|") = 0 Then
dim bolunen,k
bolunen = Split(gelen,"|----kes----|",-1,1)
b = shf - 1
parcala = bolunen(b)
Else
parcala = gelen
End if
End Function

Function say(gelen)
If not INSTR(gelen,"|----kes----|") = 0 Then
dim bolunen
bolunen = Split(gelen,"|----kes----|",-1,1)
for i=1 to UBound(bolunen)
Response.Write " "&i&" "
next
End if
End Function
%>

Kullanımı :

<% ' verimizi belirliyoruz |----kes----| ile kesilecek yerleri belirliyoruz.

veri = "Başkanımız Aziz Yıldırım Avrupa?da sadece |----kes----| 12 statta bulunan ısıtma sistemini, |----kes----| Fenerbahçe Şükrü Saraçoğlu?na kazandırarak Türkiye?de bir ilke daha imza attı. Bu konuda çalışmalara başlanarak önce şeref tribünü, Fenerium ve maraton tribünlerine 450 adet |----kes----| ısıtma sistemi monte edildi. Ardından Telsim ve Migros |----kes----| tribünlerine de daha farklı ısıtma cihazları takılarak ligin 2. yarısında taraftarların hizmetine girecek. Bu sayede stadımızdaki sıcaklık en az 10 derece artarak soğuk kış aylarında oynanan maçlarda gelen başarılarla da bahar havası yaşanacak. "

shf = request.QueryString("shf") ' ile gelen sayfayı alalım
if shf = "" or shf = 0 then shf = 1 'eğer belirilmemiş veya sıfır ise 1 olarak atayalım

response.write parcala(veri,shf) 'burada gelen sayfaya göre iki parca arasını alıyoruz.

response.write "
" ' bir satır boşluk verelim :))

response.write say(veri) ' makaleyi sayfalayalım.

%>

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

makale sayfalama uzun makaleleri istenilen yerden bölüm sayfalama