Asp İle Mysql Verilerini Sayfalama Sorunu

27/Nis/13 03:20

Kısayol

Şikayet

Özel Mesaj

lepusmorris

Kayıt Tarihi: 31/Mart/2007

bir sürü kod denedim hiç birini çalıştıramadım yahu. elinde çalışan kod olupta paylaşan olursa büyük sevap point kasmış olur valla.

..

Alıntı yap

27/Nis/13 03:45

Kısayol

Şikayet

Özel Mesaj

WALLACEs

Kayıt Tarihi: 17/Eylül/2005

access, mssql ikisini de sayfalayan sistem mysql'i de sayfalar zannedersem. benim portala bi bak.

TBT'ye Mescit istiyoruz.

Alıntı yap

27/Nis/13 05:53

Kısayol

Şikayet

Özel Mesaj

lepusmorris

Kayıt Tarihi: 31/Mart/2007

WALLACEs bunu yazdı

access, mssql ikisini de sayfalayan sistem mysql'i de sayfalar zannedersem. benim portala bi bak.

yok hocam AbsolutePage zımbırtısı mysql de çalışmıyor ama 3-4 saat sürsede hallettim en sonunda. hatta yaktım sigarayı sayfalarda geziyorum:D:D ilgi alakana teşekkür ederim ayrıca (y)

..

Alıntı yap

27/Nis/13 14:17

Kısayol

Şikayet

Özel Mesaj

angels_demos

Kayıt Tarihi: 03/Haziran/2006

mysql özelliklerini kullan. limit mesela. vs. asp mysql sayfalama yaz oldukça örnek çıkıyor biraz kurcalarsan yaparsın

Alıntı yap

27/Nis/13 16:39

Kısayol

Şikayet

Özel Mesaj

camarade
ontedi

Kayıt Tarihi: 04/Eylül/2005

Anlamadığın yer olursa yardımcı olmaya çalışırım

'#############################################
'Sayfalama (BAŞLANGIÇ)
'#############################################
Function fnSayfalama(byVal strAdres_Satiri, byVal intGecerli_Sayfa, byVal intSayfa_Sayisi)
    Response.Write "<div class=""sayfalama_kapsul"">"
    If Int(intGecerli_Sayfa) =< Int(intSayfa_Sayisi) Then
		intSayfa_Araligi = 2
		
		intSayfa_Alt_Siniri = intGecerli_Sayfa - intSayfa_Araligi
		intSayfa_Ust_Siniri = intGecerli_Sayfa + intSayfa_Araligi
		intSol_Grup_Sayisi = 1 + intSayfa_Araligi
		intSag_Alt_Sinir = intSayfa_Sayisi - intSayfa_Araligi

        '//Adım 1
		If (intSayfa_Ust_Siniri > intSayfa_Sayisi) Then
			intSayfa_Alt_Siniri = intSayfa_Sayisi - (2 * intSayfa_Araligi)
			intSayfa_Ust_Siniri = intSayfa_Sayisi
		End If

        '//Adım 2
		If (intSayfa_Alt_Siniri <= 0) Then
			intSayfa_Alt_Siniri = 1
			intSayfa_Ust_Siniri = intSayfa_Alt_Siniri + (2 * intSayfa_Araligi)
			If intSayfa_Ust_Siniri >= intSayfa_Sayisi Then intSayfa_Ust_Siniri = intSayfa_Sayisi
		End If

        '//Adım 3
		If intSol_Grup_Sayisi >= intSayfa_Alt_Siniri Then intSol_Grup_Sayisi = intSayfa_Alt_Siniri - 1
		
        '//Adım 4
		If intSag_Alt_Sinir <= intSayfa_Ust_Siniri Then intSag_Alt_Sinir = intSayfa_Ust_Siniri + 1

        '//Adım 5
		If intGecerli_Sayfa > 1 Then
            %>
            <a href="<%=strAdres_Satiri%>&gecerli_sayfa=1" title="İlk Sayfa">[««]</a>
            <a href="<%=strAdres_Satiri%>&gecerli_sayfa=<%=intGecerli_Sayfa-1%>" title="Önceki Sayfa">[«]</a>
            <%
		End If

        '//Adım 6
		For i = 1 to intSol_Grup_Sayisi
			If CInt(i) = CInt(intGecerli_Sayfa) Then
				Response.Write "<a title="""&i&". Sayfa"" class=""secili"">"&i&"</a>"
			Else
				Response.Write "<a title="""&i&". Sayfa"" href="""&strAdres_Satiri&"&gecerli_sayfa="&i&""">"&i&"</a>"
			End If
		Next

        '//Adım 7
		If (intSayfa_Alt_Siniri - intSol_Grup_Sayisi > 1 ) Then Response.Write "<a>. . .</a>"

        '//Adım 8
		For i = intSayfa_Alt_Siniri to intSayfa_Ust_Siniri
			If CInt(i) = CInt(intGecerli_Sayfa) Then
				Response.Write "<a title="""&i&". Sayfa"" class=""secili"">"&i&"</a>"
			Else
				Response.Write "<a title="""&i&". Sayfa"" href="""&strAdres_Satiri&"&gecerli_sayfa="&i&""">"&i&"</a>"
			End If
		Next

        '//Adım 9
		If (intSag_Alt_Sinir - intSayfa_Ust_Siniri > 1) Then Response.Write "<a>. . .</a>"

        '//Adım 10
		For i = intSag_Alt_Sinir to intSayfa_Sayisi
			If CInt(i) = CInt(intGecerli_Sayfa) Then
				Response.Write "<a title="""&i&". Sayfa"" class=""secili"">"&i&"</a>"
			Else
				Response.Write "<a title="""&i&". Sayfa"" href="""&strAdres_Satiri&"&gecerli_sayfa="&i&""">"&i&"</a>"
			End If
		Next

        '//Adım 11
		If CInt(intGecerli_Sayfa) <> CInt(intSayfa_Sayisi) Then
        %>
            <a href="<%=strAdres_Satiri%>&gecerli_sayfa=<%=intGecerli_Sayfa+1%>" title="Sonraki Sayfa">[»]</a>
            <a href="<%=strAdres_Satiri%>&gecerli_sayfa=<%=intSayfa_Sayisi%>" title="En Son Sayfa">[»»]</a>
        <%
		End If
    End If
    Response.Write "</div>"
End Function
'#############################################
'Sayfalama (BİTİŞ)
'#############################################


'#############################################
'İçerik Listeleme Sayfası (BAŞLANGIÇ)
'#############################################
intIcerik_Sayisi = 6
intGecerli_Sayfa = fnTemizle(Trim(Request.QueryString("gecerli_sayfa")))
If intGecerli_Sayfa = "" OR IsNumeric(intGecerli_Sayfa) = False Then
	intGecerli_Sayfa = CInt(1)
Else
	intGecerli_Sayfa = CInt(Abs(intGecerli_Sayfa))
End If
If intGecerli_Sayfa = CInt(0) Then
	intGecerli_Sayfa = CInt(1)
End If

Set RS = adoCon.Execute("SELECT sutun1, sutun2 FROM ILGILI_TABLO LIMIT "&(intIcerik_Sayisi*intGecerli_Sayfa)-(intIcerik_Sayisi)&","&intIcerik_Sayisi)
If RS.Eof Then
	Response.Write "İçerik bulunamadı."
Else
	Set KD = adoCon.ExeCute("Select COUNT(*) FROM ILGILI_TABLO")
	intToplam_Kayit = KD(0)
	Do While Not RS.Eof
        %>
		<%=RS("sutun1")%>
		<%=RS("sutun2")%>
		Veritabanından gelen verileri burada yazdırabilirsin.
        <%
	RS.MoveNext
	Loop
	strAdres_Satiri = "?islem="&strIslem&"
	intSayfa_Sayisi = CInt(CInt(intToplam_Kayit) / CInt(intIcerik_Sayisi))
	Response.Write fnSayfalama(strAdres_Satiri, intGecerli_Sayfa, intSayfa_Sayisi)
End If
RS.Close
Set RS = Nothing
'#############################################
'İçerik Listeleme Sayfası (BİTİŞ)
'#############################################

ontedi tarafından 27/Nis/13 16:41 tarihinde düzenlenmiştir

Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.

Alıntı yap