ASP genera regularmente código HTML estático

<%

'Determine si se generará un nuevo HTML

si Aplicación(cache_asptohtml_date)= luego

Aplicación.Lock

Aplicación(cache_asptohtml_date)=now()

Aplicación.Unlock

Llamar aspTohtml

Response.Redirect(index.html)

finalice

si DateDiff (s, Aplicación (cache_asptohtml_date), Ahora)> 100 y luego 'Compare la diferencia de segundos entre la hora de la última actualización y la

hora

Application(cache_asptohtml_date)=now()

Application.UnLock

Llame a aspTohtml

Response.Redirect(index.html)

De lo contrario

Response.Redirect(index.html)

Finalice si

'Obtenga la

función getpath

si Request.ServerVariables(SERVER_PORT)<>80 luego

UserUrl = http://&Request.ServerVariables(SERVER_NAME)&: & Request.ServerVariables(SERVER_PORT)& Request.ServerVariables(URL)

else

UserUrl = http://&Request.ServerVariables(SERVER_NAME)& Request.ServerVariables(URL)

finaliza si

getpath=left(UserUrl,InstrRev(UserUrl,/))

finaliza la función

subaspTohtml

'----------------------------------------------- -- ----------

'Utilice XMLHTTP para generar el código para la página de inicio estática'Curl

es la dirección de su página de inicio, asegúrese de que su espacio admita FSO

'-------------------------- --------------------------------

lectura tenue, rizo, contenido

Curl = getpath&home.asp

read = getHTTPPage (Curl)

si leer<> luego

contenido=leer

Establecer Fso = Server.CreateObject(Scripting.FileSystemObject)

Filen=Server.MapPath(index.html)

Establecer Site_Config=FSO.CreateTextFile(Filen,true, False)

Site_Config.Write content

Site_Config.Close

Set Fso = Nada

finaliza si

finaliza la subfunción

getHTTPPage(url)

dim http

set http=Server.createobject(Microsoft.XMLHTTP)

Http.open GET, url, false

Http.send()

si Http.readystate<>4 luego

sale de la función

y finaliza si

getHTTPPage=bytesToBSTR(Http.responseBody,GB2312)

set http=nada

si err.number<>0 entonces err.Clear

final

BytesToBstr(body,Cset)

dim objstream

set objstream = Server.CreateObject(adodb.stream)

objstream.Type = 1

objstream.Modo =3

objstream.Abrir

objstream.Escribir cuerpo

objstream.Position = 0

objstream.Type = 2

objstream.Charset = Cset

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = nada

Función final

%>

ASP genera regularmente páginas estáticas (HTML) 2.

Copie el código de la siguiente manera:

<%

set fs= server.createobject(scripting.filesystemobject)

file=server.mappath(time.txt)

establecido txt=fs.opentextfile(file,1,true)

si no es txt.atendofstream entonces

times=txt.ReadLine

De lo contrario,

Response.write <br /><!--¿Has descubierto que time.txt ha comenzado a generarse?-- >

HtmlPage = time .txt '//Nombre del archivo HTML generado

Plantilla = NOW()

Establecer FSO = Server.CreateObject (Scripting.FileSystemObject)

Establecer FileOut = FSO.CreateTextFile(Server.MapPath (HtmlPage))

FileOut.WriteLine Plantilla

FileOut.Close

Establecer FSO = Nada

finaliza If

If dateiff(s,times,NOW()) > 3600 Then '//El tiempo desde la última actualización es mayor que 3600 segundos, actualizar

respuesta.escribir <br /><!--Comenzar a actualizar después de que pase el tiempo-->

código = Aquí está el código html que debe generarse '//Hay muchas formas de obtener el código

'//Utilice FSO para generar la página HTML

HtmlPage = index.html '//El nombre del archivo HTML generado

Plantilla = código

Establecer FSO = Server.CreateObject (Scripting. FileSystemObject)

Establecer FileOut = FSO.CreateTextFile(Server.MapPath (HtmlPage))

FileOut.WriteLine Plantilla

FileOut.Close

Establecer FSO = Nada

'//Utilice FSO para generar el archivo time.txt

HtmlPage = time.txt '//Nombre del archivo HTML generado

Plantilla = NOW()

Establezca FSO = Server.CreateObject (Scripting.FileSystemObject)

Establezca FileOut = FSO.CreateTextFile(Server.MapPath ( HtmlPage))

Plantilla FileOut.WriteLine

FileOut.Close

Establecer FSO = Nada

más

respuesta.escribir <br /><!-- ¡Ha pasado&datediff(s,times,NOW())&segundos!-->

End If

%>