<%Function bytes2BSTR(vIn)strReturn = ""For i = 1 To LenB(vIn)ThisCharCode = AscB(MidB(vIn,i,1))If ThisCharCode < &H80 ThenstrReturn = strReturn & Chr(ThisCharCode)ElseNextCharCode = AscB(MidB(vIn,i+1,1))strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))i = i + 1End IfNextbytes2BSTR = ubb(strReturn)End Function Function dq(key)dim XmlHttpset XmlHttp = CreateObject("Microsoft.XMLHTTP")XmlHttp.Open "GET","http://www.baidu.com/s?wd="&key&"&pn="&request("pn"), false XmlHttp.setRequestHeader "Content-Type","text/XML" XmlHttp.Senddq = bytes2BSTR(XmlHttp.responseBody)End Function Function BR(Str)Str = Replace(Str,"{br}","<br>")Str = Replace(Str,vbcrlf,"<br>")Str = Replace(Str,"<br> <br>","<br>")Str = Replace(Str,"<br><br>","<br>")Str = Replace(Str,"<br><br>","<br>")BR = StrEnd Function function ubb(str) if instr(str,"找到相关网页") = 0 thenubb = "没有搜索到任何内容"exit functionend if str = Replace(str,vbcrlf,"{br}")str = Replace(str,"<br>","{br}")str = Replace(str,"</td>","</td>"&vbcrlf)str = Replace(str,"<td",vbcrlf&"<td") dim re,Match,Matches set re = New RegExpre.Global = Truere.IgnoreCase = True re.Pattern=".*<td class=f>(.*)</td>" Set Matches = re.Execute(str) For Each Match in Matchesubb=ubb&BR(Match.value)nextre.Pattern="(- <a .[^<]*>百度快照</a>)"ubb = re.replace(ubb,"")re.Pattern="(<a class=""m"".[^<]*>.[^<]*</a>)"ubb = re.replace(ubb,"")re.Pattern="(<font color=#008000>.[^<]*</font>)"ubb = re.replace(ubb,"<hr>") '每一条信息的间隔ubb = Replace(ubb,"<td class=f>","")ubb = Replace(ubb,"</td>","")ubb = BR(UBB) re.Pattern="(找到相关网页.*秒)"Set Matches = re.Execute(str)set Match = Matches(0)ubb = ubb & Match & "<br>" str = Replace(str,"</div>","</div>"&vbcrlf) re.Pattern="<div class=""p"">(.*)</div>"Set Matches = re.Execute(str)set Match = Matches(0)Dim TheLinkTheLink = Matchre.Pattern="href=s?(.[^>]*)"TheLink = re.replace(TheLink,"href=""$1""") ubb = ubb & TheLinkend function if len(request("wd")) > 0 thenresponse.write dq(request("wd"))end if%><form method=post action="?"><input type="text" name="wd"> <input type="submit"></form>

　　推荐阅读

　　无组件生成缩略图

网上有不少生成缩略图的ASP组件。若你的虚拟空间不支持注册新组件，可能会感觉自己的网站失色不少。心晴不才，结合网上资源写了个无组件生成缩略图程序，仅供参考。 还是先看看基础部分吧。首先，我们知道在页面中>>>详细阅读

本文标题：百度小偷

地址：http://www.17bianji.com/kaifa2/ASP/33279.html

 1/2    1