奇爱公告：

设为首页

|

收藏本站

|

RSS阅读

|

网站地图

|

站内搜索

奇爱素材网

您现在的位置： 奇爱素材网 >> 设计教程 >> 语言开发 >> ASP >> 正文 |

生成静态网页的一种方法

作者:未知 素材来源:51windows 点击数: 更新时间:2007-6-8 21:26:36

面代码可以帮您生成静态页面，如：list.asp是读数据库的页面，要生在list.htm静态页面，你的域名是xxx.com，可以用下面代码，使用方法：

if SaveFile("/htm/list.htm","http://www.xxx.com/asp/list.asp") then
    Response.write "已生成"
else
    Response.write "没有生成"
end if

如生成失败，请把代码On Error Resume Next封了，查看具体错误信息

代码如下：

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