定义了一个下拉列表,选中哪个就到哪去搜了
dim keyword
dim i
dim str
keyword=split(request.Form("textfield"))
str=""
for i=0 to ubound(keyword)
if i=ubound(keyword) then
str=str&keyword(i)
else
str=str&keyword(i)&"+"
end if
next
if request.Form("select")="百度" then
response.Redirect("http://www.baidu.com/s?wd="&str)
end if
if request.Form("select")="Google" then
response.Redirect("http://www.google.com/search?q="&str)
end if
if request.Form("select")="搜狗" then
response.Redirect("http://d.sogou.com/music.so?query="&str)
end if
if request.Form("select")="迅雷" then
response.Redirect("http://so.xunlei.com/search?search="&str)
end if