Las cosas utilizadas para generar archivos siteMap.xml son propicias para rastrear motores de búsqueda como Google.
<%
Server.scriptTimeOut = 50000
'Sitemap_gen.asp
'Asimpletscript para producir SitemapsforaWebServer, inthegooglesitemApprotocol (GSP)
'Byfrancescopassantino
'www.iteam5.net/francesco/sitemap
'V0.2RelEed5June2005 (ListingAdirectoryTreeReCursiveProvement)
'
'BSD2.0License,
'http://www.opensource.org/licenses/bsd-license.php
'Recolectado y ordenado: chongqing [email protected]
sesión ("servidor") = "// www.vevb.com"
'Tu nombre de dominio
vdir = "/"
'Cree el directorio donde se realiza el mapa del sitio, en relación con el directorio (en relación con el directorio raíz)
setobjfso = createObject ("scripting.filesystemObject")
root = server.mappath (VDIR)
'Response.ContentType = "Text/XML"
'Response.write "<? XmlVersion =' 1.0'Encoding = 'utf-8'?>"
'Response.Write "<urlsetXmlns =' http: //www.google.com/schemas/sitemap/0.84 '>"
str = "<? xmlversion = '1.0'Encoding =' utf-8 '?>" & vbcrlf
str = str & "<urlsetXmlns = 'http: //www.google.com/schemas/sitemap/0.84'>" & vbcrlf
Setobjfolder = objfso.getfolder (root)
'Response.WriteGetFilelink (objfolder.path, objfolder.datelastmodified)
SetColfiles = objfolder.files
Foreachobjfileincolfiles
'Response.WriteGetFilelink (objfile.path, objfile.datelastmodified)
str = str & getFilelink (objfile.path, objfile.datelastmodified) y vbcrlf
Próximo
Showsubfolders (objfolder)
'Response.write "</slset>"
str = str & "</urlset>" y vbcrlf
setfso = nada
Setobjstream = server.createObject ("ADODB.Stream")
Sinbjstream
'.Type = adTypetext
'.Mode = admodeReadWrite
.Abierto
.Charset = "utf-8"
.Position = objstream.size
.WriteText = str
.Savetofilesserver.mapath ("/siteMap.xml"), 2 'Genere el nombre del archivo XML
.Cerca
Fin
Setobjstream = nada
Ifnoterrthen
Response.Write ("<Script> Alert ('Success!'); History.back (); </script>")
Respuesta.
Endif
Subshowsubfolders (objfolder)
SetColfolders = objfolder.subfolders
ForeachobjsubfolderRolfolders
IllerPermission (objsubfolder.path) entonces
'Response.WriteGetFilelink (objsubfolder.path, objsubfolder.datelastModified)
str = str & getFilelink (objsubfolder.path, objsubfolder.datelastmodified) y vbcrlf
SetColfiles = objsubfolder.files
Foreachobjfileincolfiles
'Response.WriteGetFilelink (objfile.path, objfile.datelastmodified)
str = str & getFilelink (objfile.path, objfile.datelastmodified) y vbcrlf
Próximo
Showsubfolders (objsubfolder)
endif
Próximo
Endsub
