Asp - Seo Sayfa Yapısında Sayfalama ??
-
çözemedim. olmadı basmadı .
default.asp linkler yazi/bilmemne-olmus-tamam-mı.html şeklinde burada sorun yok
default.asp'de sayfalama yaptım iyi hoş oldu. ?sayfa=1,2,3 şeklinde tabi bende /sayfa/1,2,3 şekline getirdim. 404'e geliyor. ondan sonra nasıl yeniden default'a çevirerek seçilen sayfadan devam etmesi gerektiğini sağlayamadım. yardım ederseniz yada arşivinde böyle bir uygulama olan varsa makbule geçer.
-
o takdirde splitle son kısmı alacaksın bunu sayfa döngüsünü bağladığın yere bağlayaksın.
-
hallettim fakat bir sorunum var
1. sayfadan herhangi bir sayfaya sonra yeniden 1.sayfaya geldiğimde ve herhangi bir link'i tıkladığımda çalışmıyor :|
normalde yazılar yazı/asdasd.htm şeklinde
sayfalandırma sayfa/1/ şeklinde
10.sayfaya geldim.sonra yeniden 1i tıkladım link sayfa/yazı oluyor
şöyle yaptım
Function bosluksuz(byVal veri)
If veri = "" Then Exit Function
veri = Replace(veri, Chr(32), "-",1,-1,0)
bosluksuz = veri
End Function
if (Session("sss"))<>"" then
intGecerliSayfa = Session("sss")
Session("sss") = null
else
intGecerliSayfa =request("intGecerliSayfa")
end if
If intGecerliSayfa = "" OR IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1
kategori.PageSize = 15
intSayfaSayisi= kategori.PageCount
kategori.AbsolutePage =intGecerliSayfa
response.write intGecerliSayfa&"
"For m = 1 to 15
If kategori.Eof Then Exit For
if not intGecerliSayfa<>1 then
response.write "-------"&""&kategori("altkategoriadi")&""&"
"elseif intGecerliSayfa<>1 then
response.write "-------"&""&kategori("altkategoriadi")&""&"
"end if
kategori.Movenext
Next
alt kısımda da sayfa noları var.
404 şöyle
degisken = Request.QueryString
gelenlink = split(degisken, "/")
if gelenlink(3) = "yazi" then
uzanti_bol = split(gelenlink(4), "-")
'işlemler vs.vs.
elseif gelenlink(3) = "sayfa" then
session("sss")=gelenlink(4)
Server.transfer("default.asp")
response.end
else
'404 yok sayfası
end if
-
tamamdır hallettim.
