Selon la modification du code fournie par la forêt, le webmaster a été testé dans VEVB.com, qui est facile à utiliser!
La version ASP nécessite une prise en charge FSO de l'espace!
Ce qui suit est le fragment de code:
<%
Server.scriptTimeout = 50000
'SiteMap_gen.asp
`` Un simple script pour produire des sitemaps automatiques pour un serveur Web, dans le protocole Google Sitemap (GSP)
'Par Francesco Passantino
'www.iteam5.net/francesco/sitemap
'V0.2 Sorti le 5 juin 2005
'
«Licence BSD 2.0,
'http://www.opensource.org/licenses/bsd-dhense.php
«Collectez et organisez: chongqing [email protected]
Session (serveur) = http: //192.168.0.111 'Votre nom de domaine
Vdir = / 'Make a Directory of Sitemap, Relative Directory (par rapport au répertoire racine)
set objfso = createObject (scripting.fileSystemObject)
root = server.mappath (vdir)
'Response.ContentType = Text / Xml
'Response.Write <?
'Response.Write <urlset xmlns =' http://www.google.com/schemas/sitemap/0.84 '>
Str = <?
Str = str & <urlset xmlns = 'http://www.google.com/schemas/sitemap/0.84'> & vbcrlf
Set objfolder = objfso.getfolder (root)
'Response.Write GetFileLink (objfolder.path, objfolder.datelastmodify)
Définir les couleurs = objfolder.files
Pour chaque objfile à Colfiles
'Response.Write GetfileLink (objfile.path, objfile.datelastmodify)
Str = str & getFileLink (objfile.path, objfile.datelastmodify) & vbcrlf
Suivant
Show-bolders (objfolder)
'Response.Write </ urlSet>
Str = str & </ urlset> & vbcrf
Définir FSO = rien
Définir ObjStream = Server.CreateObject (Adodb.Stream)
Avec objstream
'.Type = adtypeText
'.Mode = AdmodeReadwrite
.Opeen
.Charset = UTF-8
.Position = Objstream.Size
.WriteText = Str
.Savetofile server.mappath (/sitemap.xml), le nom de fichier XML généré par 2 '
.Fermer
Se terminer avec
Définir objstream = rien
Sinon, alors
Response.Write (<Script> alert («Sénération à succès de sites générant!»); History.back (); </cript>)
Réponse.
Terminer si
Sous-showsub dossers (objfolder)
Définir Colorders = Objfolder.Subbolders
Pour chaque objsubfolder dans Colfolders
Si FolderPermission (objsubfolder.path) alors
'Response.Write GetFileLink (objsubfolder.path, objsubfolder.datelastmodify)
Str = str & getFileLink (objsubfolder.path, objsubfolder.datelastmodify) & vbcrlf
Définir les couleurs = objsubfolder.files
Pour chaque objfile à Colfiles
'Response.Write GetfileLink (objfile.path, objfile.datelastmodify)
Str = str & getFileLink (objfile.path, objfile.datelastmodify) & vbcrlf
Suivant
Showsub dossers (objsubfolder)
terminer si
Suivant
Sub-Sub
Fonction getFileLink (fichier, datafile)
fichier = remplacer (fichier, root,)
file = remplacer (fichier, /, /)
Si fileXtensionisbad (fichier) puiste la fonction
Si Mois (DataFile) <10D Filedatem = 0
Si Day (DataFile) <10D a été déposé = 0
Filedate = Year (DataFile) & - & Filedatem & Mois (DataFile) & - & Filedated & Day (DataFile)
getFileLink = <Url> <loc> & server.htmlencode (session (serveur) & vdir & file) & </ local) q> <priority> 1.0 </ priority> </url "
Réponse.flush
Fonction finale
FolderPermission de fonction (pathname)
«Le répertoire qui doit être filtré (non répertorié dans le site)
PathExclusion = aray (/ temp, / _ vti_cnf, _vti_pvt, _vti_log, cgi-bin, / admin, / edu)
FolderPermission = True
Pour chaque pathexclud dans Pathexclusion
Si instlin (ucase (pathname), ucase (pathExclud))> 0 alors
FolderPermission = false
sortir pour
terminer si
suivant
Fonction finale
Fonction FileExtensionisbad (SFileName)
Dim SfileExtension, BfileExtensionisValid, SfileExt
'Modifier pour votre extension de fichier (http://www.googleguide.com/file_type.html)
Extensions = Array (PNG, GIF, JPG, JPEG, ZIP, PDF, PS, HTML, HTM, PHP, WK1, WK2, WK3, WK4, WK5, WKI, WKS, WKU, LWP, MW, XLS, PPT, DOC, SWF, wks, WPS, WDB, WRI, RTF, ANS, TXT)
'Définissez le nom du fichier de la liste, si l'extension n'est pas parmi elle, le site du site n'inclura pas le fichier du nom étendu
Si Len (Trim (SFileName)) = 0 alors
FileExtensionisbad = true
Fonction de sortie
terminer si
SFileExtension = Right (SFileName, Len (SFileName) -Instrrev (SFileName ,.))
bfileExtensionisValid = false 'supposer l'extension est mauvaise
Pour chaque SFILEEXT en extensions
Si ucase (sfileExt) = ucase (sfileExtation) alors
bfileExtensionisValid = true
sortir pour
terminer si
suivant
FileExtensionisbad = pas bfileExtentisValid
Fonction finale
%>