代码如下:<% if SaveFile(“/htm/list.htm”,”http://www.xxx.com/asp/list.asp”) then Response.write “已生成” else Response.write “没有生成” end if function SaveFile(LocalFileName,RemoteFileUrl) Dim Ads, Retrieval, GetRemoteData On Error Resume Next Set Retrieval = Server.CreateObject(“Microso