DisLike

0
Direkt veritabanından veri çekerek sitemap yapmak.

veritabani.asp kodları
Alıntı:
<%
set veri=Server.CreateObject("ADODB.Connection")
dsn="Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=db;Uid=root;Pwd= ;"
veri.open dsn

function trsil(veri)
veri = Replace (veri ,"ç","c",1,-1,1)
veri = Replace (veri ,"ğ","g",1,-1,1)
veri = Replace (veri ,"İ","i",1,-1,1)
veri = Replace (veri ,"ı","i",1,-1,1)
veri = Replace (veri ,"ş","s",1,-1,1)
veri = Replace (veri ,"ö","o",1,-1,1)
veri = Replace (veri ,"ü","u",1,-1,1)
veri = Replace (veri ,"Ü","U",1,-1,1)
veri = Replace (veri ,"Ç","c",1,-1,1)
veri = Replace (veri ,"Ğ","g",1,-1,1)
veri = Replace (veri ,"Ş","s",1,-1,1)
veri = Replace (veri ,"Ö","o",1,-1,1)
veri = Replace (veri ,"(","",1,-1,1)
veri = Replace (veri ,")","",1,-1,1)
veri = Replace (veri ,"&","",1,-1,1)
veri = Replace (veri ,"?","",1,-1,1)
veri = Replace (veri ,"’","",1,-1,1)
veri = Replace (veri ,"'","",1,-1,1)
veri = Replace (veri ,",","",1,-1,1)
veri = Replace (veri ,chr(10),"",1,-1,1)
trsil=lcase(veri)
end function

function guvenlik(veri)
veri = Replace (veri ,"`","",1,-1,1)
veri = Replace (veri ,"=","",1,-1,1)
veri = Replace (veri ,"&","",1,-1,1)
veri = Replace (veri ,"%","",1,-1,1)
veri = Replace (veri ,"!","",1,-1,1)
veri = Replace (veri ,"#","",1,-1,1)
veri = Replace (veri ,"<","",1,-1,1)
veri = Replace (veri ,">","",1,-1,1)
veri = Replace (veri ,"*","",1,-1,1)
veri = Replace (veri ,"\","",1,-1,1)
veri = Replace (veri ,"'","",1,-1,1)
veri = Replace (veri ,"^","",1,-1,1)
veri = Replace (veri ,"?","",1,-1,1)
veri = Replace (veri ,"+"," ",1,-1,1)
veri = Replace (veri ,Chr(10),"<br>",1,-1,1)
guvenlik=veri
end function
%>


sitemap.asp kodları
Alıntı:
<?xml version="1.0" encoding="ISO-8859-9" ?>
<urlset xmlns="http://www.google.com/schemas/sitemap/0.84">
<!--#include file="veritabani.asp"-->
<%
ay= Month(Date)
gun = Day(Date)
if ay<=9 then
ay="0"&ay
end if
if gun<=9 then
gun="0"&gun
end if
Tarih = Year(Date) & "-" & ay & "-" & gun
%>
<%
set rs = veri.execute("Select veri1,veri2 from dbtablo where onay =0 order by id desc limit 0,2000")
do while not rs.eof

%>
<url>
<loc>http://www.siteadresim.com/<%=trsil(replace(trim(rs("veri1"))," ","+"))%>/<%=trsil(replace(trim(rs("veri2"))," ","-",1,-1,1))%>.html</loc>
<lastmod><%=Tarih%></lastmod>
<changefreq>Daily</changefreq>
<priority>0.8</priority>
</url>
<%
rs.MoveNext
Loop
rs.Close
%></urlset>
Çekeceğimiz diğer verilerin
<changefreq>Daily</changefreq>
<priority>0.8</priority>

değerlerini değiştirerek sitemap hatalarını giderebiliriz.

Sitemize eklediğimiz verilerimiz sitemapta otomatik olarak güncellenmesi bize kolaylık sağlayacaktır.

Daha önce forumda benzer kodlar verilmişti. Tarih ve Priority ayarları problem çıkartıyordu. Yeniden düzenleyip uzun zamandır kullanıyorum.

siteadresim.com/sitemap.asp olarak xml formatında verilerimizi google ekleyebiliriz.SuperZheraSuperZhera