Amigos que leram podem ajudar. Esses códigos são postados pela primeira vez. Muitos dos códigos disponíveis são muito complicados, incompreensíveis ou inutilizáveis. Quando escrevo o seguinte, tentei ser o mais conciso e claro possível. . Existem muitos chamados códigos por aí. O código de geração do mapa do site só gera endereços de arquivos de diretório e não gera endereços dinâmicos. Se você for um site de artigos com 2.000 artigos, poderá modificar a tabela de dados do artigo correspondente para gerar não apenas todos os arquivos de diretório, mas também seus 2.000 endereços dinâmicos. Não há absolutamente nada a dizer, e a velocidade de geração é muito rápida. .
Salve o código a seguir como um arquivo sitemap.asp, modifique alguns locais que anotei e não modifique os outros. Você só saberá se está bom depois de usá-lo.
Copie o código do código da seguinte forma:
<!--#include arquivo=conn.asp-->
<%
sessão(contagem)=0
strURL = http:// & request.servervariables(SERVER_NAME) & _
esquerda(request.servervariables(SCRIPT_NAME),len(request.servervariables(SCRIPT_NAME))-len(/sitemap.asp))
idiota fraco
tolo = tolo + <?xml version=1.0 encoding=UTF-8?>
tolocat = tolocat + <!--Arquivo de mapa do site do Google gerado por http://www.xxx.com & return_RFC822_Date(now,GMT) & -->
tolo = tolo + <urlset xmlns=http://www.google.com/schemas/sitemap/0.84>
tolo = tolo + <url>
gato tolo = gato tolo + <loc> & strURL & /</loc>
tolo = tolo + </url>
sessão(contagem)=sessão(contagem)+1
definir all_fs = Server.CreateObject (Scripting.FileSystemObject)
definir all_folder = all_fs.GetFolder(server.MapPath(/))
definir todos_arquivos = all_folder.files
para cada arquivo em all_files
tolo = tolo + <url>
gato tolo = gato tolo + <loc> & strURL & / & Arquivo.Nome & </loc>
tolo = tolo + </url>
sessão(contagem)=sessão(contagem)+1
próximo
dim js,sql
definir js = server.CreateObject (ADODB.RecordSet)
sql = select * from [nome da tabela a ser gerada] ordenar por id asc //Modifique o nome da tabela de dados que deseja gerar
definir js = conn.execute (sql)
faça até js.eof
id=&js(id) //Muda para o campo id
tolo = tolo + <url>
crazycat = crazycat + <loc> & strURL & /xxx.asp?Id= & id & </loc> //Mude para o nome e id do seu arquivo
tolo = tolo + </url>
sessão(contagem)=sessão(contagem)+1
js.movnext
laço
js.fechar
definir js = nada
tolo = tolo + </urlset>
tolo = + tolo +
tolo = & tolo &
FolderPath = Servidor.MapPath(/)
Definir fso = Server.CreateObject(Scripting.FileSystemObject)
Definir fout = fso.CreateTextFile(FolderPath/sitemap.xml)
fout.writeLine idiota
fout.fechar
set fout = nada
conexão.fechar
definir conn = nada
Função return_RFC822_Date(byVal myDate, byVal TimeZone)
Escurecer meu dia, meus dias, meu mês, meu ano
Diminuir minhas horas, meus minutos, meus segundos
minhaData = CDate(minhaData)
meuDia = EnWeekDayName(minhaData)
meusDias = Certo(00 & Dia(minhaData),2)
meuMês = EnNomeMês(minhaData)
meuAno = Ano(minhaData)
minhasHoras = Certo(00 & Hora(minhaData),2)
meusMinutos = Certo(00 & Minuto(minhaData),2)
meusSegundos = Certo(00 e Segundo(minhaData),2)
return_RFC822_Date = meudia, & _
meus dias & _
meu mês&_
meu ano&_
meuHorário:& _
meusminutos:& _
meus segundos & _
& Fuso horário
Função final
Função EnWeekDayName(InputDate)
Resultado escuro
Selecione Caso WeekDay(InputDate,1)
Caso 1:Resultado=Sol
Caso 2:Resultado=Seg.
Caso 3:Resultado=Terça
Caso 4:Resultado=Quarta
Caso 5:Resultado=Qui
Caso 6: Resultado = Sexta
Caso 7:Resultado=Sábado
Finalizar seleção
EnWeekDayName = Resultado
Função final
Função EnMonthName(InputDate)
Resultado escuro
Selecione o mês do caso (InputDate)
Caso 1:Resultado=Janeiro
Caso 2:Resultado=fevereiro
Caso 3:Resultado=março
Caso 4:Resultado=abril
Caso 5:Resultado=Maio
Caso 6:Resultado=Junho
Caso 7:Resultado=julho
Caso 8:Resultado=agosto
Caso 9:Resultado=Set.
Caso 10:Resultado=Outubro
Caso 11:Resultado=Novembro
Caso 12:Resultado=Dez
Finalizar seleção
EnMonthName = Resultado
Função final
%>