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！
代码开始：
<%
'判断是输出页面还是处理数据，从而调用不同的部分
keyword=trim(request.form("keyword"))
if isnull(keyword) or keyword="" then
%>
|
ASPCN.COM
color="#000000" size="3" face="Arial"> 超级搜索引擎 |
| 请选择下面的搜索引擎:（请注意：本搜索引擎只是适合于网页搜索 ） |
| 备注：由于使用了多个搜索引擎检索，所以系统输出的时间较长，请耐心等待... ... |
|
建议使用 IE 5.x 800*600访问 ASPCN.COM 版权保留(2000-2001)
size="2">� |
<%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
'提交数据处理结束
%>