Según la modificación del código proporcionada por el bosque, el webmaster ha sido probado en VEVB.com, ¡lo cual es fácil de usar!
¡Versión ASP, requiere soporte FSO del espacio!
El siguiente es el fragmento de código:
<%
Server.scriptTimeOut = 50000
'Sitemap_gen.asp
'Un guión simple para productos automáticos para un servidor web, en el Protocolo de mapa del sitio de Google (GSP)
'Por Francesco Passantino
'www.iteam5.net/francesco/sitemap
'V0.2 lanzado el 5 de junio de 2005
'
'Licencia BSD 2.0,
'http://www.opensource.org/licenses/bsd-dhense.php
'Recogida y organización: chongqing [email protected]
sesión (servidor) = http: //192.168.0.111 'Su nombre de dominio
VDIR = / 'Haga un directorio de Sitemap, directorio relativo (en relación con el directorio raíz)
establecer objfso = createObject (scripting.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
Establecer objfolder = objfso.getfolder (root)
'Response.write getFilelink (objfolder.path, objfolder.datelastmodify)
Establecer colores = objfolder.files
Para cada objfile en colfiles
'Response.write getFilelink (objfile.path, objfile.datelastmodify)
Str = str & getFilelink (objfile.path, objfile.datelastmodify) y vbcrlf
Próximo
Showsubfolders (objfolder)
'Response.write </srlset>
Str = str & </ urlset> y vbcrf
Establecer FSO = nada
Establecer objstream = server.createObject (ADODB.Stream)
Con objstream
'.Type = adTypetext
'.Mode = admodeReadWrite
.Opeen
.Charset = UTF-8
.Position = objstream.size
.WriteText = str
.Savetofile Server.Mappath (/SitEmap.xml), el nombre del archivo XML generado por 2 '
.Cerca
Terminar con
Establecer objstream = nada
Si no ERR entonces
Response.Write (<Script> Alert ('Mapa de sitio de generación exitoso!'); History.back (); </script>)
Respuesta.
Final si
Sub showsubfolders (objfolder)
Establecer colorders = objfolder.subfolders
Para cada objsubfolder en colfolders
If carpetPermission (objsubfolder.path) entonces
'Response.Write getFilelink (objsubfolder.path, objsubfolder.datelastmodify)
Str = str & getFilelink (objsubfolder.path, objsubfolder.datelastmodify) y vbcrlf
Establecer colores = objsubfolder.files
Para cada objfile en colfiles
'Response.write getFilelink (objfile.path, objfile.datelastmodify)
Str = str & getFilelink (objfile.path, objfile.datelastmodify) y vbcrlf
Próximo
Showsubfolders (objsubfolder)
final si
Próximo
Final
Función getFilelink (archivo, dataFile)
file = reemplazar (archivo, root,)
file = reemplazar (archivo,/,/)
If fileXtensionIsBad (archivo) y luego salir de la función
Si el mes (DataFile) <10d FileDatem = 0
Si el día (DataFile) <10d archivado = 0
Artimedate = año (DataFile) &-& FileDatem & Month (DataFile) &-& Fileed & Day (DataFile)
getFilelink = <Url> <coc> & server.htmlencode (sesion (servidor) y vdir & file) & </local) q> <riority> 1.0 </priority> </url "
Respuesta. Flush
Función final
FUNCIÓN DE LA COMPARACIÓN
'El directorio que necesita ser filtrado (no listado en el mapa del sitio)
PathExClusion = aray (/temp,/_ vti_cnf, _vti_pvt, _vti_log, cgi-bin,/admin,/edu)
CarpetaPermission = True
Para cada rutaxCluded en PathExclusion
If instrer (ucase (rathName), ucase (pathExCluded))> 0 entonces
CarpetaPermisión = falso
salir
final si
próximo
Función final
Función fileExtensionIsBad (sfilename)
Dim SfileExtension, bfileExtensionIsValid, sfileExtExt
'Modificar para la extensión de su archivo (http://www.googleguide.com/file_type.html)
Extensiones = Array (PNG, GIF, JPG, JPEG, ZIP, PDF, PS, HTML, HTM, PHP, WK1, WK2, WK3, WK4, WK5, WKI, WKS, WKU, LWP, MW, XLS, PPT, DOC, DOC, SWF, WKS, WPS, WDB, WRI, RTF, ANS, TXT)
'Establezca el nombre del archivo de la lista, si la extensión no está entre ella, el mapa del sitio no incluirá el archivo del nombre extendido
Si len (TRIM (SfileName)) = 0 entonces
FileExtensionIsBad = True
Función de salida
final si
SfileExtension = Right (SfileName, Len (SfileName) -InstrV (SfileName ,.)))
bfileExtensionIsValid = falso 'Suponga que la extensión es mala
Para cada sfileext en extensiones
Si ucase (sfileExt) = ucase (sfileExtation) entonces
bfileExtensionIsValid = True
salir
final si
próximo
FileExtensionIsBad = no bfileExtentisValid
Función final
%>