Dinge, die zum Generieren von Sitemap.xml -Dateien verwendet werden, können Suchmaschinen wie Google kriechen.
<%
Server.ScriptTimeout = 50000
'Sitemap_Gen.asp
'AMPLESSCRIPT produzieren zeitomatisch von SitemapsForawebserver, InthegoogleStemApprotocol (GSP)
'ByfrancesCopassantino
'www.iteam5.net/francesco/sitemap
'v0.2releaset5June2005 (ListingAdirectoryRectorsiveImSivileVrovement)
''
'Bsd2.0license,
'http://www.opensource.org/licenses/bsd-license.php
'Gesammelt und sortiert: chongqing [email protected]
Sitzung ("Server") = "// www.vevb.com"
'Ihr Domain -Name
vdir = "/"
'Erstellen Sie das Verzeichnis, in dem Sitemap im Verhältnis zum Verzeichnis (im Vergleich zum Stammverzeichnis) erstellt wird.
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 (Objfolker.Path, Objfolker.DatelastModified)
Setcolfiles = objfolder.files
ForeachobjFileColfile
'response.writeGetFilelink (objFile.Path, objFile.DatelastModified)
STR = STR & GetFilelink (ObjFile.Path, ObjFile.DatelastModified) & vbcrlf
Nächste
ShowsUbFolders (Objfolker)
'response.write "</urlset>"
STR = STR & "</urlset>" & vbcrlf
setfso = nichts
SetObjstream = server.createObject ("adodb.stream")
Ohne Bystream
'.Type = adtyPext
'.Mode = admoderadwrite
.Offen
.CharSet = "UTF-8"
.Position = objstream.size
.WritETEXT = str
.SavetoFilesserver.Mapath ("/sitemap.xml"), 2 'XML -Dateinamen generieren
.Schließen
Endwith
SetObjstream = nichts
Ifnotrthen
Response.write ("<Script> alert ('Erfolg!'); Geschichte.back (); </script>")
Antwort.end
Endif
SubshowsubFolders (Objfolker)
SetColfolders = objfolder.SubFolders
Foreachobjsubfolderincolfolders
Illerpermission (Objsubfolker.Path) dann
'response.writeGetFilelink (Objsubfolder.Path, Objsubfolker.DatelastModified)
STR = STR & getFilelink (objsubfolder.Path, objsubfolder.DatelastModified) & vbcrlf
Setcolfiles = objsubfolder.files
ForeachobjFileColfile
'response.writeGetFilelink (objFile.Path, objFile.DatelastModified)
STR = STR & GetFilelink (ObjFile.Path, ObjFile.DatelastModified) & vbcrlf
Nächste
ShowsUbFolders (Objsubfolker)
Endif
Nächste
Ende
