Question

使用VB脚本代码编写程序

要求有代码文档，完成后效果如图3、4所示
答案要有代码文档+图3、4所示运行调试截图，在线等！！！！

Answer 1

代码如下，代码源文件和图片附件里面也有。

 

<form>
<div><td><input type=text style="width:200px; height:25px;" name="incontent" value="">&nbsp;&nbsp;<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
%>