查看完整版本: 一个通用asp生成静态页面的函数.txt

一个通用asp生成静态页面的函数.txt

<%
if SaveFile("test.htm","test.asp") then
Response.write "ASP生成静态页面已经成功了!"
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
%>

隆重登场！隆重登场！隆重登场！隆重登场！

顶顶哈哈。。灌下水

楼主是好人 鉴定完毕！

震撼！

*** 作者被禁止或删除 内容自动屏蔽 ***