所属类别：ASP编程

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

[复制此代码]CODE:<%if SaveFile("/htm/list.htm","http://www.xxx.com/asp/list.asp") thenResponse.write "已生成"elseResponse.write "没有生成"end iffunction SaveFile(LocalFileName,RemoteFileUrl)Dim Ads, Retrieval, GetRemoteDataOn Error Resume NextSet Retrieval = Server.CreateObject("Microso" & "ft.XM" & "LHTTP")With Retrieval.Open "Get", RemoteFileUrl, False, "", "".SendGetRemoteData = .ResponseBodyEnd WithSet Retrieval = NothingSet Ads = Server.CreateObject("Ado" & "db.Str" & "eam")With Ads.Type = 1.Open.Write GetRemoteData.SaveToFile Server.MapPath(LocalFileName), 2.Cancel().Close()End WithSet Ads=nothingif err <> 0 thenSaveFile = falseerr.clearelseSaveFile = trueend ifEnd function%>

....