1
2009
Script em ASP – Google Sitemap Generator
Disponibilizamos aqui um script em ASP básico para a geração de um Sitemap no formato definido pelos padrões do projeto Sitemaps.Org. O script é fácil de utilizar, e se baseia no trabalho de Francesco Passantino, disponível em www.iteam5.net/francesco/sitemap_gen.
Abaixo, alguns comentários para a utilização do script:
1 | session("server")="http://www.seusite.net/" |
Acima, deve-se trocar a URL de exemplo pela URL do seu site.
1 | session("priority")=1.00 |
Acima, definimos a prioridade padrão como 1.0, que será decrementada a cada diretório encontrado (Ex: /css, /images,/js, etc).
1 | phisicalDir="C:\inetpub\wwwroot\seusite\" |
Acima, devemos especificar o caminho físico para o diretório raíz do site, ou então usar a função Server.MapPath() do VBScript para retornar o diretório físico.
1 | utcOffset=-3 |
Acima, definimos o Offset do Horário Universal (UTC) baseado na localização do servidor. Nesse caso, definimos como -3 (horário de Brasília).
1 2 3 4 5 6 7 8 9 10 11 | Function Folderpermission(pathName) 'modify this to exclude path PathExclusion=Array("\temp","\_vti_cnf","\_vti_pvt","\_vti_log","\cgi-bin","\_css","\_inc","\_js","\adm","\db","\blog","\aspnet_client","\sitemap") Folderpermission =True for each PathExcluded in PathExclusion if instr(ucase(pathName),ucase(PathExcluded))>0 then Folderpermission = False exit for end if next End Function |
A função acima define quais diretórios não terão seus conteúdos listados. Por exemplo, podemos incluir diretórios de scripts (includes), javascripts, folhas de estilos, imagens, bancos de dados, etc.
1 2 | 'http://www.googleguide.com/file_type.html Extensions = Array("png","gif","jpg","zip","pdf","ps","html","htm","asp","wk1","wk2","wk3","wk4","wk5","wki","wks","wku","lwp","mw","xls","ppt","doc","wks","wps","wdb","wri","rtf","ans") |
No array acima (Extensions), definimos quais as extensões de arquivos serão permitidas na geração do XML Sitemap. No comentário temos o link do Google que estabelece quais extensões são aceitas no modelo de sitemap aceito pelos robôs desta empresa.
1 2 3 4 5 6 7 8 9 10 11 12 13 | Function FileNameIsBad(sFileName) if len(trim(sFileName)) = 0 then FileNameIsBad = true Exit Function end if Filename = Array("/alive.asp","/404.asp","/500.asp","/301.asp","/sitemap_gen.asp") FileNameNumber = ubound(Filename) for i=0 to FileNameNumber if Filename(i) = sFileName then FileNameIsBad = True end if next End Function |
Esta função acima verifica os nomes dos arquivos, descartando páginas de erro, scripts padrão do servidor IIS (ou PWS), etc. Também será descartado o próprio script de geração do sitemap (“sitemap_gen.asp”).
Bem, por hora isso é tudo. Clique na imagem abaixo para fazer o download do script compactado no padrão Zip.
Posts relacionados
Deixe um comentário
Publicidade
Últimos arquivos
- FATEC-SBC - LPR2 (Java) - Projeto de Monitoria
- FATEC-SBC - ADME - Segmentação de Mercado
- FATEC-SBC - ADME - Pesquisa Mercadológica
- FATEC-SBC - ADME - Pesquisa de Mercado
- FATEC-SBC - ADME - Forças Competitivas de Porter
- FATEC-SBC - ADME - Celulares e o Marketing de Relacionamento
- FATEC-SBC - ADME - Anotações de Aulas
- Apresentação: Administração Mercadológica - Plano de Marketing - franquia Cacau Show

Postado por








