Private Sub ToHtml(FromURL,FilePath)'FilePath·?"/url/file.html"

dim objXmlHttp,binFileData,objAdoStream

Response.Write("<a href=""" & FilePath & """ target=""_blank"">" & FilePath & " --> Ok</a><br>")

FilePath = Server.MapPath(FilePath)

Set objXmlHttp=Server.createObject("Microsoft." & "XMLHTTP")

objXmlHttp.open "GET",FromURL,false

objXmlHttp.send()

binFileData=objXmlHttp.responseBody

Set objXmlHttp = Nothing

Set objAdoStream=Server.createObject("ADODB." & "Stream")

objAdoStream.Type=1

objAdoStream.Open()

objAdoStream.Write(binFileData)

objAdoStream.SaveToFile FilePath,2

objAdoStream.Close()

Set objAdoStream = Nothing

End Sub

 

在需要生成靜態頁面的位置，調用該過程即可。