ASP generiert regelmäßig statischen HTML-Code

<%

'Bestimmen Sie, ob neues HTML generiert werden soll

, wenn 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 'Vergleichen Sie die Anzahl der Sekunden Differenz zwischen der letzten Aktualisierungszeit und der aktuellen

timeApplication.Lock

Application(cache_asptohtml_date)=now()

Application.UnLock

Call aspTohtml

Response.Redirect(index.html)

Else

Response.Redirect(index.html)

End if

'Das aktuelle Verzeichnis abrufen!

function getpath

if Request.ServerVariables(SERVER_PORT)<>80 dann

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

else

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

end if

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

end function

sub aspTohtml

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

'Verwenden Sie XMLHTTP, um den Code für die statische Homepage zu generieren.'Curl

ist Ihre Homepage-Adresse. Stellen Sie sicher, dass Ihr Bereich FSO unterstützt

. ------------ --------------------------------

dim read,Curl,content

Curl=getpath&home.asp

read=getHTTPPage(Curl)

if 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 = Nothing

end if

End sub

Function getHTTPPage(url)

dim http

set http=Server.createobject(Microsoft.XMLHTTP)

Http.open GET, url,false

Http.send()

wenn Http.readystate<>4 dann

Funktion beenden

, wenn

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 = Nothing

End Function

%>

ASP generiert regelmäßig statische Seiten (HTML) 2.

Kopieren Sie den Code wie folgt:

<%

set fs= server.createobject(scripting.filesystemobject)

file=server.mappath(time.txt)

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

if not txt.atendofstream then

times=txt.ReadLine

Else

Response.write <br /><!--Haben Sie festgestellt, dass mit der Generierung von time.txt begonnen wurde!-- >

HtmlPage = time .txt '//Generierter HTML-Dateiname

Template = NOW()

Set FSO = Server.CreateObject (Scripting.FileSystemObject)

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

FileOut.WriteLine Template

FileOut.Close

Set FSO = Nothing

end If

If datediff(s,times,NOW()) > 3600 Then '//Die Zeit seit der letzten Aktualisierung ist größer als 3600 Sekunden,

Antwort.write aktualisieren <br /><!--Aktualisierung nach Ablauf der Zeit starten-->

code = Hier ist der HTML-Code, der generiert werden muss '//Es gibt viele Möglichkeiten, den Code zu erhalten

'//Verwenden Sie FSO, um die HTML-Seite zu generieren

HtmlPage = index.html '//Der generierte HTML-Dateiname

Template = code

Set FSO = Server.CreateObject (Scripting. FileSystemObject)

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

FileOut.WriteLine Template

FileOut.Close

Set FSO = Nothing

'//FSO verwenden, um die time.txt-Datei zu generieren

HtmlPage = time.txt '//Generierter HTML-Dateiname

Template = NOW()

Set FSO = Server.CreateObject (Scripting.FileSystemObject)

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

FileOut.WriteLine-Vorlage

FileOut.Close

Set FSO = Nothing

Else

Response.write <br /><!-- Es sind vergangen&datediff(s,times,NOW())&sekunden!-->

End If

%>