网站ASP动态文件转为静态Html文件核心代码：

function SaveFile(LocalFileName,RemoteFileUrl) ''LocalFileName：转为Html文件后文件所在服务器绝对路径，RemoteFileUrl:ASP文件所在网络地址（包含文件名全地址）。

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 LocalFileName, 2

.Cancel()

.Close()

End With

Set Ads=nothing

if err <> 0 then

SaveFile = false

err.clear

else

SaveFile = true

end if

End function[本文来源：由《星空写作网》整理首发 - http://www.xkxzw.com/webHtml/20130303027.html ]