Les choses utilisées pour générer des fichiers sitemap.xml sont propices à la rampe de moteurs de recherche tels que Google.
<%
Server.scriptTimeout = 50000
'SiteMap_gen.asp
'Asimplescript Toautomatiquement produit SitemapsForawebServer, InthegoogleSitemApprotocol (GSP)
'ByFrancesCopassantino
'www.iteam5.net/francesco/sitemap
'V0.2reled5June2005 (ListeDirectoryTreerecursively Improvement)
'
'Bsd2.0 license,
'http://www.opensource.org/licenses/bsd-license.php
«Recueilli et trié: chongqing [email protected]
session ("serveur") = "// www.vevb.com"
'Votre nom de domaine
vdir = "/"
'Créez le répertoire où le site du site est fabriqué, par rapport au répertoire (par rapport au répertoire racine)
setObjfso = createObject ("scripting.filesystemObject")
root = server.mappath (vdir)
'Response.ContentType = "Text / Xml"
'réponse.write "<? xmlversion =' 1.0'encoding = 'utf-8'?>"
'réponse.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
Foreachobjfileinchililes
'Response.WriteGetFileLink (objfile.path, objfile.datelastModified)
str = str & getFileLink (objfile.path, objfile.datelastmodified) & vbcrlf
Suivant
Show-bolders (objfolder)
'réponse.write "</urlset>"
str = str & "</ urlset>" & vbcrlf
setfso = rien
SetObjstream = server.createObject ("adodb.stream")
Sansbjstream
'.Type = adtypeText
'.Mode = AdmodeReadwrite
.Ouvrir
.Charset = "UTF-8"
.Position = Objstream.Size
.WriteText = Str
.Savetofilesserver.mapath ("/ sitemap.xml"), 2 'Générer le nom du fichier XML
.Fermer
Fin
SetObjstream = rien
Ifnoterrhen
Response.Write ("<Script> alert ('Success!'); History.back (); </cript>")
Réponse.
Endire
Subshowsubfolders (objfolder)
SetColfolders = objfolder.subfolders
Foreachobjsubfolderincolfolders
IllerPermission (objsubfolder.path) puis
'Response.WriteGetFileLink (objsubfolder.path, objsubfolder.datelastmodified)
str = str & getFileLink (objsubfolder.path, objsubfolder.datelastmodified) & vbcrlf
SetColFiles = objsubfolder.files
Foreachobjfileinchililes
'Response.WriteGetFileLink (objfile.path, objfile.datelastModified)
str = str & getFileLink (objfile.path, objfile.datelastmodified) & vbcrlf
Suivant
Show-bolders (objsubfolder)
endire
Suivant
Fin
