ASPCMS多条件匹配搜索

ゝ一纸荒年。 2024-02-17 14:21 48阅读 0赞

比如后台新增一个字段叫做产品类型，文本字段,P\_leixing

在根目录下找到search.asp，在加以下代码

<%
    echoContent()
    Sub echoContent()
    	dim page,keys,leixing
    	page=filterPara(getForm("page","both"))
    	keys=filterPara(getForm("keys","both"))
    	leixing=filterPara(getForm("leixing","both"))
    	'if isNul(keys) then alertMsgAndGo "请输入关键词","-1"
    	if isNul(page) then page=1
    	if isNum(page) then page=clng(page) else echoMsgAndGo "页面不存在",3 end if
    	
    	dim templateobj,channelTemplatePath : set templateobj=new TemplateClass
    	dim typeIds,rsObj,rsObjtid,Tid,rsObjSmalltype,rsObjBigtype
    	Dim templatePath,tempStr	
    	templatePath=sitePath&"/"&"templates/"&setting.defaultTemplate&"/"&setting.htmlFilePath&"/search.html"	
    	'die templatePath
    	if not CheckTemplateFile(templatePath) then echo "search.html"&err_16
    
    	with templateObj 
    		.content=loadFile(templatePath)	
    		.parseHtml()
    		.parseCommon() 		
    		.parseList 0,page,"searchlist",keys,leixing,"searchlist"		
    		echo .content 
    	end with
    	set templateobj =nothing : terminateAllObjects
    End Sub
    %>

修改模版文件search.html

产品类型：<input type="text" name="leixing" value=""/>

然后修改执行的文件 inc\\AspCms\_MainClass.asp

1394行左右

Public Function parseList(typeIds,currentPage,pageListType,keys,leixing,showType)

1412行左右

'修改这里哦亲
    					if  not "0"=searchType  then typeStr=" and a.SortID in (select {prefix}Sort.sortid from {prefix}Sort where sortType="&searchType&") " 	
    					sql="select ContentID,a.SortID,a.GroupID,a.Exclusive,Title,P_leixing,Title2,TitleColor,IsOutLink,OutLink,Author,ContentSource,ContentTag,Content,ContentStatus,IsTop,Isrecommend,IsImageNews,IsHeadline,IsFeatured,ContentOrder,IsGenerated,Visits,a.AddTime,a.[ImagePath],a.IndexImage,a.DownURL,a.PageFileName,a.PageDesc,SortType,SortURL,SortFolder,SortFileName,SortName,ContentFolder,ContentFileName,b.GroupID "&sperStr&" from {prefix}Content as a,{prefix}Sort as b where a.LanguageID="&setting.languageID&"and a.SortID=b.SortID and ContentStatus=1 and TimeStatus=0 and a.SortID in ("&getSubSort(typeIds, 1)&") and P_leixing like '%" &leixing& "%'  and Title like '%"&keys&"%'"&typeStr&orderStr
    					'response.Write("- -")

修改后能筛选了但是分页不知道是否好使，再就是只能模糊匹配且无法在提交时文本框中显示当前关键字

同行的建议和意见

1.找到inc\\aspcms\_mainclass.asp  
  
约1360行 找到  
  
  
'dim searchType  
' searchType=filterPara(getForm("searchType","get"))  
' if isnul(searchType) then searchType="0"  
' if not "0"=searchType then typeStr=" and a.SortID in (select AspCms\_Sort.sortid from AspCms\_Sort where sortType="&searchType&") "  
' sql="select ContentID,a.SortID,a.GroupID,a.Exclusive,Title,Title2,TitleColor,IsOutLink,OutLink,Author,ContentSource,ContentTag,Content,ContentStatus,IsTop,Isrecommend,IsImageNews,IsHeadline,IsFeatured,ContentOrder,IsGenerated,Visits,a.AddTime,a.\[ImagePath\],a.IndexImage,a.DownURL,a.PageFileName,a.PageDesc,SortType,SortURL,SortFolder,SortFileName,SortName,ContentFolder,ContentFileName,b.GroupID "&sperStr&" from AspCms\_Content as a,AspCms\_Sort as b where a.LanguageID="&setting.languageID&"and a.SortID=b.SortID and ContentStatus=1 and TimeStatus=0 and a.SortID in ("&getSubSort(typeIds, 1)&") and Title like '%"&keys&"%'"&typeStr&orderStr  
' end if  
  
修改成：  
  
dim searchType,keyname,keyvalue  
searchType=filterPara(getForm("searchType","get"))  
if isnul(searchType) then searchType="0"  
if not "0"=searchType then typeStr=" and a.SortID in (select AspCms\_Sort.sortid from AspCms\_Sort where sortType="&searchType&") "  
keyname=filterPara(getForm("keyname","get"))  
keyvalue=filterPara(getForm("keyvalue","get"))  
if isnul(keyname) or isnul(keyvalue) then  
sql="select ContentID,a.SortID,a.GroupID,a.Exclusive,Title,Title2,TitleColor,IsOutLink,OutLink,Author,ContentSource,ContentTag,Content,ContentStatus,IsTop,Isrecommend,IsImageNews,IsHeadline,IsFeatured,ContentOrder,IsGenerated,Visits,a.AddTime,a.\[ImagePath\],a.IndexImage,a.DownURL,a.PageFileName,a.PageDesc,SortType,SortURL,SortFolder,SortFileName,SortName,ContentFolder,ContentFileName,b.GroupID "&sperStr&" from AspCms\_Content as a,AspCms\_Sort as b where a.LanguageID="&setting.languageID&"and a.SortID=b.SortID and ContentStatus=1 and TimeStatus=0 and a.SortID in ("&getSubSort(typeIds, 1)&") and Title like '%"&keys&"%'"&typeStr&orderStr  
else  
if keys="all" then  
sql="select ContentID,a.SortID,a.GroupID,a.Exclusive,Title,Title2,TitleColor,IsOutLink,OutLink,Author,ContentSource,ContentTag,Content,ContentStatus,IsTop,Isrecommend,IsImageNews,IsHeadline,IsFeatured,ContentOrder,IsGenerated,Visits,a.AddTime,a.\[ImagePath\],a.IndexImage,a.DownURL,a.PageFileName,a.PageDesc,SortType,SortURL,SortFolder,SortFileName,SortName,ContentFolder,ContentFileName,b.GroupID "&sperStr&" from AspCms\_Content as a,AspCms\_Sort as b where a.LanguageID="&setting.languageID&"and a.SortID=b.SortID and ContentStatus=1 and TimeStatus=0 and a.SortID in ("&getSubSort(typeIds, 1)&") and "&keyname&"='"&keyvalue&"'"&typeStr&orderStr  
else  
sql="select ContentID,a.SortID,a.GroupID,a.Exclusive,Title,Title2,TitleColor,IsOutLink,OutLink,Author,Conte

还有个

修改成：  
  
dim searchType,keyname,keyvalue  
searchType=filterPara(getForm("searchType","get"))  
if isnul(searchType) then searchType="0"  
if not "0"=searchType then typeStr=" and a.SortID in (select AspCms\_Sort.sortid from AspCms\_Sort where sortType="&searchType&") "  
keyname=filterPara(getForm("keyname","get"))  
keyvalue=filterPara(getForm("keyvalue","get"))  
if isnul(keyname) or isnul(keyvalue) then  
sql="select ContentID,a.SortID,a.GroupID,a.Exclusive,Title,Title2,TitleColor,IsOutLink,OutLink,Author,ContentSource,ContentTag,Content,ContentStatus,IsTop,Isrecommend,IsImageNews,IsHeadline,IsFeatured,ContentOrder,IsGenerated,Visits,a.AddTime,a.\[ImagePath\],a.IndexImage,a.DownURL,a.PageFileName,a.PageDesc,SortType,SortURL,SortFolder,SortFileName,SortName,ContentFolder,ContentFileName,b.GroupID "&sperStr&" from AspCms\_Content as a,AspCms\_Sort as b where a.LanguageID="&setting.languageID&"and a.SortID=b.SortID and ContentStatus=1 and TimeStatus=0 and a.SortID in ("&getSubSort(typeIds, 1)&") and Title like '%"&keys&"%'"&typeStr&orderStr  
else  
if keys="all" then  
sql="select ContentID,a.SortID,a.GroupID,a.Exclusive,Title,Title2,TitleColor,IsOutLink,OutLink,Author,ContentSource,ContentTag,Content,ContentStatus,IsTop,Isrecommend,IsImageNews,IsHeadline,IsFeatured,ContentOrder,IsGenerated,Visits,a.AddTime,a.\[ImagePath\],a.IndexImage,a.DownURL,a.PageFileName,a.PageDesc,SortType,SortURL,SortFolder,SortFileName,SortName,ContentFolder,ContentFileName,b.GroupID "&sperStr&" from AspCms\_Content as a,AspCms\_Sort as b where a.LanguageID="&setting.languageID&"and a.SortID=b.SortID and ContentStatus=1 and TimeStatus=0 and a.SortID in ("&getSubSort(typeIds, 1)&") and "&keyname&"='"&keyvalue&"'"&typeStr&orderStr  
else  
sql="select ContentID,a.SortID,a.GroupID,a.Exclusive,Title,Title2,TitleColor,IsOutLink,OutLink,Author,ContentSource,ContentTag,Content,ContentStatus,IsTop,Isrecommend,IsImageNews,IsHeadline,IsFeatured,ContentOrder,IsGenerated,Visits,a.AddTime,a.\[ImagePath\],a.IndexImage,a.DownURL,a.PageFileName,a.PageDesc,SortType,SortURL,SortFolder,SortFileName,SortName,ContentFolder,ContentFileName,b.GroupID "&sperStr&" from AspCms\_Content as a,AspCms\_Sort as b where a.LanguageID="&setting.languageID&"and a.SortID=b.SortID and ContentStatus=1 and TimeStatus=0 and a.SortID in ("&getSubSort(typeIds, 1)&") and Title like '%"&keys&"%' and "&keyname&"='"&keyvalue&"'"&typeStr&orderStr  
end if  
end if  
end if

你所提到的分页

设计到搜索结果分页，所以还要修改inc\\aspc\_commonFun.asp页面  
  
约700行  
strPageNumber=strPageNumber&""&pagenumber&""  
修改成  
keyname=filterPara(getForm("keyname","get"))  
keyvalue=filterPara(getForm("keyvalue","get"))  
if isnul(keyname) or isnul(keyvalue) then  
strPageNumber=strPageNumber&""&pagenumber&""  
else  
strPageNumber=strPageNumber&""&pagenumber&""  
end if

kin\_wt  (12:45:22):

修改后搜索页的使用方法：例search.asp?searchtype=3&keys=all&keyname=P\_lvyouys&keyvalue=1-300  
说明keyname=列明&keyvalue=值

我之前有实现过单一价格的检索

这个参数多了 检索起来就老报错

\------------------------------------------------------------2015-12-22--------------------------------------------------------------

ASPCMS多条件搜索导致列表报错的处理方法  
多条件根据上篇文章搞定后可能会出现列表报错的问题，接下来是解决方法待测试。  
打开/inc/AspCms\_templateFun.asp我用的是258版本、  
找到645行  
templateObj.parseList sortID,page,"list","",sortFolder&sortFileName&fileExt  
这里注意你增加了几个字段这里就要增加几个 ,""  
如我增加了俩字段那这里应该就是  
templateObj.parseList sortID,page,"list","","","",sortFolder&sortFileName&fileExt  
  
  
上一篇文章中替换List循环标签中我们增加的字段，这里也要有