复制代码 代码如下:

<%

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

%>