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

上一篇:实例演示禁止站外提交表单

下一篇:asp和存储过程中搜索程序的代码实现

您可能感兴趣的文章

相关阅读

热门软件源码

最新软件源码下载