Function GetSearch()
      GetSearch = "<form id=""SearchForm"" name=""SearchForm"" method=""Get"" action=""" & KS.Setting(3) &"plus/search/?m=1&stype=100"">" & vbCrLf
      GetSearch = GetSearch & "<div class=""searchsd"">" & vbCrLf
      GetSearch = GetSearch & " <input name=""key"" type=""text"" class=""textbox"" value=""如:考试系统""this.select();""/><span>" & 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