De acordo com a modificação do código fornecida pela floresta, o webmaster foi testado no vevb.com, que é fácil de usar!
Versão ASP, requer suporte FSO do espaço!
A seguir, o fragmento de código:
<%
Server.scriptTimeout = 50000
'Sitemap_gen.asp
'Um script simples para os sitemaps de produção automáticos para um servidor da web, no Google Sitemap Protocol (GSP)
Por Francesco Passantino
'www.iteam5.net/francesco/sitemap
'V0.2 Lançado em 5 de junho de 2005
'
Licença 'BSD 2.0,
'http://www.opensource.org/license/bsd-dhense.php
'Colete e organize: chongqing [email protected]
sessão (servidor) = http: //192.168.0.111 'Seu nome de domínio
Vdir = / 'Faça um diretório de mapa do site, diretório relativo (em relação ao diretório raiz)
set objfso = createObject (script.filesystemoBject)
root = server.mappath (vdir)
'Response.ContentType = Text/XML
'Response.Write <?
'Response.write <urlset xmlns =' http://www.google.com/schemas/sitemap/0.84 '>
Str = <?
Str = str & <urlset xmlns = 'http://www.google.com/schemas/sitemap/0.84'> & vbcrlf
Set objFolder = objfso.getFolder (root)
'Response.Write getFilelink (objfolder.path, objfolder.datelastmodify)
Set Cores = Objfolder.Files
Para cada objfile em colfilos
'Response.Write getFilelink (objfile.path, objfile.datelastmodify)
Str = str & getFilelink (objfile.path, objfile.datelastmodify) & vbcrlf
Próximo
ShowsubFolders (ObjFolder)
'Response.write </urlset>
Str = str & </urlset> & vbcrf
Definir FSO = nada
Set objStream = server.createObject (adodb.stream)
Com objstream
'.Type = adTypetext
'.Mode = AdmodereadWrite
.OPeen
.CharSet = UTF-8
.Position = objStream.size
.WriteText = str
.Savetofile server.mappath (/sitemap.xml), o nome do arquivo XML gerado por 2 '
.Fechar
Termine com
Definir objstream = nada
Se não errar então
Response.write (<cript> alert ('Mapa de site de geração bem -sucedido!'); History.back (); </script>)
Resposta.END
Final se
Sub ShowsubFolders (ObjFolder)
Set Colorders = ObjFolder.SubFolders
Para cada objsubfolder em ColFolders
Se o Folderpermission (objsubFolder.path) então
'Response.Write getFilelink (objsubFolder.path, objsubFolder.datelastmodify)
Str = str & getFilelink (objsubFolder.path, objsubFolder.datelastmodify) & vbcrlf
Set Cores = ObjSubFolder.Files
Para cada objfile em colfilos
'Response.Write getFilelink (objfile.path, objfile.datelastmodify)
Str = str & getFilelink (objfile.path, objfile.datelastmodify) & vbcrlf
Próximo
ShowsubFolders (ObjSubFolder)
final se
Próximo
Final sub
Função getFilelink (arquivo, arquivo de dados)
Arquivo = Substitua (arquivo, root,)
arquivo = substituir (arquivo,/,/)
Se FILEXTENSONSIDISBAD (FILE), então a função de saída
Se mês (DataFile) <10d filedatem = 0
Se dia (arquivo de dados) <10d arquivado = 0
FileDate = Ano (DataFile) &-& FileDatem & Month (DataFile) &-& FileDed & Day (DataFile)
getFilelink = <url> <coc> & server.htmlencode (sessão (servidor) & vdir & file) & </local) q> <prioridade> 1.0 </liority> </url "
Response.flush
Função final
Função Folderpermission (nome do caminho)
'O diretório que precisa ser filtrado (não listado no sitemap)
Pathexclusion = Aray (/temp,/_ vti_cnf, _vti_pvt, _vti_log, cgi-bin,/admin,/edu)
FolderPermission = true
Para cada PathExcluded em PathExclusion
Se Instr (UCase (PathName), UCase (PathExcluded))> 0 Então
PastaPermission = false
saída para
final se
próximo
Função final
Função FileExtensionIsBad (Sfilename)
Dim sfileExtension, bfileExtensionIsValid, sfileExt
'Modifique para sua extensão de arquivo (http://www.googleguide.com/file_type.html)
Extensões = Array (PNG, GIF, JPG, JPEG, ZIP, PDF, PS, HTML, HTM, PHP, WK1, WK2, WK3, WK4, WK5, WKI, WKS, WKU, LWP, MW, XLS, PPT, doc, SWF, WKS, WPS, WDB, WRI, RTF, ANS, TXT)
'Defina o nome do arquivo da lista, se a extensão não estiver entre ele, o sitemap não incluirá o arquivo do nome estendido
Se Len (Trim (SfileName)) = 0 então
FileExtensionIsBad = true
Função de saída
final se
SfileExtension = Right (SfileName, Len (SfileName) -Instrrev (SfileName ,.)))
bfileExtensionIsValid = False 'assume a extensão é ruim
Para cada sfileExt em extensões
Se ucase (sfileExt) = ucase (sfileExtation) então
bfileExtensionIsValid = true
saída para
final se
próximo
FileExtensionisbad = não bfileExtIntisValid
Função final
%>