您现在的位置： 
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">©</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
'提交数据处理结束
%>
<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">©</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
'提交数据处理结束
%>
