下面是ToHtml函数的内容
通过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()
binFileData = xmlHttp.responseBody
Set xmlHttp = nothing
If Err.Number = 0 Then
Set bjAdoStream=Server.createObject("ADODB." & "Stream")
objAdoStream.Type=1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2
objAdoStream.Close()
Set bjAdoStream = Nothing
If Err.Number = 0 Then
Exit Sub
Else
Response.Write("--保存失败（原因：" & Err.Description & "）")
Err.Clear
End If
Else
Response.Write("--采集失败（原因：" & Err.Description & "）")
Err.Clear
End If
End Sub
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/28623727/viewspace-757835/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
