asp:生成静态页面函数
2024-05-04 11:03:03
供稿：网友
复制代码 代码如下:
<%
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
%>
您可能感兴趣的文章:
ASP生成html的新方法asp分页生成html的程序脚本代码在ASP中使用FSO组件生成HTML页面Asp生成HTML方法大全ASP新闻分页，将一篇过长的文章分页，生成静态页面fso asp生成静态html的代码ASP生成静态文件编码为UTF-8格式的HTML文件ASP生成静态htm页面基本代码ASP网站生成静态html页面技术小结ASP中不用模板生成HTML静态页面的方法
