网站制作技巧之获取远程网页的指定内容

最近，凯旋网络工作室掌握了一种技巧，用来获取远程网页的指定内容，通过这种技巧，可以轻易获取到别人网站的指定内容，其实也就是ASP小偷程序原理了，主要用的是xml+http代码，详细如下：

<% 
’用ASP获取远程目标网页指定内容，代码由广州网站建设http://www.creatsoon.com提供
On Error Resume Next 
Server.ScriptTimeOut=9999 
Function getHTTPPage(Path) 
        t = GetBody(Path) 
        getHTTPPage=BytesToBstr(t,"GB2312") 
End function
Function Newstring(wstr,strng) 
        Newstring=Instr(lcase(wstr),lcase(strng)) 
        if Newstring<=0 then Newstring=Len(wstr) 
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 
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

’ASP获取远程网页指定内容开始
Dim wstr,str,url,start,over,dtime 
a="开始内容"         ’ASP获取目标网页内容开始标记
b="结束内容"         ’ASP获取网页内容结束标记
url="http://www.creatsoon.com/" 
        wstr=getHTTPPage(url) 
        start=Newstring(wstr,a) 
        over=Newstring(wstr,b) 
 body=mid(wstr,start,over-start) 
response.write ""&body&"" ’输出获取到的网页内容
’ASP获取远程网页指定内容结束
%>

网站建设行业有句好话：做网站在于内容原创，但是，我觉得，通过吸收、获取别人经验，成长起来更快！