[p=24, null, left]调用搜索代码：{$GetSearch}

[p=24, null, left]会出现搜索类型的选项：文章、软件、图片、商品

[p=24, null, left]如何去掉这些选项？或者如何修改选项的内容？

[p=24, null, left]请高手指点  万分谢谢

[p=24, null, left]版本是v7的

Function GetSearch()



   GetSearch = "<form id=""SearchForm"" name=""SearchForm"" method=""Get"" action=""" & KS.Setting(3) &"plus/search/"">" & vbCrLf



   GetSearch = GetSearch & "<div class=""searchsd"">" & vbCrLf



   GetSearch = GetSearch & " <input name=""key"" type=""text"" class=""textbox"" value=""请输入关键字""this.select();""/><span>" & vbCrLf



  If not IsObject(Application(KS.SiteSN&"_ChannelConfig")) Then KS.LoadChannelConfig



Dim ModelXML,Node



Set ModelXML=Application(KS.SiteSN&"_ChannelConfig")



For Each Node In ModelXML.DocumentElement.SelectNodes("channel")



     if Node.SelectSingleNode("@ks21").text="1" and Node.SelectSingleNode("@ks0").text<>"6" and Node.SelectSingleNode("@ks0").text<>"9" and Node.SelectSingleNode("@ks0").text<>"10" Then



GetSearch = GetSearch & "<option value=""" &Node.SelectSingleNode("@ks0").text & """>" & Node.SelectSingleNode("@ks3").text & "</option>" & vbCrLf



End If



Next







   GetSearch = GetSearch & "</select>" & vbCrLf



   GetSearch = GetSearch & "<input type=""image"" class=""inputButton"" name=""Submit1"" src=""" & KS.GetDomain & "images/search_button.jpg"" align=""absmiddle"" />" & vbCrLf



   GetSearch = GetSearch & "</span>" & vbCrLf



   GetSearch = GetSearch & "</div>" & vbCrLf



   GetSearch = GetSearch & "</form>" & vbCrLf



End Function





End Class

里面的内容是如上面所写