ASP'de seo'yu nasıl kullanabiliriz?
Kod:
<%
Dim veri
veri = Request.ServerVariables("QUERY_STRING")
veri=karakter(veri)
function karakter(veri)
veri = Replace (veri ,"404;http://localhost:80/","",1,-1,1)
veri = Replace (veri ,"404;http://siteniz.com:80/","",1,-1,1)
veri = Replace (veri ,"404;http://www.siteniz.com:80/","",1,-1,1)
veri = Replace (veri ,".html","",1,-1,1) 'Herhangi bir uzantı tanımladık'
karakter=veri
end function
'Döngümüzü kuruyoruz'
if left(veri,11)="klasorunuz/" then '11 değeri klasör adındaki karakter sayısını belirliyor'
uzunluk2=len(veri) 'veri uzunluğa eşitlendi böylece;'
eksi2=(uzunluk2-11) '11 karakter sonrasında gelen değeri dikkate alacağız'
sayfalink=right(veri,eksi2) 'yani klasorunuz/serkan.html olarak gelen verinin veritabanımızın veriyi çektiğimiz sutununda serkan verisinin bulunması gerekir.'
end if 'döngü dönmekten yorulmasın diye kapattık:) '
if sayfalink<>"" then%><!--#include file="sayfaniz.asp"-->
<%end if
'yukarıda sayfa link olarak belirlenen değer, yukarıdaki döngünün içindeki sayfalink=right(veri,eksi2) şeklinde belirlenen kod
if sayfalink="" then
response.redirect("Default.asp")
end if%> Eğer seo'yu diğer içeriklerimize de uygulamak istiyorsak yapacağımız işlem aynı
if sayfalink="" then kodlamasından önce
Kod:
if left(veri,8)="zoneasp/" then 'dikkat, klasör adındaki karakter sayımız 8 karakter
uzunluk2=len(veri)
eksi2=(uzunluk2-8)
sayfalink2=right(veri,eksi2)
end if
if sayfalink2<>"" then%><!--#include file="sayfaniz2.asp"-->
<% end if
Son olarak verilerin boş gelmesi halinde (yani 404 sayfasının gerçekten çalışması gerektiği şekil: sayfa bulunamadı) çalıştıracağımız koda diğer değişkeni de ekliyoruz:
Kod:
if sayfalink="" or sayfalink2="" then
response.redirect("Default.asp")
end if%> Bu kadar, şimdi bu karmaşık kodları bütün bir şekilde veriyorum:
Kod:
<%
Dim veri
veri = Request.ServerVariables("QUERY_STRING")
veri=karakter(veri)
function karakter(veri)
veri = Replace (veri ,"404;http://localhost:80/","",1,-1,1)
veri = Replace (veri ,"404;http://siteniz.com:80/","",1,-1,1)
veri = Replace (veri ,"404;http://www.siteniz.com:80/","",1,-1,1)
veri = Replace (veri ,".html","",1,-1,1) 'Herhangi bir uzantı tanımladık'
karakter=veri
end function
if left(veri,11)="klasorunuz/" then
uzunluk2=len(veri)
eksi2=(uzunluk2-11)
sayfalink=right(veri,eksi2)
end if
if sayfalink<>"" then%><!--#include file="sayfaniz.asp"-->
<%end if
if left(veri,8)="zoneasp/" then
uzunluk2=len(veri)
eksi2=(uzunluk2-8)
sayfalink2=right(veri,eksi2)
end if
if sayfalink2<>"" then%><!--#include file="sayfaniz2.asp"-->
<%end if
if sayfalink="" and sayfalink2="" then %>Sayfa bulunamadı<% end if %> Son kodlardaki "Sayfa bulunamadı" olduğu yerde siz başka atraksiyonlar deneyebilirsiniz. Umarım anlatımı kolay olmuştur, hangisi kolayınıza gelirse.
Saygılar.