html.asp

来自「网站的后台管理代码......内容比较全面....新手比较适合」· ASP 代码 · 共 55 行

<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<%
sql="select * from news"
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")&"/news/shownews.asp"
id=rs("id")
 call SaveFile("../../news/"&id&".html",do_url&"?id="&id&"")
 rs("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("Microso" & "ft.XM" & "LHTTP") 
With Retrieval 
.Open "Get", RemoteFileUrl, False, "", "" 
.Send 
GetRemoteData = .ResponseBody 
End With 
Set Retrieval = Nothing 
Set Ads = Server.CreateObject("Ado" & "db.Str" & "eam") 
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 
%>