asp:生成静态页面函数
摘要：复制代码代码如下:
复制代码 代码如下:
<%
ifSaveFile("/htm/list.htm","http://www.xxx.com/asp/list.asp")then
Response.write"已生成"
else
Response.write"没有生成"
endif
functionSaveFile(LocalFileName,RemoteFileUrl)
DimAds,Retrieval,GetRemoteData
OnErrorResumeNext
SetRetrieval=Server.CreateObject("Microso"&"ft.XM"&"LHTTP")
WithRetrieval
.Open"Get",RemoteFileUrl,False,"",""
.Send
GetRemoteData=.ResponseBody
EndWith
SetRetrieval=Nothing
SetAds=Server.CreateObject("Ado"&"db.Str"&"eam")
WithAds
.Type=1
.Open
.WriteGetRemoteData
.SaveToFileServer.MapPath(LocalFileName),2
.Cancel()
.Close()
EndWith
SetAds=nothing
iferr<>0then
SaveFile=false
err.clear
else
SaveFile=true
endif
Endfunction
%>
【asp:生成静态页面函数】相关文章：
★ asp修改记录
上一篇：
LINE9的目录浏览源程序
下一篇：
如何编写适合FireFox的对话框？