blogline

A simple ASP script (Using database) to automatically produce sitemaps for a webserver, in the Google Sitemap Protocol (GSP).
http://www.iteam5.net/francesco/sitemap_gen/default.asp

A simple ASP script (Using database) to automatically produce sitemaps for a webserver, in the Google Sitemap Protocol (GSP).

Google sitemap submit: https://www.google.com/webmasters/sitemaps
http://www.iteam5.net/francesco/sitemap_gen/sitemap_gen.txt

<%’ sitemap_gen_db.asp’ A simple script (using database) to automatically produce sitemaps for a webserver, in the Google Sitemap Protocol (GSP)’ by Francesco Passantino’ www.iteam5.net/francesco/sitemap_gen’ v0.1b released 5 june 2005′ v0.2  released 17 june 2005 iso8601dates http://www.tumanov.com/projects/scriptlets/iso8601dates.asp’ v0.2b released 28 july 2005 id_page=Server.URLEncode(rs(”id”)) to put words in id, thanks to Mike Kellogg” BSD 2.0 license,’ http://www.opensource.org/licenses/bsd-license.phpMAXURLS_PER_SITEMAP = 50000′modify this to change website, baseurl and tablebaseurl=”http://www.yoursite.com/default.asp?page=”xDb_Conn_Str = ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” &amp; server.mappath(”db\yourdb.mdb”) &amp; ”;”strsql = ”SELECT * FROM yourtable”’see http://www.time.gov/ for utcOffsetutcOffset=1response.ContentType = ”text/xml”response.write ”<?xml version=’1.0′ encoding=’UTF-8′?>”response.write ”<!– generator=’http://www.iteam5.net/francesco/sitemap_gen’–>”response.write ”<urlset xmlns=’http://www.google.com/schemas/sitemap/0.84′>”Set conn = Server.CreateObject(”ADODB.Connection”)conn.Open xDb_Conn_StrSet rs = Server.CreateObject(”ADODB.Recordset”)rs.Open strsql, connDo while not rs.eof  if URLS<MAXURLS_PER_SITEMAP then    ’modify this to change database field    id_page=Server.URLEncode(rs(”id”))    filelmdate=rs(”pagina_lastupdate”)    priority=rs(”priority”)    if not isdate(filelmdate) then filelmdate=now()    filedate=iso8601date(filelmdate,utcOffset)    if priority=”" or priority>1.0 then priority=”1.0″    response.write ”<url><loc>”&amp;server.htmlencode(baseurl&amp;id_page)&amp;”</loc><lastmod>”&amp;filedate&amp;”</lastmod><priority>”&amp;priority&amp;”</priority></url>”    URLS=URLS+1    Response.Flush  rs.movenextend ifLoopresponse.write ”</urlset>”rs.CloseSet rs = Nothingconn.CloseSet conn = NothingFunction iso8601date(dLocal,utcOffset)    Dim d  ’ convert local time into UTC  d = DateAdd(”H”,-1 * utcOffset,dLocal)  ’ compose the date  iso8601date = Year(d) &amp; ”-” &amp; Right(”0″ &amp; Month(d),2) &amp; ”-” &amp; Right(”0″ &amp; Day(d),2) &amp; ”T” &amp; _    Right(”0″ &amp; Hour(d),2) &amp; ”:” &amp; Right(”0″ &amp; Minute(d),2) &amp; ”:” &amp; Right(”0″ &amp; Second(d),2) &amp; ”Z”End Function%>

Sitemap_gen_db.asp
A simple ASP script (Using database) to automatically produce sitemaps for a webserver, in the Google Sitemap Protocol (GSP).

<%’ sitemap_gen_db.asp’ A simple script (using database) to automatically produce sitemaps for a webserver, in the Google Sitemap Protocol (GSP)’ by Francesco Passantino’ www.iteam5.net/francesco/sitemap_gen’ v0.1b released 5 june 2005′ v0.2  released 17 june 2005 iso8601dates http://www.tumanov.com/projects/scriptlets/iso8601dates.asp’ v0.2b released 28 july 2005 id_page=Server.URLEncode(rs(”id”)) to put words in id, thanks to Mike Kellogg” BSD 2.0 license,’ http://www.opensource.org/licenses/bsd-license.phpMAXURLS_PER_SITEMAP = 50000′modify this to change website, baseurl and tablebaseurl=”http://www.yoursite.com/default.asp?page=”xDb_Conn_Str = ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & server.mappath(”db\yourdb.mdb”) & ”;”strsql = ”SELECT * FROM yourtable”’see http://www.time.gov/ for utcOffsetutcOffset=1response.ContentType = ”text/xml”response.write ”<?xml version=’1.0′ encoding=’UTF-8′?>”response.write ”<!– generator=’http://www.iteam5.net/francesco/sitemap_gen’–>”response.write ”<urlset xmlns=’http://www.google.com/schemas/sitemap/0.84′>”Set conn = Server.CreateObject(”ADODB.Connection”)conn.Open xDb_Conn_StrSet rs = Server.CreateObject(”ADODB.Recordset”)rs.Open strsql, connDo while not rs.eof  if URLS<MAXURLS_PER_SITEMAP then    ’modify this to change database field    id_page=Server.URLEncode(rs(”id”))    filelmdate=rs(”pagina_lastupdate”)    priority=rs(”priority”)    if not isdate(filelmdate) then filelmdate=now()    filedate=iso8601date(filelmdate,utcOffset)    if priority=”" or priority>1.0 then priority=”1.0″    response.write ”<url><loc>”&server.htmlencode(baseurl&id_page)&”</loc><lastmod>”&filedate&”</lastmod><priority>”&priority&”</priority></url>”    URLS=URLS+1    Response.Flush  rs.movenextend ifLoopresponse.write ”</urlset>”rs.CloseSet rs = Nothingconn.CloseSet conn = NothingFunction iso8601date(dLocal,utcOffset)    Dim d  ’ convert local time into UTC  d = DateAdd(”H”,-1 * utcOffset,dLocal)  ’ compose the date  iso8601date = Year(d) & ”-” & Right(”0″ & Month(d),2) & ”-” & Right(”0″ & Day(d),2) & ”T” & _    Right(”0″ & Hour(d),2) & ”:” & Right(”0″ & Minute(d),2) & ”:” & Right(”0″ & Second(d),2) & ”Z”End Function%>

Sitemap_gen_spider.asp
A simple ASP script (Using a little MSXML spider) to automatically produce sitemaps for a webserver, in the Google Sitemap Protocol (GSP). Please help me to improve the spider exploration function.

<%’ sitemap_gen_spider.asp’ A simple script to automatically produce sitemaps for a webserver, in the Google Sitemap Protocol (GSP)’ by Francesco Passantino’ www.iteam5.net/francesco/sitemap_gen’ v0.1 released 9 june 2005′ v0.2 released 17 june 2005 iso8601dates http://www.tumanov.com/projects/scriptlets/iso8601dates.asp” BSD 2.0 license,’ http://www.opensource.org/licenses/bsd-license.php’script configurationUrl=”http://www.yoursite.com/”FinalDepth=3LimitUrl=100′leave sitemapDate empty if you want sitemapDate=nowsitemapDate=”"’sitemapPriority possible value are from 0.1 to 1.0sitemapPriority=”0.7″’sitemapChangefreq possible value are: always, hourly, daily, weekly, monthly, yearly, neversitemapChangefreq=”monthly”’see http://www.time.gov/ for utcOffsetutcOffset=1Dim objRegExp,objUrlArchive,strHTML,objMatchServer.ScriptTimeout=300set xmlhttp = CreateObject(”MSXML2.ServerXMLHTTP”)Set objUrlArchive=Server.CreateObject(”Scripting.Dictionary”)Set objRegExp = New RegExpobjRegExp.IgnoreCase = TrueobjRegExp.Global = True’you can change this patterns for your needsobjRegExp.Pattern = ”href=(.*?)[\s|>]“‘to remove elements from html urlsRemoveText=array(”<”,”>”,”a href=”,chr(34),”‘”,”href=”)’to exclude elements from urlsExcludeUrl=array(”mailto:”,”javascript:”,”.css”,”.ico”)’if you want sitemapDate=nowif sitemapDate=”" then filelmdate=now()sitemapDate=iso8601date(filelmdate,utcOffset)crawl url,0For Depth=0 to FinalDepth  arrUrl=objUrlArchive.Keys  arrDepth=objUrlArchive.Items  For LoopUrl= 0 to ubound(arrurl)-1    ’debugging    ’response.write ”<!– pagefound=’”&loopurl&”‘–>”    crawl url&”/”&arrUrl(LoopUrl),Depth    ’if you want to limit the url number    ’if objUrlArchive.Count-1>LimitUrl then exit for  Next  erase arrUrl  erase arrDepthNext’ create the xml on the flyarrUrl=objUrlArchive.KeysarrDepth=objUrlArchive.Itemsresponse.ContentType = ”text/xml”response.write ”<?xml version=’1.0′ encoding=’UTF-8′?>”response.write ”<!– generator=’http://www.iteam5.net/francesco/sitemap_gen’–>”response.write ”<!– pagefound=’”&ubound(arrurl)&”‘–>”response.write ”<urlset xmlns=’http://www.google.com/schemas/sitemap/0.84′>”For LoopUrl=0 to ubound(arrurl)-1  response.write ”<url>”  response.write ”<loc>”&server.htmlencode(url&arrUrl(LoopUrl))&”</loc>”  response.write ”<lastmod>”&sitemapDate&”</lastmod>”  response.write ”<priority>”&sitemapPriority&”</priority>”  response.write ”<changefreq>”&sitemapChangefreq&”</changefreq>”  response.write ”</url>”Nextresponse.write ”</urlset>”erase arrUrlerase arrDepthobjUrlArchive.RemoveAll()set xmlhttp = nothingSub crawl(url,depth)  xmlhttp.open ”GET”, url, false  xmlhttp.send ”"  strHTML = xmlhttp.responseText  For Each objMatch in objRegExp.Execute(strHTML)    for i=0 to ubound(excludeUrl)      if instr(objmatch,excludeUrl(i))>0 then objmatch=”"    next    if objmatch<>”" then      for i=0 to ubound(RemoveText)        objMatch=replace(lcase(objMatch),lcase(RemoveText(i)),”")      next      ’in some cases this is better if left(objMatch,len(url))=Url then      if instr(objMatch,”http://”)=0 and objmatch<>”" then        if objUrlArchive.Exists(objMatch)=false then          objUrlArchive.Add objMatch,depth          ’debugging          ’response.write objmatch&”<br>”          ’response.flush        end if      end if    end if  NextEnd SubFunction iso8601date(dLocal,utcOffset)    Dim d  ’ convert local time into UTC  d = DateAdd(”H”,-1 * utcOffset,dLocal)  ’ compose the date  iso8601date = Year(d) & ”-” & Right(”0″ & Month(d),2) & ”-” & Right(”0″ & Day(d),2) & ”T” & _    Right(”0″ & Hour(d),2) & ”:” & Right(”0″ & Minute(d),2) & ”:” & Right(”0″ & Second(d),2) & ”Z”End Function%>
http://www.iteam5.net/francesco/sitemap_gen/sitemap_gen_db.txt
http://www.iteam5.net/francesco/sitemap_gen/sitemap_gen_spider.txt

discuss:http://groups-beta.google.com/group/google-sitemaps