kendim internetten topladıgım kodlar ile yaptığım sitemap i sizin ile paylaşmak istiyorum.
umarım işinize yarar. db olarak sql u kullanıyor.. db deki verileri sitemapte gösteriyor onu söyliyeyim
umarim işinize yarar
Sitemap
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
</head>
<%
Set Bag=Server.CreateObject("Adodb.connection" )
Bag.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; UID=kullanici; pwd=sifre; db=databaseadi;"
Set HarbiOyun = Bag.Execute("SELECT * FROM oyun order by id DESC")
Set HarbiOyun2 = Bag.Execute("SELECT * FROM kategori order by kid DESC")
Function mapdateformat(datex)
Dim GMT
GMT = "+02:00"
mapdateformat = DatePart("yyyy",datex) & "-" & _
Sifirekle(DatePart("m", datex)) & "-" & _
Sifirekle(DatePart("d", datex)) & "T" & _
Sifirekle(DatePart("h", datex)) & ":" & _
Sifirekle(DatePart("n", datex)) & ":" & _
Sifirekle(DatePart("s",datex)) & GMT
rem Format: 2008-07-19T00:04:09+02:00
End Function
rem Formata uygunluk için tek karakterden oluşan sayıların soluna 0 ekliyoruz
Function Sifirekle(metin)
If Len(metin) = 1 Then
Sifirekle = "0" & metin
Else
Sifirekle = metin
End If
End Function
%>
<%
set fso=server.createobject("scripting.filesystemobject" )
FSO.createTextFile Server.Mappath("sitemap.xml")
set harita = FSO.openTextFile(Server.MapPath("sitemap.xml"),2,0)
haritaveri="<?xml version=""1.0"" encoding=""UTF-8""?>"
haritaveri="<?xml-stylesheet type=""text/xsl"" href=""gss.xsl""?>"
haritaveri=haritaveri&"<urlset xmlns=""http://www.sitemaps.org/schemas/sitemap/0.9"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xsi:schemaLocation=""http://www.google.com/schemas/sitemap/0.84 http://www.sitemaps.org/schemas/sitemap/0.9/sitemap.xsd"">"
haritaveri=haritaveri&"<url><loc>http://www.harbioyun.com</loc><lastmod>" & mapdateformat(Now()) & "</lastmod><changefreq>daily</changefreq><priority>1.00</priority></url>"
do while not HarbiOyun.eof
haritaveri=haritaveri&"<url><loc>http://www.harbioyun.com/oyun-"&HarbiOyun("id")&"-"&HarbiOyun("oyunadi")&".htm</loc><lastmod>" & mapdateformat(now) & "</lastmod><changefreq>daily</changefreq><priority>0.50</priority></url>" & Chr(13)
HarbiOyun.movenext
loop
do while not HarbiOyun2.eof
haritaveri=haritaveri&"<url><loc>http://www.harbioyun.com/18oyun-"&HarbiOyun2("kid")&"-"&HarbiOyun2("kadi")&".htm</loc><lastmod>" & mapdateformat(now) & "</lastmod><changefreq>daily</changefreq><priority>0.50</priority></url>" & Chr(13)
HarbiOyun2.movenext
loop
haritaveri=haritaveri&"</urlset>"
harita.write(haritaveri)
set FSO = nothing
%>
İşlem Tamamlanmıştır! Aşağıdaki site haritaları oluşturulmuş ve <a href="sitemap.xml"><u>Site Haritası Dizini</u></a> içerisine eklenmiştir.<br>
<br> 
