<!--#include file="inc/conn.asp" --> <% openconn() sql="select * from tbnews" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 id=rs("id") %> <% do while not rs.eof %> <% Do_Url = "http://" 'Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/shownews.asp" 主目录 aa=Request.Servervariables("url") '虚拟目录 bb=InstrRev(aa,"/") cc=left(aa,bb) Do_Url = Do_Url&Request.ServerVariables("HTTP_HOST")&cc&"shownews.asp" id=rs("id") call SaveFile(""&id&".html",do_url&"?id="&id&"") rs("n_path")=id&".html" rs.update %> <%rs.movenext loop %> <% Response.Write("------共生成了"&rs.recordcount&"个文件------") response.Write filepath %> <% function SaveFile(LocalFileName,RemoteFileUrl) Dim Ads, Retrieval, GetRemoteData On Error Resume Next Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", RemoteFileUrl, False, "", "" .Send GetRemoteData = .ResponseBody End With Set Retrieval = Nothing Set Ads = Server.CreateObject("Adodb.Stream") 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 closeconn %>