asp genera paginación estática
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: /p>
<%
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.