As coisas usadas para gerar arquivos sitemap.xml são propícios ao rastreamento de mecanismos de pesquisa como o Google.
<%
Server.scriptTimeout = 50000
'sitemap_gen.asp
'ASImppleScript ToAutomaticaticamente produz SitemapsForaWebServer, INthegooglesitemApprotocol (GSP)
'Byfrancescopassantino
'www.iteam5.net/francesco/sitemap
'v0.2ReledEd5June2005 (ListingAdirectoryTreeReReCursivlyImpoVement)
'
'BSD2.0license,
'http://www.opensource.org/license/bsd-license.php
'Coletado e classificado: chongqing [email protected]
sessão ("servidor") = "// www.vevb.com"
'Seu nome de domínio
vdir = "/"
'Crie o diretório onde o sitemap é feito, em relação ao diretório (em relação ao diretório raiz)
setobjfso = createObject ("scripting.filesystemoBject")
root = server.mappath (vdir)
'Response.ContentType = "Texto/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 (ObjFolder.Path, ObjFolder.DatElastModified)
SetColfiles = objFolder.Files
Foreachobjfileincolfiles
'Response.WriteGetFilelink (objfile.path, objfile.datelastmodified)
str = str & getFilelink (objfile.path, objfile.datelastmodified) e vbcrlf
Próximo
ShowsubFolders (ObjFolder)
'Response.write "</urlset>"
str = str & "</urlset>" & vbcrlf
setfso = nada
Setobjstream = server.createObject ("adodb.stream")
Sembjstream
'.Type = adTypetext
'.Mode = AdmodereadWrite
.Abrir
.Charset = "UTF-8"
.Position = objStream.size
.WriteText = str
.Savetofilesserver.mapath ("/sitemap.xml"), 2 'gerar nome do arquivo xml
.Fechar
ENDWITH
Setobjstream = nada
IfnoterTrThen
Response.Write ("<Script> alert ('Sucesso!'); History.back (); </sCript>")
Resposta.END
Endif
Sub -ShowFolders (ObjFolder)
SetColfolders = objFolder.subFolders
Foreachobjsubfolderincolfolders
ILLERPERMISSÃO (ObjSubFolder.Path) então
'Response.WriteGetFilelink (objsubFolder.path, objsubFolder.datelastmodified)
str = str & getFilelink (objsubFolder.path, objSubFolder.datelastModified) & vbcrlf
SetColfiles = objSubFolder.Files
Foreachobjfileincolfiles
'Response.WriteGetFilelink (objfile.path, objfile.datelastmodified)
str = str & getFilelink (objfile.path, objfile.datelastmodified) e vbcrlf
Próximo
ShowsubFolders (ObjSubFolder)
endif
Próximo
Endsub
