Вещи, используемые для генерации файлов sitemap.xml, способствуют ползанию поисковых систем, таких как Google.
<%
Server.scriptTimeout = 50000
'sitemap_gen.asp
'Asimplescript toAutomaty Product Sitemapforawebserver, InthegoogleSitemappotocol (GSP)
'Byfrancescopassantino
'www.iteam5.net/francesco/sitemap
'v0.2 Relauded5june2005 (ListingDirectoryTreeCursImityImprovement)
'
'Bsd2.0license,
'http://www.opensource.org/licenses/bsd-license.php
'Собран и отсортированы: Chongqing [email protected]
Session ("server") = "// www.vevb.com"
'Ваше доменное имя
vdir = "/"
'Создать каталог, где создается карта сайта, относительно каталога (относительно корневого каталога)
setObjfso = createObject ("scripting.filesystemobject")
root = server.mappath (vdir)
'response.contenttype = "text/xml"
'response.write "<? xmlversion =' 1.0'ncoding = '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 (objfolder.path, objfolder.datelastmodified)
SetColfiles = objFolder.files
Foreachobjfileincolifils
'response.writegetFileLink (objfile.path, objfile.datelastmodified)
str = str & getFileLink (objfile.path, objfile.datelastmodified) и vbcrlf
Следующий
ShowSubfolders (objFolder)
'response.write "</urlset>"
str = str & "</urlset>" & vbcrlf
setfso = ничего
SetObjStream = server.createObject ("adodb.stream")
БЕЗ БИДЕР
'.Type = adtypetext
'.Mode = admodereadwrite
.Открыть
.CHARSET = "UTF-8"
.Position = objstream.size
.WriteText = str
.Savetofilesserver.mapath ("/sitemap.xml"), 2 'Сгенерировать имя файла XML
.Закрывать
Энд
Setobjstream = ничего
Ifnoterrthen
Response.write ("<cript> alert ('успех!');
Response.end
Эндиф
SubshowsubFolders (objFolder)
SetColfolders = objFolder.subfolders
Foreachobjsubfolderincolfolders
Illerpermission (objsubfolder.path) тогда
'response.writegetFileLink (objsubfolder.path, objsubfolder.datelastmodified)
str = str & getFileLink (objsubfolder.path, objsubfolder.datelastmodified) и vbcrlf
SetColfiles = objsubfolder.files
Foreachobjfileincolifils
'response.writegetFileLink (objfile.path, objfile.datelastmodified)
str = str & getFileLink (objfile.path, objfile.datelastmodified) и vbcrlf
Следующий
ShowSubfolders (objsubfolder)
эндиф
Следующий
Заканчивая
