asp+access 批量生成静态页 问题~ 求教! 在线跪等
做网站最后一步~ 剩下批量生成静态页~ 但是我的那个ASP页 有问题
生成的HTML静态页 都是空白的没有内容~ 求教各位大虾! 给我个全部的此功能的代码也好~
或者帮我看看 这让人头疼的代码: (声明:本人很白很白的,对这些东西懂得很少。)
如下:
<!--#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")&"newswind.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
%>