代码如下:
<%
if SaveFile(“/htm/list.htm”,”http://www.xxx.com/asp/list.asp”
then
Response.write “已生成”
else
Response.write “没有生成”
end if
if SaveFile(“/htm/list.htm”,”http://www.xxx.com/asp/list.asp”
then Response.write “已生成”
else
Response.write “没有生成”
end if
function SaveFile(LocalF来源gaodaimacom搞#代%码网ileName,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
%>
以上就是asp:生成静态页面函数的详细内容，更多请关注gaodaima搞代码网其它相关文章！
搞代码网（gaodaima.com）提供的所有资源部分来自互联网，如果有侵犯您的版权或其他权益，请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected]，我们会在看到邮件的第一时间内为您处理，或直接联系QQ：872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接：asp:生成静态页面函数
转载请注明原文链接：asp:生成静态页面函数
