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
%>