ASP: Convertir páginas dinámicas en estáticas

Como ya sabéis uno de los factores que influye en el buen posicionamiento en  Google es el tiempo de descarga de las páginas.

Es decir, que si por algún motivo vuestras páginas tienen un tiempo de descarga excesivo Google os penalizará y no conseguiréis salir nunca en las primeras posiciones de una búsqueda.

Una de las técnicas SEO que más se utilizan para disminuir el tiempo de descarga de las páginas consiste en convertir las páginas dinámicas en páginas estáticas. Es decir, convertir vuestras páginas creadas en algún lenguaje de servidor tipo ASP o PHP en páginas HTML sin accesos a bases de datos.

Pero realizar manualmente esta conversión puede ser un largo y laborioso trabajo si vuestro site tiene un volumen considerable. 

Pues bien, en esta entrada os dejo un trozo de código ASP que realiza de forma automática esta tarea: convertir vuestras páginas dinámicas en estáticas.

<%

Dim objXML,strUrl

strUrl = «http://www.dominio.com/pagina.asp»

Set objXML = Server.CreateObject («MSXML2.ServerXMLHTTP»)

if Err then

          Response.write «Error: » & Err.Description

end if

objXML.Open «GET», strURL, false, «», «»

objXML.send 

if objXML.Status >= 400 and objXML.Status <= 599 then

          Response.write «Error al obtener página: » & objXML.Status & » – » & objXML.statusText

else
          ResponsePage = objXML.ResponseText
          Set fso = CreateObject(«Scripting.FileSystemObject»)
          Set f = fso.CreateTextFile(Server.Mappath(«resultado.htm») , True)
          f.Write ResponsePage
          f.Close
          set fso = Nothing
          Response.write («Terminado»)
end if 

Set objXML = Nothing 

%>