asp-生成静态页面函数

代码片段如下：

`<%

if SaveFileFromRemoteToLocal("/htm/list.htm"," then

Response.write "数据已成功获取并保存至本地"

else

Response.write "未能成功获取数据并保存至本地"

end if

function SaveFileFromRemoteToLocal(LocalFilePath,RemoteUrl)

Dim Ads, Retrieval, RemoteData

On Error Resume Next

Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")

With Retrieval

.Open "GET", RemoteUrl, False

.Send

RemoteData = .ResponseBody

End With

Set Retrieval = Nothing

Set Ads = Server.CreateObject("Adodb.Stream")

With Ads

.Type = 1 'Binary stream

.Open()

.Write RemoteData

.SaveToFile Server.MapPath(LocalFilePath), 2 'Overwrite existing file if exists

.Close()

End With

Set Ads = Nothing

if err <> 0 then 'Error occurred during process

SaveFileFromRemoteToLocal = False

err.clear 'Clear error flags to prevent further issues

else 'No error occurred during process

SaveFileFromRemoteToLocal = True 'Successfully saved file from remote to local location

end if

End Function %>`