ASP采集教程一基础篇

ASP采集其它就是利用微软自带的XMLHTTP组件取得远程页面的源代码，再经过程序的过滤替换处理转换成我们想要的数据。我们也不管用什么，反正我教你的就是用一段代码取得目标代码,  再把目标代码加工一下。然后直接显示啊还是写入数据库。就这么简单!
引用组件CreateObject("Microsoft.XMLHTTP")  --->取得目标代码（get） ---> 数据处理（截取，过滤，替换） --->  直接显示（小偷）或 写入数据库（采集）
说了这么多是要开始实战了.
     二话不说，先写个刚刚讲到的引用组件和取得代码的函数
    ' 获取远程HTML
    Function GetURL(url)
            Set Retrieval = CreateObject("Microsoft.XMLHTTP")
            With Retrieval
                .Open "GET", url, False
               .Send
               GetURL = .responsebody
            if len(.responsebody)<100 then
                response.write "获取远程文件 <a href="&url&" target=_blank>"&url&"</a> 失败。"
                response.end
            end if
            End With
            Set Retrieval = Nothing
        End Function
上面这段函数的URL值就是我们的目标网页，也就是要偷的页面了。
当然我们得到的代码是以二进制返回给我们的，那我们得把他转换成我们要的字符，怎么办？
怕什么？我自己不会写难道还不会上网找啊。找到了，怎么实现的我们当然不管它了，只要能用就行了，函数代码如下：
' 二进制转字符串
function bytes2bstr(vin)
       strreturn = ""
       for i = 1 to lenb(vin)
       thischarcode = ascb(midb(vin,i,1))
       if thischarcode < &h80 then
              strreturn = strreturn & chr(thischarcode)
       else
              nextcharcode = ascb(midb(vin,i+1,1))
              strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
              i = i + 1
       end if
       next
       bytes2bstr = strreturn
end function
OK!
有了这两个函数基本上可以实现简单的小偷了。
我今天就找天空的软件资讯开刀，地址是: http://www.skycn.com/article/index_article.html
开工：
1,建立一个ASP文件,我建的是index.asp
<%
%>
先写好啊，要养成这样的习惯哦。
定义一下地址和调用函数
dim url,html
    url="http://www.skycn.com/article/index_article.html"
    Html=GetURL(url) '把地址url传递到GetURL这个函数
       Html=Bytes2BStr(Html) '二进制转换成字符一下
再把刚刚两个函数写进去
最后看一下是否偷到了，我们response一下
Response.write html
整个文件内容就是：
<%
On Error Resume Next
Server.ScriptTimeOut=9999999
dim url,html
    url="http://www.skycn.com/article/index_article.html"
    Html=GetURL(url) '把地址url传递到GetURL这个函数
       Html=Bytes2BStr(Html) '二进制转换成字符一下
' 获取远程HTML
Function GetURL(url)
    Set Retrieval = CreateObject("Microsoft.XMLHTTP")
    With Retrieval
        .Open "GET", url, False
        .Send
        GetURL = .responsebody
       if len(.responsebody)<100 then
              response.write "获取远程文件 <a href="&url&" target=_blank>"&url&"</a> 失败。"
              response.end
       end if
    End With
    Set Retrieval = Nothing
End Function
' 二进制转字符串
function bytes2bstr(vin)
       strreturn = ""
       for i = 1 to lenb(vin)
       thischarcode = ascb(midb(vin,i,1))
       if thischarcode < &h80 then
              strreturn = strreturn & chr(thischarcode)
       else
              nextcharcode = ascb(midb(vin,i+1,1))
              strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
              i = i + 1
       end if
       next
       bytes2bstr = strreturn
end function
Response.write html
%>

 

写好后上传到空间运行下就可以看到演示了!!!!!!!!