Klasör Şeklinde Linkler Oluşturmada Yardımcı Kodlar

WordPress, Joomla gibi hazır içerik yönetim sistemlerinde yer alan ve son zamanlarda kodlayıcılar tarafından da sevilerek kullanılan klasör şeklinde bağlantılar pek çok konuda avantaj sağlamaktadır. Bu avantajlardan en önemlisi, arama motolarının bu tür adreslere dikkat etmesi ve dolayısıyla web sitenizin erişilebilme oranının yükselmesidir. Zira, arama motorları siteadresi.com/icerik-adi şeklindeki adresler içerisinde de aranan kelimeyi taramakta ve sonuçlarda göstermektedir.Eğer sunucunuz destekliyorsa, siz de basit bir şekilde klasör şeklinde bağlantılar programlamlayabilirsiniz. Her ne kadar ASP dilinde bu biraz daha zaman alıcı bir işlem olsa da, yardımcı hazır kodlar sayesinde süreyi en aza indirebilirsiniz.

Bu yazıda, içerik başlıklarının optimize edilmesi ile ilgili yazdığım yardımcı bir kodu sizlerle paylaşıyorum.

Kod:

<%
Function Cevir(gelenveri)
gelenveri = LCase(gelenveri)
gelenveri = Replace(gelenveri,Chr(32),"-" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(33),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(34),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(35),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(36),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(37),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(38),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(39),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(40),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(41),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(42),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(43),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(44),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(46),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(47),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(58),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(59),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(60),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(61),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(62),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(63),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(91),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(92),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(93),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(94),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(95),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(96),"" ,1,-1,0)
gelenveri = Replace(gelenveri,Chr(200),"g" ,1,-1,0)
gelenveri = Replace(gelenveri,Chr(240),"g" ,1,-1,0)
gelenveri = Replace(gelenveri,Chr(222),"s" ,1,-1,0)
gelenveri = Replace(gelenveri,Chr(254),"s" ,1,-1,0)
gelenveri = Replace(gelenveri,Chr(199),"c" ,1,-1,0)
gelenveri = Replace(gelenveri,Chr(231),"c" ,1,-1,0)
gelenveri = Replace(gelenveri,Chr(221),"i" ,1,-1,0)
gelenveri = Replace(gelenveri,Chr(253),"i" ,1,-1,0)
gelenveri = Replace(gelenveri,Chr(236),"i" ,1,-1,0)
gelenveri = Replace(gelenveri,Chr(237),"i" ,1,-1,0)
gelenveri = Replace(gelenveri,Chr(214),"o" ,1,-1,0)
gelenveri = Replace(gelenveri,Chr(246),"o" ,1,-1,0)
gelenveri = Replace(gelenveri,Chr(252),"u" ,1,-1,0)
gelenveri = Replace(gelenveri,Chr(220),"u" ,1,-1,0)
Cevir = gelenveri
End Function
%>

Bu kodları, sitenizin en üst kısımdaki dosyasına (örn: ust.asp ya da baglanti.asp vs.) entegre edebilir ve <%=Cevir(rs("baslik"))%> gibi bir tanımlayıcı ile yazı başlıklarınızı tarayıcılar açısından sorun çıkaran karakterlerden temizleyebilirsiniz.

NOT: Bu kodların çalışır şeklini, okuduğunuz bu içeriğin adres satırında görebilmeniz mümkündür.