21
2008
09

asp获取网页源代码方法

首先需要构造如下函数

Function getHTTPPage(Path)
        t = GetBody(Path)
        getHTTPPage=BytesToBstr(t,"GB2312")
End function
Function GetBody(url) 
        on error resume next
        Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
        With Retrieval 
        .Open "Get", url, False, "", "" 
        .Send 
        GetBody = .ResponseBody
        End With 
        Set Retrieval = Nothing 
End Function
Function BytesToBstr(body,Cset)
        dim objstream
        set objstream = Server.CreateObject("adodb."&"stream")
        objstream.Type = 1
        objstream.Mode =3
        objstream.Open
        objstream.Write body
        objstream.Position = 0
        objstream.Type = 2
        objstream.Charset = Cset
        BytesToBstr = objstream.ReadText 
        objstream.Close
        set objstream = nothing
End Function



之后在代码中,用如下方法获取即可

url= "http://www.u6u8.net"
response.write "<pre>" & server.HTMLEncode(getHTTPPage(url)) & "</pre>"



« 上一篇 下一篇 »

评论列表:

1.gzg1628  2009-01-01 13:25:32 回复该评论
朋友!用这个来做动态网页静态化,我发现他每次捕获的是存在于浏览器临时文件夹里的网页源代码,所以当这个网页内容变更后再进行捕获,所捕获的还是原来存在于浏览器临时文件夹里的网页源代码,所以你有没有办法来让他每次捕获是都先清理存在于浏览器临时文件夹里的网页,在进行捕获?谢谢!如有方便的话请发到 qq :359510570
2.gzg1628  2008-12-25 13:28:49 回复该评论
在你的博客上确实看到一一些其他地方看不到的技术文章!加油!!!

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。