通过ASP来读取其他网页的内容

 下面是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

 

 

本文地址：http://www.xszlo.com/article/2012-11-14/7500.html，转发请保留这个地址，谢谢

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/28623727/viewspace-757835/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/28623727/viewspace-757835/