修改对应目录下的
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 & "%'"
:)
有什么地方说明不够的跟帖告诉我，谢谢！:)
2007-04-23 13:29:40
Blog:http://ppsoft.cn
注册会员
管理员
银牌会员