") ';每一条信息的间隔 ubb = Replace(ubb,"
" str = Replace(str,"",""&vbcrlf) re.Pattern="\
(.*)\<\/div>"
Set Matches = re.Execute(str)
set Match = Matches(0)
Dim TheLink
TheLink = Match
re.Pattern="href=s?(.[^>]*)"
TheLink = re.replace(TheLink,"href=""$1""")
ubb = ubb & TheLink
end function
if len(request("wd")) > 0 then
response.write dq(request("wd"))
end if
%>
index.asp
CODE:
<%
dim url,Wstr,we,wf,lm,si,rn,ie,ct,pn,cl
we=Request.QueryString("wd")
If we="" Then
Response.Write("
")
Else
wf=we
lm=Request.QueryString("lm")
si=Request.QueryString("si")
rn=Request.QueryString("rn")
ie=Request.QueryString("ie")
ct=Request.QueryString("ct")
pn=Request.QueryString("pn")
cl=Request.QueryString("cl")
url="http://www.baidu.com/s?tn=lzc444&wd="&wf&"&lm="&lm&"&si="&si&"&rn="&rn&"&ie="&ie&"&ct="&ct&"&pn="&pn&"&cl="&cl&""
Wstr=Gethttppage(Url)
body=GetBody(Wstr,"
 在全球10亿中文网页中搜索： |
| "," ",true,false)
body=replace(body," http://utility.baidu.com/quality/quality_form.php","")
body=replace(body,"s?","index.asp?")
body=replace(body,"""/s""","index.asp")
body=replace(body,"value=百度搜索","value=给我搜！")
body=replace(body,"百度快照","网页快照")
body=replace(body," | "," | ")
body=replace(body,"margin-left:18px","margin-left:0px")
body=replace(body," | | ") Response.Write Body End if %> [Copy to clipboard] Function.asp CODE: <% Function GetHttpPage(HttpUrl) If IsNull(HttpUrl)=True Or HttpUrl="$False$" Then GetHttpPage="$False$" Exit Function End If Dim Http Set Http=server.createobject("MSXML2.XMLHTTP") Http.open "GET",HttpUrl,False Http.Send() If Http.Readystate<>4 then Set Http=Nothing GetHttpPage="$False$" Exit function End if GetHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") Set Http=Nothing If Err.number<>0 then Err.Clear End If 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(ConStr,StartStr,OverStr,IncluL,IncluR) If ConStr="$False$" or ConStr="" or IsNull(ConStr)=True Or StartStr="" or IsNull(StartStr)=True Or OverStr="" or IsNull(OverStr)=True Then GetBody="$False$" Exit Function End If Dim ConStrTemp Dim Start,Over ConStrTemp=Lcase(ConStr) StartStr=Lcase(StartStr) OverStr=Lcase(OverStr) Start = InStrB(1, ConStrTemp, StartStr, vbBinaryCompare) If Start<=0 then GetBody="$False$" Exit Function Else If IncluL=False Then Start=Start+LenB(StartStr) End If End If Over=InStrB(Start,ConStrTemp,OverStr,vbBinaryCompare) If Over<=0 Or Over<=Start then GetBody="$False$" Exit Function Else If IncluR=True Then Over=Over+LenB(OverStr) End If End If GetBody=MidB(ConStr,Start,Over-Start) End Function %> 作者: 一生逍遥 时间: 2006-11-30 19:06 标题: Baidu搜索小偷ASP完美版 不明白，功能是什么？ 作者: Jesse 时间: 2006-11-30 21:39 标题: Baidu搜索小偷ASP完美版 就是建造在自己的站上的搜索引擎，但是采用baidu的搜索数据。 作者: 一生逍遥 时间: 2006-11-30 22:19 标题: Baidu搜索小偷ASP完美版 aleax中国，也是这么干的？？ 作者: Jesse 时间: 2006-12-1 17:36 标题: Baidu搜索小偷ASP完美版 恩。就是根据这个原理刷Aleax排名 作者: fmongl 时间: 2006-12-4 22:16 标题: Baidu搜索小偷ASP完美版 恩,着很好用的,我弄的上面就用了这段代码的
|