[分享]單獨欄目中按類別搜索 |
修改對應目錄下的
commonincfilesmodule_config.asp
以文章板塊做例子 先修改前臺頁面 編輯代號article.tpl.module 在list適當位置加上搜索框 <table cellpadding="0" cellspacing="0" class="tabc lrbtline">
<tr> <td width="100%" class="tbg">{$=itake('global.lng_config.search','lng')}</td> </tr> <tr> <form method="get" name="search"> <td width="100%" class="tda">{$=itake("global.lng_config.keyword", "lng")} <input type="text" name="keyword" size="15"> <select name="sort" class="select">{$=sel_sort("0",0,ngenre,slng)}</select> <select name="field">{$=show_xmlinfo_select("global.search:sel_field.all","","select")}</select> <input type="submit" value="{$=itake('global.lng_config.search','lng')}" class="button"></td> </form> </tr> </table> 然後再修改module_config.asp 在最頂部先申明 Dim slng: slng = get_safecode(request.querystring("slng"))
If check_null(slng) Then slng = nlng 在Function jtb_cms_module_list()函數頂部加入 Dim search_sort,search_field,search_keyword search_sort = get_safecode(request.querystring("sort")) search_field = get_safecode(request.querystring("field")) search_keyword = get_safecode(request.querystring("keyword")) 替換module_config.asp中的 sqlstr = "select top " & nlisttopx & " * from " & ndatabase & " where " & ndatabase & "." & cfname("hidden") & "=0"
爲 sqlstr = "select top " & nlisttopx & " * from " & ndatabase & "," & sort_database & " where " & ndatabase & "." & cfname("class") & "=" & sort_database & "." & sort_idfield & " and " & sort_database & "." & cfnames(sort_fpre, "lng") & "='" & slng & "' and " & sort_database & "." & cfnames(sort_fpre, "genre") & "='" & ngenre & "' and " & ndatabase & "." & cfname("hidden") & "=0"
在module_config.asp中找到下面這句 sqlstr = sqlstr & " order by " & cfname("top") & " desc," & cfname("time") & " desc"
並在上面加入以下代碼 If search_field = "topic" Then sqlstr = sqlstr & " and " & ndatabase & "." & cfname("topic") & " like '%" & search_keyword & "%' and " & sort_database & "." & sort_idfield & " like '%" & search_sort & "%'"
:) 有什麼地方說明不夠的跟帖告訴我,謝謝!:) |