Tekil Mesaj gösterimi - Asp sitemap auto

Konu Asp sitemap auto

31-07-2008, 01:32:26

iSo

Öncelikle iyi geceler demek istiyorum arkadaşlar.
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>