ASP ile Seo Link yapımı

Seo Link yapımı ve 404 hata sayfası ile link yönetimini bir çok arkadaşımız eminim merak ediyor ve yapamıyordur.Eminim Çünki Bende Çok Uğraştım Zamanında

Biliyorsunuz ki Seo Link hemen hemen title kadar önemlidir google gibi arama motorlarında üst sıralara çıkmak için.
yazi.asp?id=1 yerine google yazi-1-asp-seo-yapimi.html tercih eder.

Şimdi Bu Linkleri Nasıl Yapacağınızı Anlatacağım.

Öncelikle muhakkak 404 hata sayfasını yapmamız lazım ki hatalı linkler oraya gelecek.
Genelde 404.asp derim adına Siz seo.asp hata.asp vs. istediğiniz adı koyabilirsiniz.


--- 404.asp ---

<%

Dim istekurl
Dim istekbolum
Dim istek1

Set istekurl = Request.ServerVariables("QUERY_STRING")
istekbolum = Split(istek****"/")
uzanti_bol = split(istekbolum(3), "-")

If uzanti_bol("0") = "yazi" Then ' yazi-id-baslik-.html olur ya iste o bastaki yazi burası.
Server.Execute("yazi.asp") ' hatalı link olarak direk bu sayfayı gösterecek

Else

Response.Write ("Aradığınız sayfa bulunamadı")

End if

%>

plesk panelimizden 404.asp yi hata sayfamız olarak ayarladıktan sonra

cevir.asp 'ye Geçelim.
bu cevir.asp ne işimize yarayacak ? Diyorsanız hemen anlatayım.

linklerde olur ya yazi-1-turkce-karakter-sorunu-cozme.html gibi dikkat ederseniz linkte türkçe karakter yok ö ler o olmuş ü ler u vs.
işte eklediğimiz yazının başlığındaki türkçe karakterleri çevirmemize yarayacak.

diyelim ki Şışkın Kız var bunu siskin kiz yapacak.Anlatabildim umarım.

cevir.asp -->


<%Function cevir(strmiz)
Str = strmiz
Str = Replace(Str, Chr(199), "C" ,1,-1,0)
Str = Replace(Str, "Ç", "C" ,1,-1,0)
Str = Replace(Str, Chr(208), "G" ,1,-1,0)
Str = Replace(Str, "Ğ", "G" ,1,-1,0)
Str = Replace(Str, Chr(214), "O" ,1,-1,0)
Str = Replace(Str, "Ö", "O" ,1,-1,0)
Str = Replace(Str, Chr(220), "U" ,1,-1,0)
Str = Replace(Str, "Ü", "U" ,1,-1,0)
Str = Replace(Str, Chr(221), "I" ,1,-1,0)
Str = Replace(Str, "İ", "I" ,1,-1,0)
Str = Replace(Str, Chr(222), "S" ,1,-1,0)
Str = Replace(Str, "Ş", "S" ,1,-1,0)
Str = Replace(Str, Chr(231), "c" ,1,-1,0)
Str = Replace(Str, "ç", "c" ,1,-1,0)
Str = Replace(Str, Chr(240), "g" ,1,-1,0)
Str = Replace(Str, "ğ", "g" ,1,-1,0)
Str = Replace(Str, Chr(246), "o" ,1,-1,0)
Str = Replace(Str, "ö", "o" ,1,-1,0)
Str = Replace(Str, Chr(252), "u" ,1,-1,0)
Str = Replace(Str, "ü", "u" ,1,-1,0)
Str = Replace(Str, Chr(253), "i" ,1,-1,0)
Str = Replace(Str, "ı", "i" ,1,-1,0)
Str = Replace(Str, Chr(254), "s" ,1,-1,0)
Str = Replace(Str, "ş", "s" ,1,-1,0)
Str = Replace(Str, "<span>", "" ,1,-1,0)
Str = Replace(Str, "</span>", "" ,1,-1,0)
Str = Replace(Str, " ", " " ,1,-1,0)
Str = Replace(Str, "+", "" ,1,-1,0)
Str = Replace(Str, "'", "" ,1,-1,0)
Str = Replace(Str, "´", "" ,1,-1,0)
Str = Replace(Str, ",", "" ,1,-1,0)
Str = Replace(Str ,";","" ,1,-1,0)
Str = Replace(Str ,":","" ,1,-1,0)
Str = Replace(Str ,"(","" ,1,-1,0)
Str = Replace(Str ,")","" ,1,-1,0)
Str = Replace(Str ,"[","" ,1,-1,0)
Str = Replace(Str ,"]","" ,1,-1,0)
Str = Replace(Str ,"/"," " ,1,-1,0)
Str = Replace(Str ,"\","" ,1,-1,0)
Str = Replace(Str ,"`","" ,1,-1,0)
Str = Replace(Str ,"=","" ,1,-1,0)
Str = Replace(Str ,"-"," " ,1,-1,0)
Str = Replace(Str ,"&","" ,1,-1,0)
Str = Replace(Str ,"%","" ,1,-1,0)
Str = Replace(Str ,"+","" ,1,-1,0)
Str = Replace(Str ,"!","" ,1,-1,0)
Str = Replace(Str ,"#","" ,1,-1,0)
Str = Replace(Str ,"<","" ,1,-1,0)
Str = Replace(Str ,">","" ,1,-1,0)
Str = Replace(Str ,"*","" ,1,-1,0)
Str = Replace(Str ,"And","" ,1,-1,0)
Str = Replace(Str ,"'","" ,1,-1,0)
Str = Replace(Str ,Chr(34),"" ,1,-1,0)
Str = Replace(Str ,Chr(39),"" ,1,-1,0)
Str = Replace(Str ,".","" ,1,-1,0)
Str = Replace(Str ,"?","" ,1,-1,0)
Str = Replace(Str ,",","" ,1,-1,0)
Str = Replace(Str ," ","-" ,1,-1,0)
Str = Replace(Str ,"__","-" ,1,-1,0)
Str = Replace(Str ,"--","-" ,1,-1,0)
cevir = Str
End Function%>


burdaki fonksiyonları nasıl kullanacağız derseniz <%=cevir(rs("baslik"))%>.

Gelelim Linkleri Çevirmeye.
diyelim ki
default.asp'de linkler.
default.asp 'ye cevir.asp 'yi <!--#include file="cevir.asp"--> diye include(sayfayı gömmek) ediyoruz.

linkleri ise

yazi-<%=rs("id")%>-<%=cevir(rs("baslik"))%>.html diye ekleyebilirsiniz.
yani yazi-yazının id numarası-cevir fonksiyonu içinde başlık .html

Son İşlemimizde yazi.asp üzerinde olacak.
Yazi.asp 'de id'i request.querystringe eşitlediğimiz kısmı yani

<% id=inject(request.querystring("id"))%>
bu kısmı

<%

degisken = Request.QueryString
gelenlink_bol = split(degisken, "/")
uzanti_bol = split(gelenlink_bol(3), "-")
id = uzanti_bol(1)
%>

Böyle Değişiyoruz.

Bu Kadar sonrasıda linkler sorunsuz çalışacaktır.