asp组成静态页面函数

asp组成静态页面函数：

代码如下:

<%

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

Response.write "已生成"

else

Response.write "没有生成"

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

%>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!