| Das Folgende ist das Codefragment: <%@Sprache = "vbscript" Codepage = "65001"%> <% Response.charset = "utf-8" Server.ScriptTimeout = 50000 'Sitemap_Gen.asp 'Ein einfaches Scrip -zu -automatischen Sitemaps für einen Webserver im Google Sitemap -Protokoll (GSP) 'Von Francesco Passantino 'www.iteam5.net/francesco/sitemap 'V0.2 veröffentlicht am 5. Juni 2005 veröffentlicht Sitzung ("Server") = "http://7thpark.com/" '"Ihr Domain -Name Vdir = "/" 'Sitemap -Verzeichnis, relatives Verzeichnis (relativ zum Stammverzeichnis) Setzen Sie OBJFSO = CreateObject ("Scripting.FilesSystemObject"). root = server.mappath (vdir) 'Response.contentType = "text/xml" 'Response.write "<? Xml Version =' 1.0 'coding =' utf-8 '?>" 'Response.write "<urlset xmlns =' http://www.google.com/schemas/sitemap/0.84 '>" STR = "<xml Version = '1.0' coding = 'utf-8'?>" & Vbcrlf ' STR = STR & "<urlset xmlns = 'http://www.google.com/schemas/sitemap/0.84'>" & vbcrlfff Setzen Sie objfolker = objfso.getFolder (root) 'Response.write getFilelink (Objfol.Path, Objfolker.DatelastModify) Setzen Sie Farben = Objfolder.files Für jede objfile in colfiles 'Response.write getFilelink (objFile.Path, objFile.DatelastModify) STR = STR & getFilelink (objFile.Path, objFile.DatelastModify) & VBCRLF Nächste ShowsUbFolders (Objfolker) 'Response.write "</urlset>" " STR = STR & "</urlset>" & vbcrlf fso = nichts setzen Setzen Sie objstream = server.createObject ("adodb.stream") Mit objstream '.Type = adtyPext '.Mode = admoderadwrite .Opeen .CharSet = "UTF-8" .Position = objstream.size .WritETEXT = str .SavetoFile server.mappath ("/sitmap.xml"), 2 '-generierter XML -Dateiname .Schließen Enden mit Objstream einstellen = nichts Wenn nicht, dann irren Response.write (<Script> alert ('erfolgreiche Generierung von Site Map!'); History.back (); </script> ") Antwort.end Ende wenn SubshowsUbFolders (Objfolker) Setzen Sie Colorders = Objfolder.SubFolders Für jeden objsubfolder in wolfoldern Wenn Ordnermission (objsubfolker.Path) dann dann 'Response.write getFilelink (objsubfolder.Path, Objsubfolker.DatelastModify) STR = STR & GetFilelink (Objsubfolker.Path, Objsubfolker.DatelastModify) & VBCRLF Setzen Sie Farben = objsubfolder.files Für jede objfile in colfiles 'Response.write getFilelink (objFile.Path, objFile.DatelastModify) STR = STR & getFilelink (objFile.Path, objFile.DatelastModify) & VBCRLF Nächste ShowsUbFolders (Objsubfolker) Ende wenn Nächste Ende sub Funktion getFilelink (Datei, Datendatei) Datei = Ersetzen (Datei, Stamm, "") Datei = ersetzen (Datei, "/", "/") Wenn DateiExtensionisbad (Datei) beenden, beenden Sie die Funktion Wenn Monat (DataFile) <10d fileedatem = "0" Wenn Tag (DataFile) <10 das agelted = "0" Fieleedate = Jahr (DataFile) & "-" & fieledatem & monat (DataFile) & "-" & FileDated & Day (DataFile) GetFilelink = "<URL> <COC>" & server.htmlencode (Session ("Server") & VDIR & Datei) & "</loc> <lastmod>" & versuchte & "</lastmod> <wideFreq> Daily </ </ChangeFreq> <priority> 1.0 </priority> </url> "" " Antwort.Flush Endfunktion Funktionsordnerpervermittlung (Pfadname) 'Das Verzeichnis, das gefiltert werden muss (nicht in Sitemap aufgeführt) PathExclusion = aray ("/temp", "/_ vti_cnf", "_ vti_pvt", "_ vti_log", "cgi-bin", "/admin", "/edu") Ordnermission = true Für jeden in Pathexclusion angeklagten Path -so Wenn Instrumente (uCase (Pathname), uCase (Pathexcluded))> 0, dann dann Ordnermission = false beenden für Ende wenn nächste Endfunktion FunktionsdateextesionISBad (SFILENAME) Dim sFileextesion, bFileextesionIsvalid, SFILEEXT 'Für Ihre Dateierweiterung ändern (http://www.googleguide.com/file_type.html) Erweiterungen = Array ("Png", "Gif", "JPG", "JPEG", "ZIP", "PDF", "PS", "HTML", "HTM", "PHP", "WK1", "WK2 wk2 "", "wk3", "wk4", "wk5", "wki", "wks", "wku", "lwp", "mw", "xls", "ppt", "doc", "swf "," Wks "," wps "," wdb "," wri "," rtf "," ans "," txt ") 'Legen Sie den Dateinamen der Liste fest, wenn die Erweiterung nicht dazu gehört, enthält Sitemap die Datei des erweiterten Namens nicht
|