'取得总搜索
  Function GetSearch()
      GetSearch = "<div class=""searchsd"">" & vbCrLf
      GetSearch = GetSearch & "<ul>" & vbcrlf
      GetSearch = GetSearch & "<form id=""SearchForm""

name=""SearchForm"" method=""Get"" action=""" & DomainStr & "plus/Search.asp"">" &

vbCrLf
      GetSearch = GetSearch & "搜索： <input name=""KeyWord""

type=""text"" class=""textbox"" value=""请输入关键字"" onfocus=""this.select

();""/><span>" & vbCrLf
      GetSearch = GetSearch & "<select style=""width:120px""

name=""ChannelID"">" & vbCrLf

120  120  120呀