ASP利用Stream方式生成静态页 [函数可重复调用,简单易用]

<%
'循环生成HTML,代码扩展就可以了
Curl="http://localhost/Index.asp"
Filen="Index.html"
call SaveFile(Filen,Curl)

'生成函数
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%>