今天用科讯CMS系统的搜索功能的时候出现这样的问题,在网上找了很多关于科讯文章搜索系统的问题解决办法,但却始终没有找到,经过自己的苦心研究,终于吧问题解决了,现在将解决的办法写出来,以供有同样
我用做搜索的时候用{$GetSearch} 总站搜索 的时候搜索是没有问题的
可是当我用{$GetArticleSearch}文章系统搜索 的时候,搜索页面出来的全是没有解释过的标签
首先找到搜索模板\KS_Cls\Kesion.AdministratorCls.asp,
Sub ClassAction(ChannelID)
'KS.Echo "<iframe src=""KS.ClassMenu.asp?action=Create"" frameborder=""0"" width=""0"" height=""0""></iframe>"
'exit sub
Dim KSR:Set KSR=New Refresh
Call KS.CreateListFolder(KS.Setting(3) & KS.Setting(93))
Dim SearchJS,FsoPath
FsoPath=KS.Setting(3) & KS.Setting(93) & "S_" & KS.C_S(ChannelID,10) & ".js"
SearchJS = "<table width=""98%"" border=""0"" align=""center"">" & vbCrLf
SearchJS = SearchJS & "<form id=""SearchForm"" name=""SearchForm"" method=""get"" action=""" & KS.Setting(3) & "plus/Search.asp"">" & vbCrLf
SearchJS = SearchJS & " <tr>" & vbCrLf
SearchJS = SearchJS & " <td align=""center""><select name=""SearchType"">" & vbCrLf
select case ks.c_s(channelid,6)
case 1
SearchJS = SearchJS & " <option value=""1"">标 题</option>" & vbCrLf
SearchJS = SearchJS & " <option value=""2"">内 容</option>" & vbCrLf
SearchJS = SearchJS & " <option value=""3"">作 者</option>" & vbCrLf
SearchJS = SearchJS & " <option value=""4"">录入者</option>" & vbCrLf
SearchJS = SearchJS & " <option value=""5"">关键字</option>" & vbCrLf
case 2
…………………………………………
end select
SearchJS = SearchJS & " </select>" & vbCrLf
SearchJS = SearchJS & " <select name=""ClassID"" style=""width:150"">" & vbCrLf
SearchJS = SearchJS & " <option value=""0"" selected=""selected"">所有栏目</option>" & vbCrLf
SearchJS = SearchJS & KS.LoadClassOption(ChannelID)
SearchJS = SearchJS & " </select>" & vbCrLf
SearchJS = SearchJS & " <input name=""KeyWord"" type=""text"" class=""textbox"" value=""关键字"" onfocus=""this.select();""/>" & vbCrLf
SearchJS = SearchJS & " <input name=""ChannelID"" value=""" & channelid & """ type=""hidden"" />" & vbCrLf
SearchJS = SearchJS & " <input type=""submit"" class=""inputButton"" name=""Submit"" value=""搜 索"" /></td>" & vbCrLf
SearchJS = SearchJS & " </tr>" & vbCrLf
SearchJS = SearchJS & "</form>" & vbCrLf
SearchJS = SearchJS & "</table>"
SearchJS = Replace(Replace(SearchJS,"'","\'"),"""","\""")
SearchJS = KSR.ReplaceJsBr(SearchJS)
Call KSR.FsoSaveFile(SearchJS,FsoPath)
Set KSR=Nothing
End Sub
更改搜索提交表单action路径为/Plus/search/search.asp,,原来指定的是/Plus/search.asp
更改 name=""KeyWord"" 改为: name=""Key""
name=""ChannelID"" 改为:name=""m""
等等,以上原程序中红色的都是要改的,大家可以自己改下。
是有问题的,这是改版以后没有及时更新模板所造成的,结下来吧表单中的各个标签名称也改一下,然后保存,上传,问题就解决了。
大家注意看最后一行Call KSR.FsoSaveFile(SearchJS,FsoPath),这一句的意思是,将搜索的JS文件生成放入根目录的名为JS的文件夹里S_Article.js。有些朋友改的时候只改S_Article.js这个文件里的字段,可是以添加文章或者在后台做别的操作后,发现搜索又出问题了,其实啊,问题就出在这里,因为后台每次添加活修改,S_Article.js这个js文件都会重新生成,解决办法就是将已经生成的S_Article.js文件更名,然后引入,或者直接更改最上面的生成S_Article.js的源文件,保存就好了,如果还有不明白的可以联系我:飞翔鸟 QQ67819227