Los amigos que lo han leído pueden ayudar. Estos códigos se publican por primera vez. Muchos de los códigos que existen son muy complicados, incomprensibles o inutilizables. Cuando escribo lo siguiente, intento ser lo más conciso y claro posible. Hay muchos de los llamados códigos. El código de generación del mapa del sitio solo genera direcciones de archivos de directorio y no genera direcciones dinámicas. Si tiene un sitio web de artículos con 2000 artículos, puede modificar la tabla de datos del artículo correspondiente para generar no solo todos los archivos de directorio, sino también sus 2000 direcciones dinámicas. No hay absolutamente nada que decir, y la velocidad de generación es muy rápida. .
Guarde el siguiente código como un archivo sitemap.asp, modifique algunos lugares que he anotado y no modifique los demás. Solo sabrá si es bueno después de usarlo.
Copie el código de código de la siguiente manera:
<!--#include file=conn.asp-->
<%
sesión (recuento) = 0
strURL = http:// & request.servervariables(SERVER_NAME) & _
left(request.servervariables(SCRIPT_NAME),len(request.servervariables(SCRIPT_NAME))-len(/sitemap.asp))
tonto oscuro
tontocat = tontocat + <?xml versión=1.0 codificación=UTF-8?>
Foolcat = Foolcat + <!--Archivo de mapa del sitio de Google generado por http://www.xxx.com & return_RFC822_Date(ahora,GMT) & -->
gato tonto = gato tonto + <urlset xmlns=http://www.google.com/schemas/sitemap/0.84>
gato tonto = gato tonto + <url>
gato tonto = gato tonto + <loc> & strURL & /</loc>
gato tonto = gato tonto + </url>
sesión(recuento)=sesión(recuento)+1
establecer all_fs = Server.CreateObject(Scripting.FileSystemObject)
establecer all_folder = all_fs.GetFolder(servidor.MapPath(/))
establecer todos los archivos = todas las carpetas.archivos
para cada archivo en all_files
gato tonto = gato tonto + <url>
tontocat = tontocat + <loc> & strURL & / & Archivo.Nombre & </loc>
gato tonto = gato tonto + </url>
sesión(recuento)=sesión(recuento)+1
próximo
js tenue, sql
establecer js = servidor.CreateObject(ADODB.RecordSet)
sql = select * from [nombre de la tabla a generar] ordenar por id asc //Modifica el nombre de la tabla de datos que deseas generar
establecer js = conexión.ejecutar (sql)
hacer hasta js.eof
id=&js(id) //Cambia a tu campo de identificación
gato tonto = gato tonto + <url>
Foolcat = Foolcat + <loc> & strURL & /xxx.asp?Id= & id & </loc> //Cambia tu nombre de archivo e ID
gato tonto = gato tonto + </url>
sesión(recuento)=sesión(recuento)+1
js.movenext
bucle
js.cerrar
establecer js = nada
gato tonto = gato tonto + </urlset>
gato tonto = + gato tonto +
gato tonto = & gato tonto &
CarpetaPath = Servidor.MapPath(/)
Establecer fso = Server.CreateObject(Scripting.FileSystemObject)
Establecer fout = fso.CreateTextFile(FolderPath/sitemap.xml)
fout.writeLine tontocat
fout.cerrar
set fout = nada
con.cerrar
establecer conexión = nada
Función return_RFC822_Date(byVal myDate, byVal TimeZone)
Atenuar myDay, myDays, myMonth, myYear
Atenuar mis Horas, mis Minutos, mis Segundos
miFecha = CDate(miFecha)
miDía = EnWeekDayName(miFecha)
misDías = Derecha(00 y Día(miFecha),2)
miMes = EnNombreMes(miFecha)
miAño = Año(miFecha)
misHoras = Derecha(00 y Hora(miFecha),2)
misMinutos = Derecha(00 y Minuto(miFecha),2)
misSegundos = Derecha(00 y Segundo(miFecha),2)
return_RFC822_Date = miDía, & _
misDías & _
miMes&_
miAño&_
misHoras:& _
misMinutos:& _
misSegundos & _
y zona horaria
Función final
Función EnWeekDayName(EntradaFecha)
Resultado oscuro
Seleccione el día de la semana del caso (fecha de entrada, 1)
Caso 1:Resultado=Sol
Caso 2: Resultado = Lun
Caso 3:Resultado=Mar
Caso 4:Resultado=Miércoles
Caso 5:Resultado=Jue
Caso 6:Resultado=viernes
Caso 7:Resultado=Sáb
Finalizar selección
EnWeekDayName = Resultado
Función final
Función EnMonthName(EntradaFecha)
Resultado oscuro
Seleccione el mes del caso (fecha de entrada)
Caso 1: Resultado = enero
Caso 2:Resultado=febrero
Caso 3:Resultado=Mar
Caso 4:Resultado=Abr
Caso 5:Resultado=Mayo
Caso 6:Resultado=Jun
Caso 7:Resultado=julio
Caso 8: Resultado = agosto
Caso 9:Resultado=Septiembre
Caso 10:Resultado=Oct
Caso 11: Resultado = noviembre
Caso 12:Resultado=Dic
Seleccionar fin
EnMonthName = Resultado
Función final
%>