同ip反查域名ASP代碼分享

　　前兩天想寫一段同ip反查域名的代碼，在很多網站上找了半天，最后在一個英文站上看見可以通過live.com的搜索結果提取此類信息，于是寫了下面一段：程序只是測試成功，沒有進行優化，查詢效率有點低！

　　<%

　　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 Each 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 15

　　strPage=strPage&GetPage2("　http://cnweb.search.live.com/results.aspx?q=ip%3A59.54.54.167&first="&i&"1")

　　next

　　strPage=GetDomain(strPage,"(.*?)\/")

　　strPage=replace(strPage,"","

　　")

　　strPage=replace(strPage,"strPage=replace(strPage,"/","

　　")

　　strPage=replace(strPage,"<<","<")

　　strPage=GetDomain(strPage,"<li(.*?)\/li>")

　　response.write strPage

　　%>