首页 > 编程 > ASP > 正文

ASP之生成静态页面的实现方法

2024-05-04 11:05:07
字体:
来源:转载
供稿:网友
<div class="codetitle">为了减轻服务器端的压力,目前大型网站使用的是静态页面,其中一些是通过AJAX技术动态更新的,本文是错新技术频道小编教大家ASP之生成静态页面的实现方法,一起来了解一下吧!</div><div class="codetitle"><span><u>复制代码</u></span> 代码如下:</div><div class="codebody" id="code86675"><br>&lt;%<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" &amp; "ft.XM" &amp; "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" &amp; "db.Str" &amp; "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 &lt;&gt; 0 then<br>SaveFile = false<br>err.clear<br>else<br>SaveFile = true<br>end if<br>End function<br>%&gt;<br>上文是ASP之生成静态页面的实现方法,相信大家都有了一定的了解,想要了解更多的技术信息,请继续关注错新技术频道吧!</div>
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表