使用VB脚本代码编写程序
发布网友
发布时间：2022-04-21 08:56
共1个回答
热心网友
时间：2023-09-09 06:18
代码如下，代码源文件和图片附件里面也有。
<form>
<div><td><input type=text style="width:200px; height:25px;" name="incontent" value=""> <input type=submit name="submit" value="搜索">
</td></div>
<div>
<td>
<input type=radio name="search" value="bd">百度
<input type=radio name="search" value="yh">Yahoo
<input type=radio name="search" value="sg">搜狗
</td>
</div>
</form>
<%
'百度 http://www.baidu.com/s?wd=
'搜狗 http://www.sogou.com/sogou?query=
'Yahoo https://search.yahoo.com/search;_ylt=AsdHYgmo4CrfcaVNGk63yF2bvZx4?p=test&toggle=1&cop=mss&ei=UTF-8&fr=yfp-t-312&fp=1
dim nr,ss
ss= Request.QueryString("search")
nr= Request.QueryString("incontent")
if ss="bd"then
response.redirect("http://www.baidu.com/s?wd="&nr)
elseif ss="yh" then
response.redirect("https://search.yahoo.com/search;_ylt=AsdHYgmo4CrfcaVNGk63yF2bvZx4?p="&nr&"&toggle=1&cop=mss&ei=UTF-8&fr=yfp-t-312&fp=1")
elseif ss="sg"then
response.redirect("http://www.sogou.com/sogou?query="&nr)
ss= Request.QueryString("search")=""
response.redirect("index.asp")
end if
%>
