asp genera paginación estática

Cómo generar páginas web estáticas en ASP

A medida que aumenta el número de visitas al sitio web, cada vez que se leen datos de la base de datos, se produce a expensas de la eficiencia. Muchas personas que utilizan ACCESS tendrán más experiencia. Las bases de datos Static Page Plus también tendrán prioridad al realizar la búsqueda. Una práctica popular en Internet es escribir el código fuente de datos en la base de datos y luego leerlo de la base de datos para generar superficies estáticas, lo que prácticamente aumenta la cantidad de bases de datos. Generar directamente páginas estáticas a partir de páginas ASP existentes ahorrará mucho.

El siguiente ejemplo son tres páginas dinámicas index.asp?id=1/index.asp.id=2/index.asp.id=3/, que generan respectivamente ndex1.htm?6.5index2. 6.5index3.htm existe en el directorio raíz:

Código:

<%

dimstrUrl?6?5Item_Classid?6?5id ? 6?5FileName?6?5FilePath?6?5Do_Url??5Html_Temp

Html_Temp="

"

Para i=1 a 3

Html_Temp = Html_Temp&"< LI >"

Item_Classid = i

FileName = "Index"&Item_Classid&".htm"

FilePath = "Index"&Item_Classid&".

FilePath = Server.MapPath("/")&"\"&FileName

Html_Temp = Html_Temp&FilePath&""

Do_Url = "http:/// /"< / p>

Do_Url = Do_Url&Request.Servervariables("SERVER_NAME")&"/main/index.asp"

Do_Url = Do_Url&"?Item_Classid="&" & amp;Item_Classid

strUrl = Do_Url

dim objXmlHttp

set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")

objXmlHttp.open "GET"?6 ?5false

objXmlHttp.send()

Dim binFileData

binFileData = objXmlHttp.responseBody

Dim objAdoStream

set objAdoStream = Server.CreateObject("ADODE.XMLHTTP")

ObjXmlHttp.open "GET"?

objAdoStream.Open()

objAdoStream. Escribir (binFileData)

objAdoStream.SaveToFile FilePath?Response.Write Html_Temp

%>

Respuesta.