MyDesign | Kod Arşivi - Anasayfaya Dön   No banner in farm
Anasayfa Araştır Forum Gelişmiş Arama Siteniz İçin En Hit İçerikler RSS İçerik Ekle Scriptler Destekleyenler Kadromuz Reklam İletişim Giriş Sayfası Yap  Sık Kullanılanlara Ekle
Bu Kategorinin En Yeni Kodları:


Bu Kategorinin En Çok Görüntülenen Kodları:






Arama:
Gelişmiş Arama


No banner in farm



En Çok Görüntülenen Kodlar:


Üye Girişi:
 Üye Ol



Anasayfa > Asp > Kodlar

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

Uzun verileri istenilen yerden keserek sayfalamaya yarayan, forumlarda fazlasıyla görmem üzerine yazdığım bir kod.

İnşallah işinize yarayacaktır.

asp  sayfalama  makale  uzun metin 

Kategori : Asp
Gönderen : hakan.sen
Telif : Hakan Şen
Tarih : 25 Aral�k 2006
Örnek Dosya : Bulunmamakta
Okunma Sayısı : 10546
Puan
: 9,9 / 10 (7 Oy)
Puan Verin :
Google Bookmarks  del.icio.us  Digg  Yahoo! MyWeb  Windows Live  Furl
 
 
<%
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 " <a href='"&Request.ServerVariables("SCRIPT_NAME")&"?shf="&i&"'>"&i&"</a> "
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 "<br>" ' bir satır boşluk verelim :))

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

%>
 
 

Makale Sayfalama (Uzun makaleleri istenilen yerden bölüm sayfalama) için yazılan yorumlar

Serkan   { 29 Nisan 2008 }
Teşekkürler, güzel bir makale.

Yorum ekleyin

Anasayfa > Asp > Kodlar > Makale Sayfalama (Uzun makaleleri istenilen yerden bölüm sayfalama)
Kategoriler:


Forum:



Bağlantılar:


En Son Yorumlanan İçerikler:


Murat Yavuz | Site Haritası | Gizlilik Bildirimi | 54.224.83.221 | 0,14 Saniye
© Copyright 2004-2018 MyDesign | Kod Arşivi. Tüm Hakları Saklıdır.
MyDesign | Kod Arşivi, en iyi görünüm için, 1024x768 ve üzeri çözünürlük tavsiye eder.