当前位置： 移动技术网 > IT编程>开发语言>Asp > asp:生成静态页面函数

asp:生成静态页面函数

2017年12月12日  | 移动技术网IT编程  | 我要评论
复制代码 代码如下:

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

您可能感兴趣的文章:

如对本文有疑问， 点击进行留言回复！！

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网