转至：http://www.xszlo.com/article/2012-11-14/7500.html

通过xmlhttp的GET方法来读取，然后保存到指定的目录里

FromUrl:是读取的网址

FIlePath:网址内容保存的地址


Private Sub ToHtml(FromURL,FilePath)
On Error Resume Next
FilePath = Server.MapPath(FilePath)

StrXmlHttp = SiteXmlHttp()
Set xmlHttp = Server.CreateObject(StrXmlHttp)
If StrXmlHttp = "Microsoft." & "XMLHTTP" Then
Else
xmlHttp.setTimeouts 10000, 10000, 15000, 15000
End If
xmlHttp.Open "GET",Replace(FromURL,":999",""),False
xmlHttp.Send()

具体代码到网站上看下