{$GetSearch} 搜索如何去掉搜索类型？-领先建站CMS提供服务商我们专注于CMS建站产品的研发

3398 查看	8 回复

主题：[求助]{$GetSearch} 搜索如何去掉搜索类型？ [收藏主题]

转到：

wuhanpp 当前离线

13 主题	0 广播	0 粉丝

级别:学前班

用户积分:301 分
登录次数:11 次
注册时间:2009/6/22
最后登录:2010/3/31

wuhanpp 发表于：2009/6/23 19:15:00 | 显示全部帖子查看该作者主题楼主

做官网就用科汛智能建站系统!

      GetSearch = "<div class=""searchsd"">" & vbCrLf
            GetSearch = GetSearch & "<form id=""SearchForm"" name=""SearchForm"" method=""post"" action=""{$GetSiteUrl}plus/Search.asp"">" & vbCrLf
             GetSearch = GetSearch & "文章搜索： <input name=""KeyWord"" type=""text"" class=""textbox"" value=""请输入关键字"" onfocus=""this.select();""/>" & vbCrLf
            dim rs:set rs=conn.execute("select channelid,itemname from ks_channel where channelstatus=1 and channelid<>9 and BasicType=1 order by channelid")
      if not rs.eof then
       dim k,sql:sql=rs.getrows(-1)
    rs.close:set rs=nothing
             GetSearch = GetSearch & "<input name=""ChannelID"" type=""hidden"" value="""& sql(0,k) &""">"
               end if
            GetSearch = GetSearch & "<input type=""submit"" class=""inputButton"" name=""Submit1"" value=""站内搜索"" />" & vbCrLf
            GetSearch = GetSearch & "</form>" & vbCrLf
            GetSearch = GetSearch & "</div>" & vbCrLf

做官网就用科汛智能建站系统!