| El siguiente es el fragmento de código: <%@Idioma = "vBscript" Codepage = "65001"%> <% Respuesta.charset = "UTF-8" 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 sesión ("servidor") = "http://7thpark.com/" '"Su nombre de dominio VDIR = "/" '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 "<? Xml versión =' 1.0 'encoding =' utf-8 '?>" 'Response.Write "<urlset xmlns =' http://www.google.com/schemas/sitemap/0.84 '>" Str = "<? Xml versión = '1.0' encoding = 'utf-8'?>" & Vbcrlf ' Str = str & "<urlset xmlns = 'http://www.google.com/schemas/sitemap/0.84'>" & vbcrlfff 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 "</slset>" " Str = str & "</urlset>" y vbcrlf 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 ("/SitMap.xml"), Nombre de archivo XML Generado de 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 Day (DataFile) <10 que se archivó = "0" Artimedate = año (DataFile) & "-" & Filedatem & Month (DataFile) & "-" & Filedated & Day (DataFile) GetFileLink = "<Url> <oc>" & server.htmlencode (session ("servidor") & vdir & file) & "</oc> <lastmod>" & Filedate & "</dastMod> <ChangeFreq> Daily </ </cambefreq> <riority> 1.0 </riority> </sl> "" 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 wk2 "", "wk3", "wk4", "wk5", "wki", "wks", "wku", "lwp", "mw", "xls", "ppt", "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
|