ASP application tips: A way to generate static Web pages

Tips | static | Web Page The following code can help you generate static pages, such as: List.asp is read the database page, to be born in the list.htm static page, your domain name is xxx.com, you can use the following code, using the method:
If SaveFile ("/htm/list.htm", "http://www.xxx.com/asp/list.asp") Then
Response.Write "Generated"
Else
Response.Write "No Build"
End If

If the build fails, please block the code on error Resume next to see the specific error message

The code is as follows:
<%
If SaveFile ("/htm/list.htm", "http://www.xxx.com/asp/list.asp") Then
Response.Write "Generated"
Else
Response.Write "No Build"
End If

function SaveFile (Localfilename,remotefileurl)
Dim Ads, retrieval, Getremotedata
On Error Resume Next
Set retrieval = Server.CreateObject ("Microso" & ft.) XM "&" Lhttp ")
With retrieval
. Open "Get", Remotefileurl, False, "", ""
. Send
Getremotedata =. Responsebody
End With
Set retrieval = Nothing
Set Ads = Server.CreateObject ("Ado" & "db.") Str "&" Eam ")
With Ads
. Type = 1
. Open
. Write Getremotedata
. SaveToFile Server.MapPath (LocalFilename), 2
. Cancel ()
. Close ()
End With
Set ads=nothing
If Err <> 0 Then
SaveFile = False
Err.Clear
Else
SaveFile = True
End If
End Function
%>