在线接看!关于搜索引擎的问题 !肯定给分!~

aimei2003 2003-10-16 06:04:12
<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="查询">
   
<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
%>


如果我把“Response.Write("提示:(中文雅虎最快最准确):您没有输入任何信息,请输入您想要查询的信息,并选择搜索引擎......谢谢!!")”
换成弹出对话框来实现提示,那怎么办?如果可能的话请给出整段代码,因为偶是超级菜鸟!谢了!

最最重要的是怎么实现另外弹出窗口而不是在当前窗口打开!
谢了!
...全文
41 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
xupiao 2003-10-16
  • 打赏
  • 举报
回复
up
angelheavens 2003-10-16
  • 打赏
  • 举报
回复
把Response.Redirect 改成:
response.write "<script>window.open('网址','','FullScreen=yes');</script>"


Response.Write "<script>alert('提示:(中文雅虎最快最准确):您没有输入任何信息,请输入您想要查询的信息,并选择搜索引擎......谢谢!!')</script>"

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧