利用自己開發的vc組件結合asp實現網上即時搜尋

來源:互聯網
上載者:User
最近有人問怎麼用asp來得到別的網站的網頁,並分析後利用它的資料,純asp是做不到這點的,所以我用vc做了個http組件,很簡陋,不如asphttp,因為時間問題我暫時沒有做post方法,只能用get方法,但要應付象yahoo,新浪等大的搜尋引擎還是綽綽有餘的。利用這個組件向這些站發送請求,然後用asp分析並得到其中有用的資料,分析的思路就是利用標誌位,如果想要做到通用,可以使用設定檔。我就不多解釋了,看例子吧。我的那個組件及原始碼下載地址如下:

組件:http://homepage.qdcatv.com.cn/bigeagle/myhttp.zip
原始碼:http://homepage.qdcatv.com.cn/bigeagle/myhttpcode.zip

下面是asp例子程式,搜尋引擎用的是yahoo

test2.asp

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<form action="test1.asp" method="get">
<input type=text name="keyword">
<input type=submit value="尋找">
</form>

</BODY>
</HTML>


test1.asp
<%
dim m_objMyHttp , m_strHtml
set m_objMyHttp = server.CreateObject ("myhttp.OpenUrl") '建立對象

'接受頁面參數
m_strKeyword = server.URLEncode ( trim( Request.QueryString ("keyword")))

'向yahoo發送搜尋索引鍵"c++"的請求
m_objMyHttp.Url = "http://search.yahoo.com/bin/search?p="&m_strKeyword&""

'發送請求
m_objMyHttp.SendRequest ()

'把html取到局部變數中
m_strHtml = m_objMyHttp.Html
set m_objMyHttp = nothing


'分析,利用標誌位
dim m_strBeginTag , m_strEndTag , m_strUrl

'設定標誌位
m_strBeginTag = "<table border=0 cellpadding=0 cellspacing=0><tr><td height=5></td></tr></table><dd><li>"
m_strEndTag = "</a>"

m_intBegin = 1
m_intEnd = 0
do while not m_intBegin = 0
m_intBegin = instr(m_intBegin + 1 , m_strHtml , m_strBeginTag)
m_intEnd = instr(m_intBegin + len(m_strBeginTag) , m_strHtml , m_strEndTag)
m_strUrl = mid (m_strHtml , m_intBegin+len(m_strBeginTag) , m_intEnd - m_intBegin - len(m_strBeginTag) +4 )
if m_intBegin <> 0 then
Response.Write m_strUrl + "<br>"
end if
Loop

%>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。