代碼開始：
＜!--
由于本組件是非注冊組件可能功能有一定限制，同時由于同時搜索了幾個引擎(搜索引擎可以任意擴充，但是會影響速度的)，所以系統(tǒng)輸出數(shù)據(jù)的時間較長，請耐心等待在使用本代碼前請你先去下載http://www.serverobjects.com/comp/asphttp3.zip，然好解壓縮到你的system32目錄(winnt or win2000)
使用regsvr32 asphttp.dll 注冊本組件，然后拷貝本文件到相關(guān)的iis可執(zhí)行目錄，使用IE或者netscape瀏覽
--＞
＜%
'判斷是輸出頁面還是處理數(shù)據(jù)，從而調(diào)用不同的部分
keyword=trim(request.form("keyword"))
if isnull(keyword) or keyword="" then
%＞
＜!--
html頁面代碼顯示
--＞
＜html＞
＜head＞
＜title＞ASPCN.COM 超級搜索引擎＜/title＞
＜meta http-equiv="Content-Type" content="text/html; charset=gb2312"＞
＜META NAME="Author" CONTENT="蒲俊杰"＞
＜META NAME="Keywords" CONTENT="ASP,組件,www.aspcn.com"＞
＜style type="text/css"＞
＜!--
table { font-size: 9pt; font-style: normal}
test { border: 1px #000000 dashed; border-color: #000000 none}
test1 { background-color: #CCFFCC; clip: rect( ); font-size: 9pt; font-style:
normal; border-style: dashed; border-top-width: 1px; border-right-width: 1px;
border-bottom-width: 1px; border-left-width: 1px}
--＞
＜/style＞
＜/head＞
＜body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"＞
＜table width="75%" border="1" align="center" height="20" cellpadding="0"
cellspacing="1" bgcolor="#66CC99" bordercolor="#FFFFFF"＞
＜tr＞
＜td height="4"＞
＜div align="center"＞＜font color="#000000" size="2"
face="Arial"＞ASPCN.COM＜/font＞＜font color="#000000" size="3"
face="Arial"＞＜/font＞＜b＞＜font color="#000000" size="3" face="Arial"＞
�。�/font＞＜font color="#000000" size="3" face="仿宋_GB2312"＞超級搜索引擎＜/font＞＜/b＞＜/div＞
＜/td＞
＜/tr＞
�。紅r bordercolor="#66CC99"＞
＜td height="21"＞請選擇下面的搜索引擎:（請注意：本搜索引擎只是適合于＜font color="#ffffff"＞網(wǎng)頁搜索＜/font＞）＜/td＞
�。�/tr＞
＜tr bordercolor="#FFFFFF" align="center" valign="top"＞
＜td height="20"＞
�。糵orm method="post" action="http.asp"＞
�。紅able width="96%" border="0" height="21" align="center"＞
＜tr＞
�。紅d height="10" width="31%"＞
�。糳iv align="right"＞請輸入你要搜索的關(guān)鍵字： ＜/div＞
�。�/td＞
＜td height="10" width="69%"＞
�。糹nput type="text" name="keyword" class="test"＞
＜/td＞
＜/tr＞
＜tr＞
�。紅d height="2" width="31%"＞
＜div align="right"＞請選擇你使用的搜索引擎： ＜/div＞
�。�/td＞
�。紅d height="2" width="69%"＞
�。糹nput type="checkbox" name="yeah" value="yeah"＞
Yeah
�。糹nput type="checkbox" name="yahoo" value="yahoo"＞
Yahoo
�。糹nput type="checkbox" name="sina" value="sina"＞
Sina
�。糹nput type="checkbox" name="sohu" value="sohu"＞
Sohu
�。糹nput type="checkbox" name="goyoyo" value="goyoyo"＞
Goyoyo＜/td＞
＜/tr＞
＜tr＞
�。紅d height="2" colspan="2"＞
＜div align="right"＞
＜input type="submit" name="Submit" value="讓我們開始吧" class="test1"＞
�。�/div＞
�。�/td＞
＜/tr＞
＜/table＞
＜/form＞
＜/td＞
＜/tr＞
＜tr bordercolor="#FFFFFF"＞
�。紅d height="20"＞備注：由于使用了多個搜索引擎檢索，所以系統(tǒng)輸出的時間較長，請耐心等待... ...＜/td＞
＜/tr＞
＜tr bordercolor="#FFFFFF"＞
�。紅d height="20"＞
�。糳iv align="center"＞建議使用 IE 5.x 800*600訪問 ASPCN.COM 版權(quán)保留(2000-2001)
�。糵ont size="2"＞?＜/font＞＜/div＞
＜/td＞
＜/tr＞
＜/table＞
＜/body＞
＜/html＞
＜!--
頁面代碼顯示結(jié)束數(shù)據(jù)處理代碼顯示
--＞
＜%else
Server.ScriptTimeout = 100’設(shè)置腳本時間，由于系統(tǒng)輸出時間較長所以必須修改腳本代碼執(zhí)行時間
Set http = Server.CreateObject("AspHTTP.Conn")’連結(jié)組件
keyword=request.form("keyword")’取得搜索關(guān)鍵字
if request.form("yeah")="yeah" then’判斷是否選擇使用yeah搜索引擎
http.Url = "http://search.163.com/cgi-bin/search/engine/search.fcgi?key="&keyword’處理搜索地址
http.RequestMethod = "GET"’設(shè)置取得數(shù)據(jù)方式"GET，取得數(shù)據(jù)"
response.write http.geturl’輸出搜索結(jié)果
end if
'以下代碼請參考上例的說明，恕不羅嗦
'使用yahoo
if request.form("yahoo")="yahoo" then
http.Url = "http://google.yahoo.com/bin/query_gb?p="&keyword
http.RequestMethod = "GET"
response.write http.geturl
end if
'使用sohu
if request.form("sohu")="sohu" then
http.Url
="http://search.sohu.com/cgi-bin/search_main.cgi?txt_keyword="&keyword&"&page_index=0&
fuzzy=0&catagory=main"
http.RequestMethod = "GET"
response.write http.geturl
end if
'使用goyoyo
if request.form("goyoyo")="goyoyo" then
http.Url ="http://www.goyoyo.com.cn/gyy/query?dbs=guidedbs&code=GB&query="&keyword
http.RequestMethod = "GET"
response.write http.geturl
end if
set http=nothing
end if
'提交數(shù)據(jù)處理結(jié)束
%＞
出處：藍色理想
責任編輯：藍色
上一頁 用http組件實現(xiàn)多引擎搜索功能 下一頁
◎進入論壇網(wǎng)絡(luò)編程版塊參加討論
|
第 1 頁 
第 2 頁 利用http組件實現(xiàn)多引擎搜索功能 2
