'取得文章频道搜索 Function GetArticleSearch() GetArticleSearch = "<table width=""98%"" border=""0"" align=""center"">" & vbCrLf GetArticleSearch = GetArticleSearch & "<form id=""ArticleSearchForm"" name=""ArticleSearchForm"" method=""get"" action=""" & DomainStr & "Search.asp"" target=""_blank"">" & vbCrLf GetArticleSearch = GetArticleSearch & " <tr>" & vbCrLf GetArticleSearch = GetArticleSearch & " <td align=""center""><select name=""SearchType"">" & vbCrLf GetArticleSearch = GetArticleSearch & " <option value=""1"">标 题</option>" & vbCrLf GetArticleSearch = GetArticleSearch & " <option value=""2"">内 容</option>" & vbCrLf GetArticleSearch = GetArticleSearch & " <option value=""3"">作 者</option>" & vbCrLf GetArticleSearch = GetArticleSearch & " <option value=""4"">录入者</option>" & vbCrLf GetArticleSearch = GetArticleSearch & " <option value=""5"">关键字</option>" & vbCrLf GetArticleSearch = GetArticleSearch & " </select>" & vbCrLf GetArticleSearch = GetArticleSearch & " <select name=""ClassID"" style=""width:150"">" & vbCrLf GetArticleSearch = GetArticleSearch & " <option value=""0"" selected=""selected"">所有栏目</option>" & vbCrLf GetArticleSearch = GetArticleSearch & KSCMS.ReturnTree(0, 1) GetArticleSearch = GetArticleSearch & " </select>" & vbCrLf GetArticleSearch = GetArticleSearch & " <input name=""KeyWord"" type=""text"" class=""textbox"" value=""关键字"" onfocus=""this.select();""/>" & vbCrLf GetArticleSearch = GetArticleSearch & " <input name=""ChannelID"" value=""1"" type=""hidden"" />" & vbCrLf GetArticleSearch = GetArticleSearch & " <input type=""submit"" class=""inputButton"" name=""Submit"" value=""搜 索"" /></td>" & vbCrLf GetArticleSearch = GetArticleSearch & " </tr>" & vbCrLf GetArticleSearch = GetArticleSearch & "</form>" & vbCrLf GetArticleSearch = GetArticleSearch & "</table>" & vbCrLf |