开发学院WEB开发ASP 利用http组件实现多引擎搜索功能 阅读

利用http组件实现多引擎搜索功能

 2001-06-07 10:21:26 来源:WEB开发网   
核心提示:icroSoft的asp(Active Server Page)技术极大的方便了在网络中对于数据库的访问,而且由于ASP不同于CGI需要那么多的请求(减少了服务器的资源占用),利用http组件实现多引擎搜索功能,以及ASP同Windows NT、2000的结合使得ASP技术被广泛的应用于今日的Internet,然而不知
icroSoft的asp(Active Server Page)技术极大的方便了在网络中对于数据库的访问,而且由于ASP不同于CGI需要那么多的请求(减少了服务器的资源占用),以及ASP同Windows NT、2000的结合使得ASP技术被广泛的应用于今日的Internet,然而不知道你仔细的想过没有!ASP除了利用ADO对数据库的访问和其他几个内置组件的利用外,就不能作其他什么的了,相对于perl,php等程序,ASP的功能看起来就非常简单,而且功能缺乏;但是老比毕竟是老比,他给大家留了一手,那就是ASP组件(关于组件的概念,现在一大堆,你可不要搞错了),通过组件的开发你可以做到其他语言(比如PHP,PERL,C++)能做到的一切,甚至在某些方面还能更加超出,本文力求给你展示一下ASP组件的强大功能,但是由于ASP组件自身的过(使用的是非注册组件),可能有的时候使用会出现不稳定的状态,然而本文是力求向你展示一点东西以及提供一种思路给你,而不是其他,所以不足的地方就请求了原谅了!

  代码思路:一般来看,我们提交一个表单给一个搜索引擎程序,搜索引擎获得提交的数据然后处理,返回结果;然而这种东西其实都是取得了一个提交的变量,我们可以使用另外一种直接跟从连接的方式访问搜索引擎,例如你可以使用
yeah的首页搜索一个关键字“xuankong”,也可以使用下面的连接“http://search.163.com/cgi-
bin/search/engine/search.fcgi?key=xuankong”取得使用结果,本文就是通过使用ASP的HTTP组件访问这种直接的连接,使用GET方式取得原本在WEB页中返回的数据,然后输出。

  如果本组件能够实现多线程(如果那样就可以同时对不同的引擎取得数据,不必象现在单一的访问然后取得结果,)和代码进一步的优化和改进的话,将会极大的节约你的时间,让你一次搜索同时返回多个引擎的结果!

  备注:搜索出来的结果中,由于某些引擎的类目使用了相对的连接,所以无效(这些结果其实你都可以处理的,只是笔者太懒了,所以不想花那些功夫),但是所有的网站和网页的连接都是有效的,本文提供的代码只是适合于测试,不适合于具体的应用,如果需要具体的应用,需要使用适当的http组件,或者如果你是程序高手的话可以自己写多线程的组件,关于http组件的代码,你可以在www.chinaasp.com看到,欲得到更多的asp组件请访问www.aspcn.com!

  代码开始:
$#@60;!--
有任何的意见和建议请Mail:pu.junjie@263.net,
  本代码使用了http组件同 阉鞒隽思父鏊阉饕娴氖荩盟械乃阉鹘峁允驹谝桓鲆趁娴敝校疚闹皇翘峁┮恢炙悸泛退伎几蠹艺故続SP组件的强大功能!  由于本组件是非注册组件可能功能有一定限制,同时由于同时搜索了几个引擎(搜索引擎可以任意扩充,但是会影响速度的),所以系统输出数据的时间较长,请耐心等待在使用本代码前请你先去下载
http://www.serverobjects.com/comp/asphttp3.zip,然好解压缩到你的system32目录(winnt or win2000)
使用regsvr32 asphttp.dll 注册本组件,然后拷贝本文件到相关的iis可执行目录,使用IE或者netscape浏览
--$#@62;
$#@60;%
’判断是输出页面还是处理数据,从而调用不同的部分
  keyWord=trim(request.form("keyword"))
  if isnull(keyword) or keyword="" then
%$#@62;
$#@60;!--
html页面代码显示
--$#@62;
$#@60;html$#@62;
$#@60;head$#@62;
$#@60;title$#@62;ASPCN.COM 超级搜索引擎$#@60;/title$#@62;
$#@60;meta http-equiv="Content-Type" content="text/html; charset=gb2312"$#@62;
$#@60;META NAME="Author" CONTENT="蒲俊杰"$#@62;
$#@60;META NAME="Keywords" CONTENT="ASP,组件,www.aspcn.com"$#@62;
$#@60;style type="text/CSS"$#@62;
$#@60;!--
  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}
--$#@62;
$#@60;/style$#@62;
$#@60;/head$#@62;
$#@60;body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"$#@62;
$#@60;table width="75%" border="1" align="center" height="20" cellpadding="0"
cellspacing="1" bgcolor="#66CC99" bordercolor="#FFFFFF"$#@62;
$#@60;tr$#@62;
$#@60;td height="4"$#@62;
$#@60;div align="center"$#@62;$#@60;font color="#000000" size="2"
  face="Arial"$#@62;ASPCN.COM$#@60;/font$#@62;$#@60;font color="#000000" size="3"
  face="Arial"$#@62;$#@60;/font$#@62;$#@60;b$#@62;$#@60;font color="#000000" size="3" face="Arial"$#@62;
  $#@60;/font$#@62;$#@60;font color="#000000" size="3" face="仿宋_GB2312"$#@62;超级搜索引擎
$#@60;/font$#@62;$#@60;/b$#@62;$#@60;/div$#@62;
$#@60;/td$#@62;
$#@60;/tr$#@62;
 $#@60;tr bordercolor="#66CC99"$#@62;
  $#@60;td height="21"$#@62;请选择下面的搜索引擎:(请注意:本搜索引擎只是适合于$#@60;font 
color="#ffffff"$#@62;网页搜索$#@60;/font$#@62;)$#@60;/td$#@62;
 $#@60;/tr$#@62;
$#@60;tr bordercolor="#FFFFFF" align="center" valign="top"$#@62;
$#@60;td height="20"$#@62;
 $#@60;form method="post" action="http.asp"$#@62;
 $#@60;table width="96%" border="0" height="21" align="center"$#@62;
$#@60;tr$#@62;
 $#@60;td height="10" width="31%"$#@62;
  $#@60;div align="right"$#@62;请输入你要搜索的关键字: $#@60;/div$#@62;
 $#@60;/td$#@62;
 $#@60;td height="10" width="69%"$#@62;
  $#@60;input type="text" name="keyword" class="test"$#@62;
 $#@60;/td$#@62;
$#@60;/tr$#@62;
$#@60;tr$#@62;
 $#@60;td height="2" width="31%"$#@62;
 $#@60;div align="right"$#@62;请选择你使用的搜索引擎: $#@60;/div$#@62;
 $#@60;/td$#@62;
 $#@60;td height="2" width="69%"$#@62;
 $#@60;input type="checkbox" name="yeah" value="yeah"$#@62;
  Yeah
 $#@60;input type="checkbox" name="yahoo" value="yahoo"$#@62;
  Yahoo
 $#@60;input type="checkbox" name="sina" value="sina"$#@62;
  Sina
 $#@60;input type="checkbox" name="sohu" value="sohu"$#@62;
  Sohu
 $#@60;input type="checkbox" name="goyoyo" value="goyoyo"$#@62;
  Goyoyo$#@60;/td$#@62;
 $#@60;/tr$#@62;
$#@60;tr$#@62;
  $#@60;td height="2" colspan="2"$#@62;
$#@60;div align="right"$#@62;
  $#@60;input type="submit" name="Submit" value="让我们开始吧" class="test1"$#@62;
  $#@60;/div$#@62;
 $#@60;/td$#@62;
$#@60;/tr$#@62;
$#@60;/table$#@62;
$#@60;/form$#@62;
$#@60;/td$#@62;
$#@60;/tr$#@62;
$#@60;tr bordercolor="#FFFFFF"$#@62;
  $#@60;td height="20"$#@62;备注:由于使用了多个搜索引擎检索,所以系统输出的时间较长,请耐心等
待... ...$#@60;/td$#@62;
$#@60;/tr$#@62;
$#@60;tr bordercolor="#FFFFFF"$#@62;
 $#@60;td height="20"$#@62;
  $#@60;div align="center"$#@62;建议使用 IE 5.x 800*600访问 ASPCN.COM 版权保留(2000-2001)
  $#@60;font size="2"$#@62;©$#@60;/font$#@62;$#@60;/div$#@62;
 $#@60;/td$#@62;
$#@60;/tr$#@62;
$#@60;/table$#@62;
$#@60;/body$#@62;
$#@60;/html$#@62;
$#@60;!--
  页面代码显示结束数据处理代码显示
--$#@62;
$#@60;%else
  Server.ScriptTimeout = 100’设置脚本时间,由于系统输出时间较长所以必须修改脚本代码执行时间
  Set http = Server.CreateObject("AspHTTP.Conn")’连结组件
  keyword=request.form("keyword")’取得搜索关键字
 if request.form("yeah")="yeah" then’判断是否选择使用yeah搜索引擎
  http.Url = "http://search.163.com/cgi-bin/search/engine/search.fcgi?key="&keyword’处理搜索地址
  http.RequestMethod = "GET"’设置取得数据方式"GET,取得数据"
  response.write http.geturl’输出搜索结果
 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
’提交数据处理结束
%$#@62;


Tags:利用 http 组件

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接