'取得总搜索
  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=""请输入关键字""if(this.value=='') {this.style.color='#999';this.value='请输入关键字';}""if(this.value=='请输入关键字'){this.value='';}else{this.style.color='#000';}"" /><span>" & vbCrLf
     GetSearch = GetSearch & "<select style=""width:55px;"" name=""m"">" & vbCrLf
    GetSearch = GetSearch & "<option value=""0"">全部</option>" & 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 KS.ChkClng(Node.SelectSingleNode("@ks6").text)<10 and 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=""%22%20&Node.SelectSingleNode(%22@ks0%22).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/btn.gif"" align=""absmiddle"" />" & vbCrLf
      GetSearch = GetSearch & "</span>" & vbCrLf
      GetSearch = GetSearch & "</div>" & vbCrLf
      GetSearch = GetSearch & "</form>" & vbCrLf
  End Function

End Class
%>