ASP génère régulièrement du code HTML statique

<%

'Déterminez s'il faut générer un nouveau HTML

if Application(cache_asptohtml_date)= then

Application.Lock

Application(cache_asptohtml_date)=now()

Application.Unlock

Call aspTohtml

Response.Redirect(index.html)

end if

if DateDiff (s, Application(cache_asptohtml_date),Now)> 100 then 'Comparez le nombre de secondes de différence entre l'heure de la dernière mise à jour et l'

heure

Application(cache_asptohtml_date)=now()

Application.UnLock

Appel aspTohtml

Response.Redirect(index.html)

Else

Response.Redirect(index.html)

End if

'Obtenir le répertoire actuel !

fonction getpath

if Request.ServerVariables(SERVER_PORT)<>80 puis

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

else

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

fin si

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

fin de la fonction

sous aspVershtml

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

'Utilisez XMLHTTP pour générer le code de la page d'accueil statique'Curl

est l'adresse de votre page d'accueil, assurez-vous que votre espace prend en charge FSO

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

dim read,Curl,content

Curl=getpath&home.asp

read=getHTTPPage(Curl)

si read<> then

content=read

Set Fso = Server.CreateObject(Scripting.FileSystemObject)

Filen=Server.MapPath(index.html)

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

Site_Config.Write content

Site_Config.Close

Set Fso = Rien ne

se termine si

End sub

Function getHTTPPage(url)

dim http

set http=Server.createobject(Microsoft.XMLHTTP)

Http.open GET, url,false

Http.send()

si Http.readystate<>4 alors

quittez

la fin de la fonction si

getHTTPPage=bytesToBSTR(Http.responseBody,GB2312)

set http=nothing

if err.number<>0 then err.Clear

End Function

Function BytesToBstr(body,Cset)

dim objstream

set objstream = Server.CreateObject(adodb.stream)

objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.Write body

objstream.Position = 0

objstream.Type = 2

objstream.Charset = Cset

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = rien

End Function

%>

ASP génère régulièrement des pages statiques (HTML) 2.

Copiez le code comme suit :

<%

set fs= server.createobject(scripting.filesystemobject)

file=server.mappath(time.txt)

défini txt=fs.opentextfile(file,1,true)

sinon txt.atendofstream alors

times=txt.ReadLine

Sinon

réponse.write <br /><!--Avez-vous constaté que time.txt a commencé à être généré !-- >

HtmlPage = time .txt '//Nom du fichier HTML généré

Template = NOW()

Définir FSO = Server.CreateObject (Scripting.FileSystemObject)

Définir FileOut = FSO.CreateTextFile(Server.MapPath (HtmlPage))

FileOut.WriteLine Template

FileOut.Close

Set FSO = Nothing

end If

If datediff(s,times,NOW()) > 3600 Then '//Le temps écoulé depuis la dernière mise à jour est supérieur à 3 600 secondes, mettre à jour

réponse.write <br /><!--Démarrer la mise à jour une fois le temps écoulé-->

code = Voici le code html à générer '//Il existe de nombreuses façons d'obtenir le code

'//Utilisez FSO pour générer la page HTML

HtmlPage = index.html '//Le nom du fichier HTML généré

Template = code

Set FSO = Server.CreateObject (Scripting. FileSystemObject)

Définir FileOut = FSO.CreateTextFile (Server.MapPath (HtmlPage))

Modèle FileOut.WriteLine

FileOut.Close

Définir FSO = Rien

'//Utilisez FSO pour générer le fichier time.txt

HtmlPage = time.txt '//Nom du fichier HTML généré

Template = NOW()

Définir FSO = Server.CreateObject (Scripting.FileSystemObject)

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

Modèle FileOut.WriteLine

FileOut.Close

Définir FSO = Nothing

Else

réponse.write <br /><!-- Il s'est écoulé&datediff(s,times,NOW())&seconds!-->

End If

%>