生成静态网页的一种方法

下面代码可以帮您生成静态页面，如：list.asp是读数据库的页面，要生在list.html静态页面，你的域名是flyso.net，可以用下面代码，使用方法：

if SaveFile("/html/list.html","http://www.9asp.com.cn/list.asp") then
    Response.write "已生成"
else
    Response.write "没有生成"
end if

如生成失败，请把代码On Error Resume Next封了，查看具体错误信息

代码如下：

 程序代码
<%
if SaveFile("/html/list.html","http://www.9asp.com.cn/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" & "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
%>