使用组件搜索 (1)

MicroSoft的ASP(ActiveServerPage)技术极大的方便了在网络中对于数据库的访问，而且由于ASP不同于CGI需要那么多的请求（减少了服务器的资源占用），以及ASP同WindowsNT、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！
代码开始
%26lt;!--
有任何的意见和建议请Mailpu.junjie@263.net，
本代码使用了http组件同时搜索出了几个搜索引擎的数据，让所有的搜索结果显示在一个页面当中，本文只是提供一种思路和思考
给大家展示ASP组件的强大功能！ 由于本组件是非注册组件可能功能有一定限制，同时由于同时搜索了几个引擎(搜索引擎可以任意扩充，但是会影响速度
的)，所以系统输出数据的时间较长，请耐心等待 在使用本代码前请你先去下载http://www.serverobjects.com/comp/asphttp3.zip，然好解压缩到你的system32目录(winntorwin2000)
使用regsvr32asphttp.dll注册本组件，然后拷贝本文件到相关的iis可执行目录，使用IE或者netscape浏览
--%26gt;
%26lt;%
'判定是输出页面还是处理数据，从而调用不同的部分
keyword=trim(request.form(%26quot;keyword%26quot;))
ifisnull(keyword)orkeyword=%26quot;%26quot;then
%%26gt;
%26lt;!--
html页面代码显示
--%26gt;
%26lt;html%26gt;
%26lt;head%26gt;
%26lt;title%26gt;ASPCN.COM超级搜索引擎%26lt;/title%26gt;
%26lt;metahttp-equiv=%26quot;Content-Type%26quot;content=%26quot;text/html;charset=gb2312%26quot;%26gt;
%26lt;METANAME=%26quot;Author%26quot;CONTENT=%26quot;蒲俊杰%26quot;%26gt;
%26lt;METANAME=%26quot;Keywords%26quot;CONTENT=%26quot;ASP,组件,www.aspcn.com%26quot;%26gt;
%26lt;styletype=%26quot;text/css%26quot;%26gt;
%26lt;!--
table{font-size:9pt;font-style:normal}
.test{border:1px#000000dashed;border-color:#000000none}
.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}
--%26gt;
%26lt;/style%26gt;
%26lt;/head%26gt;

%26lt;bodybgcolor=%26quot;#FFFFFF%26quot;leftmargin=%26quot;0%26quot;topmargin=%26quot;0%26quot;marginwidth=%26quot;0%26quot;marginheight=%26quot;0%26quot;%26gt;
%26lt;tablewidth=%26quot;75%%26quot;border=%26quot;1%26quot;align=%26quot;center%26quot;height=%26quot;20%26quot;cellpadding=%26quot;0%26quot;cellspacing=%26quot;1%26quot;
bgcolor=%26quot;#66CC99%26quot;bordercolor=%26quot;#FFFFFF%26quot;%26gt;
%26lt;tr%26gt;
%26lt;tdheight=%26quot;4%26quot;%26gt;
%26lt;divalign=%26quot;center%26quot;%26gt;%26lt;fontcolor=%26quot;#000000%26quot;size=%26quot;2%26quot;face=%26quot;Arial%26quot;%26gt;ASPCN.COM%26lt;/font%26gt;%26lt;font
color=%26quot;#000000%26quot;size=%26quot;3%26quot;face=%26quot;Arial%26quot;%26gt;%26lt;/font%26gt;%26lt;b%26gt;%26lt;fontcolor=%26quot;#000000%26quot;size=%26quot;3%26quot;face=%26quot;Arial%26quot;%26gt;
%26lt;/font%26gt;%26lt;fontcolor=%26quot;#000000%26quot;size=%26quot;3%26quot;face=%26quot;仿宋_GB2312%26quot;%26gt;超级搜索引擎%26lt;/font%26gt;%26lt;/b%26gt;%26lt;/div%26gt;
%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;trbordercolor=%26quot;#66CC99%26quot;%26gt;
%26lt;tdheight=%26quot;21%26quot;%26gt;请选择下面的搜索引擎:（请注重本搜索引擎只是适合于%26lt;fontcolor=%26quot;#ffffff%26quot;%26gt;网页搜索
%26lt;/font%26gt;）%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;trbordercolor=%26quot;#FFFFFF%26quot;align=%26quot;center%26quot;valign=%26quot;top%26quot;%26gt;
%26lt;tdheight=%26quot;20%26quot;%26gt;
%26lt;formmethod=%26quot;post%26quot;action=%26quot;http.asp%26quot;%26gt;
%26lt;tablewidth=%26quot;96%%26quot;border=%26quot;0%26quot;height=%26quot;21%26quot;align=%26quot;center%26quot;%26gt;
%26lt;tr%26gt;
%26lt;tdheight=%26quot;10%26quot;width=%26quot;31%%26quot;%26gt;
%26lt;divalign=%26quot;right%26quot;%26gt;请输入你要搜索的要害字%26lt;/div%26gt;
%26lt;/td%26gt;
%26lt;tdheight=%26quot;10%26quot;width=%26quot;69%%26quot;%26gt;
%26lt;inputtype=%26quot;text%26quot;name=%26quot;keyword%26quot;class=%26quot;test%26quot;%26gt;
%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;tr%26gt;
%26lt;tdheight=%26quot;2%26quot;width=%26quot;31%%26quot;%26gt;
%26lt;divalign=%26quot;right%26quot;%26gt;请选择你使用的搜索引擎%26lt;/div%26gt;
%26lt;/td%26gt;
%26lt;tdheight=%26quot;2%26quot;width=%26quot;69%%26quot;%26gt;
%26lt;inputtype=%26quot;checkbox%26quot;name=%26quot;yeah%26quot;value=%26quot;yeah%26quot;%26gt;
Yeah
%26lt;inputtype=%26quot;checkbox%26quot;name=%26quot;yahoo%26quot;value=%26quot;yahoo%26quot;%26gt;
Yahoo
%26lt;inputtype=%26quot;checkbox%26quot;name=%26quot;sina%26quot;value=%26quot;sina%26quot;%26gt;
Sina
%26lt;inputtype=%26quot;checkbox%26quot;name=%26quot;sohu%26quot;value=%26quot;sohu%26quot;%26gt;
Sohu
%26lt;inputtype=%26quot;checkbox%26quot;name=%26quot;goyoyo%26quot;value=%26quot;goyoyo%26quot;%26gt;
Goyoyo%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;tr%26gt;
%26lt;tdheight=%26quot;2%26quot;colspan=%26quot;2%26quot;%26gt;
%26lt;divalign=%26quot;right%26quot;%26gt;
%26lt;inputtype=%26quot;submit%26quot;name=%26quot;Submit%26quot;value=%26quot;让我们开始吧%26quot;class=%26quot;test1%26quot;%26gt;
%26lt;/div%26gt;
%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;/table%26gt;
%26lt;/form%26gt;
%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;trbordercolor=%26quot;#FFFFFF%26quot;%26gt;
%26lt;tdheight=%26quot;20%26quot;%26gt;备注由于使用了多个搜索引擎检索，所以系统输出的时间较长，请耐心等待......%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;trbordercolor=%26quot;#FFFFFF%26quot;%26gt;
%26lt;tdheight=%26quot;20%26quot;%26gt;
%26lt;divalign=%26quot;center%26quot;%26gt;建议使用IE5.x800*600访问ASPCN.COM版权保留(2000-2001)%26lt;font
size=%26quot;2%26quot;%26gt;%26amp;copy;%26lt;/font%26gt;%26lt;/div%26gt;
%26lt;/td%26gt;
%26lt;/tr%26gt;
%26lt;/table%26gt;
%26lt;/body%26gt;
%26lt;/html%26gt;
%26lt;!--
页面代码显示结束
数据处理代码显示
--%26gt;
%26lt;%else
Server.ScriptTimeout=100'设置脚本时间，由于系统输出时间较长所以必须修改脚本代码执行时间
Sethttp=Server.CreateObject(%26quot;AspHTTP.Conn%26quot;)'连结组件
keyword=request.form(%26quot;keyword%26quot;)'取得搜索要害字
ifrequest.form(%26quot;yeah%26quot;)=%26quot;yeah%26quot;then'判定是否选择使用yeah搜索引擎
http.Url=%26quot;http://search.163.com/cgi-bin/search/engine/search.fcgi?key=%26quot;%26amp;keyword'处理搜索地址
http.RequestMethod=%26quot;GET%26quot;'设置取得数据方式%26quot;GET，取得数据%26quot;
response.writehttp.geturl'输出搜索结果
endif
'以下代码请参考上例的说明，恕不罗嗦
'使用yahoo
ifrequest.form(%26quot;yahoo%26quot;)=%26quot;yahoo%26quot;then
http.Url=%26quot;http://google.yahoo.com/bin/query_gb?p=%26quot;%26amp;keyword
http.RequestMethod=%26quot;GET%26quot;
response.writehttp.geturl
endif
'使用sohu
ifrequest.form(%26quot;sohu%26quot;)=%26quot;sohu%26quot;then
http.Url=%26quot;http://search.sohu.com/cgi-bin/search_main.cgi?
txt_keyword=%26quot;%26amp;keyword%26amp;%26quot;%26amp;page_index=0%26amp;fuzzy=0%26amp;catagory=main%26quot;
http.RequestMethod=%26quot;GET%26quot;
response.writehttp.geturl
endif
'使用goyoyo
ifrequest.form(%26quot;goyoyo%26quot;)=%26quot;goyoyo%26quot;then
http.Url=%26quot;http://www.goyoyo.com.cn/gyy/query?dbs=guidedbs%26amp;code=GB%26amp;query=%26quot;%26amp;keyword
http.RequestMethod=%26quot;GET%26quot;
response.writehttp.geturl
endif
sethttp=nothing
endif
'提交数据处理结束
%%26gt;