使用各大搜索引擎于网页中 --为学习之方便，转载

<form name="form1" method="post" action="shenye2.asp">
        <input id="TxtKey" name="TxtKey" type="text" size="16">
        <br>
        <label>选择搜索引擎:</label>
        <select name="CboEngine" id="CboEngine" style="width:124px">
          <option value="title" selected>==选择搜索引擎==</option>
          <option value="yahoo">中文雅虎---搜索引擎</option>
          <option value="sina">新浪-------搜索引擎</option>
          <option value="EXCITE">====EXCITE====</option>
          <option value="cseek">搜索客-----搜索引擎</option>
          <option value="gdcatv">视讯中文---搜索引擎</option>
          <option value="sohu">搜狐-------搜索引擎</option>
          <option value="263">首都在线263搜索引擎</option>
          <option value="163">网易163----搜索引擎</option>
        </select>
        <br>
        <input name="CmdSearch" type="submit" id="CmdSearch" value="查询">
        &nbsp;&nbsp;&nbsp;
        <input type="submit" name="Submit" value="重来">
      </form>

在点击“查询”的时候怎么实现另开一个窗口？
请各位大哥赐教！

下面是实现搜索的一段脚本：

<%
Dim strKey
If Request.Form("CmdSearch")="查询" Then
   strKey=Request.Form("TxtKey")
   If strKey<>"" Then
         Select Case Request.Form("CboEngine")
         Case"163"
         Response.Redirect "http://search.163.com/cgi-bin/search/engine/search.fcgi?key=" & strKey
         Case"yahoo"
         Response.Redirect "http://search.chinese.yahoo.com/search/gb?p=" & strKey & "&u=B"
         Case"sohu"
         Response.Redirect "http://search.sohu.com/cgibin/search_baibu.pl?tn=sohu&si=gi&work=" & strKey & "&ct=0&cl=2&lm=0"
         Case"sina"
         Response.Redirect "http://search.sina.com.cn/cgi-bin/search/search.cgi?_searchkey=" & strKey
         Case"263"
         Response.Redirect "http://search.263.net/cgi-bin/tsearch?func=3&p=" & strKey
         Case"cseek"
         Response.Redirect "http://www.cseek.com/cgi/srchengine.cgi?searchkey=" & strKey
         Case"gdcatv"
         Response.Redirect "http://www.gdcatv.com.cn:4000/intra/owa/navigator.navi_query?pagenumber=1&button=a&text1=" & strKey
         Case"EXCITE"
         Response.Redirect "http://www.excite.com/search.gw?look=default&c=web&trace=b&search=" & strKey
   End Select
   Else
   Response.Write("提示：（中文雅虎最快最准确）：您没有输入任何信息，请输入您想要查询的信息，并选择搜索引擎......谢谢！！")
   End If
 End If
%>