| Ниже приведено фрагмент кода: <%@Language = "vbscript" codepage = "65001"%> <% Response.charset = "UTF-8" Server.scriptTimeout = 50000 'Sitemap_gen.asp «Простой сценарий для автоматического создания сайтов для веб -сервера, в протоколе Sitemap Google (GSP) 'Франческо Пассантино 'www.iteam5.net/francesco/sitemap 'V0.2 выпущено 5 июня 2005 г. Session ("Server") = "http://7thpark.com/" '"Ваше доменное имя Vdir = "/" '' Справочник Sitemap, относительный каталог (относительно корневого каталога) Установить objfso = createObject ("scripting.filesystemobject") root = server.mappath (vdir) 'Response.contenttype = "text/xml" 'Response.write "<? Xml version =' 1.0 'Encoding =' utf-8 '?>" 'Response.write "<urlset xmlns =' http://www.google.com/schemas/sitemap/0.84 '>" Str = "<? Xml version = '1.0' Encoding = 'utf-8'?>" & Vbcrlf ' Str = str & "<urlset xmlns = 'http://www.google.com/schemas/sitemap/0.84'>" & vbcrlfff Установить objfolder = objfso.getfolder (root) 'Response.write getFileLink (objfolder.path, objfolder.datelastmodify) Установить цвета = objFolder.files Для каждого objfile в Colfiles 'Response.write getFileLink (objfile.path, objfile.datelastmodify) Str = str & getfilelink (objfile.path, objfile.datelastmodify) и vbcrlf Следующий ShowSubfolders (objFolder) 'Response.write "</urlset>" " Str = str & "</urlset>" & vbcrlf Установить FSO = ничего Установить objstream = server.createObject ("adodb.stream") С Objstream '.Type = adtypetext '.Mode = admodereadwrite .Opeen .CHARSET = "UTF-8" .Position = objstream.size .WriteText = str .Savetofile server.mappath ("/sitmap.xml"), 2 ' -Generated XML -имя файла .Закрывать Закончить с Установить objstream = ничего Если не ошибся, тогда Response.write (<script> alert («Успешное генерирование карты сайтов!»); Inistory.back (); </script> ») Response.end Конец, если Sub -ShowsUbfolders (objFolder) SET Colorders = objFolder.subfolders Для каждой objsubfolder в Colfolders Если папка (objsubfolder.path) тогда 'Response.write getFileLink (objsubfolder.path, objsubfolder.datelastmodify) Str = str & getFileLink (objsubfolder.path, objsubfolder.datelastmodify) и vbcrlf Установить цвета = objsubfolder.files Для каждого objfile в Colfiles 'Response.write getFileLink (objfile.path, objfile.datelastmodify) Str = str & getfilelink (objfile.path, objfile.datelastmodify) и vbcrlf Следующий ShowSubfolders (objsubfolder) конец, если Следующий Конец суб Функция getFileLink (файл, DataFile) file = reply (file, root, "") file = reply (file, "/", "/") Если filextensionIsbad (файл), тогда выходит функция Если месяц (datafile) <10d filedatem = "0" Если день (datafile) <10, что регистрация = "0" FIDETATE = Год (DATAFILE) & "-" & FILDATEM & MONTY (DATAFILE) & "-" & FINTED & Day (DataFile) GetFileLink = "<Url> <coc>" & server.htmlencode (session ("server") & vdir & file) и "</loc> <stastmod>" & filedate & "</lastmod> <broadeFreq> Daily </ </Reampreq> <Приоритет> 1.0 </Приоритет> </url> "" Response.flush Конечная функция Функциональная папка (pathname) 'Справочник, который необходимо отфильтровать (не перечислен в Sitemap) Pathexclusion = aray ("/temp", "/_ vti_cnf", "_ vti_pvt", "_ vti_log", "cgi-bin", "/admin", "/edu") FOLDERPERMISSION = TRUE Для каждого пути, включенного в PathExclusion Если instr (ucase (pathname), ucase (pathexclud))> 0 тогда FOLDERPERMISSION = FALSE Выход для конец, если следующий Конечная функция Функция fileeExtensionIsbad (sfilename) Dim sfileextension, bfileextensionisvalid, sfileext 'Изменить для расширения вашего файла (http://www.googleguide.com/file_type.html) Extensions = 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 ") Установите имя файла списка, если расширение не среди него, Sitemap не будет включать файл расширенного имени
|