有人知道这段代码是做什么的吗?是不是防止搜索引擎收录的?
if   request.QueryString( "action ")= "search "   then
dim   word,engine
word   =   request.Form( "word ")
engine   =   request.Form( "search ")
Select   case   engine
case   "3721 "
response.Redirect( "http://cns.3721.com/cns.dll?name= "&word)
response.End()
case   "google "
response.Redirect( "http://www.google.com/search?q= "&word& "&hl=zh-CN&lr=lang_zh-CN&ie=gb2312 ")
response.End()
case   "baidu "
response.Redirect( "http://www.baidu.com/baidu?word= "&word)
response.End()
case   "sina "
response.Redirect( "http://search.sina.com.cn/cgi-bin/search/search.cgi?ss=sina&_searchkey= "&word)
response.End()
end   select
end   if

------解决方案--------------------
根据表单中的search字段，将搜索关键字work提交到相关页面
------解决方案--------------------
楼上正解,就是把3721,google,baidu的搜索框移植在自己页面