asp: Generate static page functions

The code copy is as follows:

<%

ifSaveFile("/htm/list.htm","http://www.xxx.com/asp/list.asp")then

Response.write "Created"

else

Response.write "Not generated"

endif

functionSaveFile(LocalFileName,RemoteFileUrl)

DimAds, Retrieval, GetRemoteData

OnErrorResumeNext

SetRetrieval=Server.CreateObject("Microso"&"ft.XM"&"LHTTP")

WithRetrieval

.Open"Get",RemoteFileUrl,False,"",""

.Send

GetRemoteData=.ResponseBody

EndWith

SetRetrieval=Nothing

SetAds=Server.CreateObject("Ado"&"db.Str"&"eam")

WithAds

.Type=1

.Open

.WriteGetRemoteData

.SaveToFileServer.MapPath(LocalFileName),2

.Cancel()

.Close()

EndWith

SetAds=nothing

iferr<>0then

SaveFile=false

err.clear

else

SaveFile=true

endif

Endfunction

%>

Articles that may be of interest to you:

ASP generates html new method asp paging generates html program script code. Use FSO components in ASP to generate HTML pages Asp generates HTML methods ASP news page, paginate an overly long article, generates static page fso asp generates static html code ASP generates static file encoded into UTF-8 format HTML file ASP generates static html page basic code ASP website generates static html page technology summary Methods of generating HTML static pages without templates in ASP