ASP之生成静态页面的实现方法
来源：爱站网时间：2019-01-24编辑：网友分享
为了减轻服务器端的压力，目前大型网站使用的是静态页面，其中一些是通过AJAX技术动态更新的，本文是爱站技术频道小编教大家ASP之生成静态页面的实现方法，一起来了解一下吧！
<div class="codetitle">为了减轻服务器端的压力，目前大型网站使用的是静态页面，其中一些是通过AJAX技术动态更新的，本文是爱站技术频道小编教大家ASP之生成静态页面的实现方法，一起来了解一下吧！</div>
<div class="codetitle">
<span><u>复制代码</u></span> 代码如下:</div>
<div class="codebody" id="code86675">
<br>
<%<br>
if SaveFile("/htm/list.htm","http://www.xxx.com/asp/list.asp") then<br>
Response.write "已生成"<br>
else<br>
Response.write "没有生成"<br>
end if<br><br>
function SaveFile(LocalFileName,RemoteFileUrl)<br>
Dim Ads, Retrieval, GetRemoteData<br>
On Error Resume Next<br>
Set Retrieval = Server.CreateObject("Microso" & "ft.XM" & "LHTTP")<br>
With Retrieval<br>
.Open "Get", RemoteFileUrl, False, "", ""<br>
.Send<br>
GetRemoteData = .ResponseBody<br>
End With<br>
Set Retrieval = Nothing<br>
Set Ads = Server.CreateObject("Ado" & "db.Str" & "eam")<br>
With Ads<br>
.Type = 1<br>
.Open<br>
.Write GetRemoteData<br>
.SaveToFile Server.MapPath(LocalFileName), 2<br>
.Cancel()<br>
.Close()<br>
End With<br>
Set Ads=nothing<br>
if err <> 0 then<br>
SaveFile = false<br>
err.clear<br>
else<br>
SaveFile = true<br>
end if<br>
End function<br>
%><br>
上文是ASP之生成静态页面的实现方法，相信大家都有了一定的了解，想要了解更多的技术信息，请继续关注爱站技术频道吧！</div>
上一篇：实例演示禁止站外提交表单
