使用组件搜索
发布时间:2006-10-14 2:40:01   收集提供:gaoqian
MicroSoft的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!
代码开始:
<!--
有任何的意见和建议请Mail:pu.junjie@263.net,
本代码使用了http组件同时搜索出了几个搜索引擎的数据,让所有的搜索结果显示在一个页面当中,本文只是提供一种思路和思考
给大家展示ASP组件的强大功能! 由于本组件是非注册组件可能功能有一定限制,同时由于同时搜索了几个引擎(搜索引擎可以任意扩充,但是会影响速度
的),所以系统输出数据的时间较长,请耐心等待 在使用本代码前请你先去下载http://www.serverobjects.com/comp/asphttp3.zip,然好解压缩到你的system32目录(winnt  or  win2000)   
使用regsvr32  asphttp.dll  注册本组件,然后拷贝本文件到相关的iis可执行目录,使用IE或者netscape浏览
-->
<%
'判断是输出页面还是处理数据,从而调用不同的部分
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>
   <tr  bordercolor="#66CC99">   
       <td  height="21">请选择下面的搜索引擎:(请注意:本搜索引擎只是适合于<font  color="#ffffff">网页搜索
</font>)</td>
   </tr>
   <tr  bordercolor="#FFFFFF"  align="center"  valign="top">   
       <td  height="20">   
           <form  method="post"  action="http.asp">
               <table  width="96%"  border="0"  height="21"  align="center">
                   <tr>   
                       <td  height="10"  width="31%">   
                           <div  align="right">请输入你要搜索的关键字:  </div>
                       </td>
                       <td  height="10"  width="69%">   
                           <input  type="text"  name="keyword"  class="test">
                       </td>
                   </tr>
                   <tr>   
                       <td  height="2"  width="31%">   
                           <div  align="right">请选择你使用的搜索引擎:  </div>
                       </td>
                       <td  height="2"  width="69%">   
                           <input  type="checkbox"  name="yeah"  value="yeah">
                           Yeah   
                           <input  type="checkbox"  name="yahoo"  value="yahoo">
                           Yahoo   
                           <input  type="checkbox"  name="sina"  value="sina">
                           Sina   
                           <input  type="checkbox"  name="sohu"  value="sohu">
                           Sohu   
                           <input  type="checkbox"  name="goyoyo"  value="goyoyo">
                           Goyoyo</td>
                   </tr>
                   <tr>   
                       <td  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">   
       <td  height="20">备注:由于使用了多个搜索引擎检索,所以系统输出的时间较长,请耐心等待...  ...</td>
   </tr>
   <tr  bordercolor="#FFFFFF">
       <td  height="20">
           <div  align="center">建议使用  IE  5.x  800*600访问  ASPCN.COM  版权保留(2000-2001)  <font  
size="2">&copy;</font></div>
       </td>
   </tr>
</table>
</body>
</html>
<!--
页面代码显示结束
数据处理代码显示
-->
<%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
'提交数据处理结束
%>
 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50