注册
登录
| 关键词： SourceCode strReturn photo ThisCharCode linkmm replace http oSend www com |
先选中一个你想 “偷” 的网页程序。。。我这里看中了它。。呵呵 。。。很多妹妹图片。。。口水中。。http://www.linkmm.com/photo/ads2.html然后建立个ASP网页，先把以下代码复制进去strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode 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 Url = "http://www.linkmm.com/photo/ads2.html";;set oSend=createobject("Microsoft.XMLHTTP")SourceCode = oSend.open ("GET",url,false) oSend.send()if err.number0 thenResponse.write err.descriptionResponse.End()end if SourceCode = bytes2BSTR(oSend.responseBody)%>其中Url = "http://www.linkmm.com/photo/ads2.html";;就是你想要 偷 的网页，换成你需要的就可以了。。这个时候response.write 一下。。是不是很多图片看不见啊。。不急，我们有replace呢。。把你现在的网页查看下原文件，，把原来的网页查看下愿文件对比下就知道怎么让这些无法显示的显示出来。。。比起那些一个个replace替换图片的方法用这个方法好多了就是在有src的地方在他前面直接替换网址多方便呵呵。。在写这段代码。。程序就完了呵呵SourceCode =replace(sourcecode,"src=""img/","src=""http://www.linkmm.com/photo/img/";;)SourceCode =replace(sourcecode,"new.webp",baseurl1&"/new.webp")SourceCode =replace(sourcecode,"href=""photo888","href=""http://www.linkmm.com/photo/photo888";;)SourceCode =replace(sourcecode,"site.css","http://www.linkmm.com/photo/site.css";;)response.write SourceCode%>是不是很简单啊。不懂的联系我52596464完整代码如下：Function bytes2BSTR(vIn) strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode 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 Url = "http://www.linkmm.com/photo/ads2.html";;set oSend=createobject("Microsoft.XMLHTTP")SourceCode = oSend.open ("GET",url,false) oSend.send()if err.number0 thenResponse.write err.descriptionResponse.End()end if SourceCode = bytes2BSTR(oSend.responseBody)baseurl1="http://www.linkmm.com/photo";;SourceCode =replace(sourcecode,"src=""img/","src=""http://www.linkmm.com/photo/img/";;)SourceCode =replace(sourcecode,"new.webp",baseurl1&"/new.webp")SourceCode =replace(sourcecode,"href=""photo888","href=""http://www.linkmm.com/photo/photo888";;)SourceCode =replace(sourcecode,"site.css","http://www.linkmm.com/photo/site.css";;)response.write SourceCode%> |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
