Intermediary transaction http://www.aliyun.com/zixun/aggregation/6858.html ">seo diagnose Taobao guest cloud host technology Hall
In many sites looking for a long time, and finally in an English station can be seen through the live.com search results extracted such information, so wrote the following paragraph: The program is only test success, did not optimize, query efficiency a bit low!
<%
Dim strpage
Function GetPage2 (Path)
t = GetBody (Path)
Getpage2=bytestobstr (T, "GB2312")
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
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
public Function GetDomain (tempstr,matchstr)
set reg=new Regexp
Reg. Multiline=true
Reg. Global=true
Reg. Ignorecase=true
Reg. Pattern=matchstr
Set matches = Reg.execute (tempstr)
for the match in matches
if not InStr ( Getdomain,match. Value) >0 then
getdomain=getdomain&match. Value
End If
Next
End Function
Dim i
for I=1 to
Strpage=strpage&getpage2 ("http://cnweb.search.live.com/ results.aspx?q=ip%3a59.54.54.167&first= "&i& 1")
Next
Strpage=getdomain (Strpage, <cite> (. *?) \/")
strpage=replace (strpage, <cite>, <li Class=classli > ")
strpage=replace (strpage," </"," </")
Strpage=replace (Strpage, "/", "</li>")
Strpage=replace (strpage, "<<", "<")
strpage= GetDomain (Strpage, "<li") \/li> ")
Response.Write Strpage
%>
From: Www.cnwebmaster.info Demo: http://www.cnwebmaster.info/tool/tip.asp (Temporary demo address)
Hint "website comprehensive information Inquiry tool" I am developing! Then you only need to enter a domain name will get a lot of information about this domain name! Do not need to be like some websites, check a thing to enter many times!