ASPCMS 多条件查询

1. 表单样例：

                <form name="topFrm"  id="topFrm" action="/search.asp">

                    <input name="searchType" type="hidden" value="3" id="searchType" />

                    <input name="keys" type="hidden" value="all" id="keys" />

                    <div class="search-li">

                        <input name="Title" type="text" class="search-input" id="Title" />

                        <span>项目名称：</span></div>

                    <div class="search-li">

                        <input class="search-input" name="P_Area" type="text" id="P_Area" />

                        <span>区域：</span></div>

                    <div class="search-li">

                        <input class="search-input" name="P_Room" type="text" id="P_Room" />

                        <span>房型：</span></div>

                    <div class="search-li">

                        <input class="search-input" name="P_Cost" type="text" id="P_Cost" />

                        <span>造价：</span></div>

                    <div class="search-li">

                        <input class="search-input" name="P_DesignStyle" type="text" id="P_DesignStyle" />

                        <span>风格：</span></div>

                    <div class="search-btn"><a  href="javascript:topsearchSubmit();"><img src="{aspcms:sitepath}/Templates/{aspcms:defaulttemplate}/images/search_btn.gif" /></a></div>

                </form>

<script type="text/javascript">

    function topsearchSubmit()

    {

        topFrm.submit();

        return false;

    }

</script>

2. 修改"/inc/AspCms_MainClass.asp"，修改查询语句(在源码的1484行)

'ASPCMS Start

'                    dim typeStr: typeStr=""

'                    dim searchType

'                    searchType=filterPara(getForm("searchType","get"))

'                    if isnul(searchType) then searchType="0"

'                    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,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 Title like '%"&keys&"%'"&typeStr&orderStr

'ASPCMS End

把上面修改成：

'Feva Start

Dim typeStr: typeStr=""

Dim searchType

searchType=filterPara(getForm("searchType","get"))

If isnul(searchType) Then searchType="0"

If Not "0"=searchType  Then typeStr=" and a.SortID in (select {prefix}Sort.sortid from {prefix}Sort where sortType="&searchType&") "

If Not 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 {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 Title like '%"&keys&"%'"&typeStr&orderStr

Else

    Dim formInput, keyValue, tempString : tempString = ""

    For Each formInput In Request.QueryString

        If Not formInput = "searchType" And Not formInput = "keys" And Not formInput = "page"  Then

            keyValue = filterPara(getForm(formInput, "get"))

            If Len(keyValue) > 0 And Len(filterPara(formInput)) > 0  Then

                tempString = tempString & " and " & formInput & " like '%" & keyValue & "%'"

            End If

        End If

    Next

    tempString = tempString & " "

    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 {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)&")"& tempString &typeStr&orderStr

End If

'Feva End

3. 修改"/inc/AspCms_CommonFun.asp"，添加函数：

'Feva Start

'多条件分页使用

Function conditionSearch()

    Dim keys : keys =  filterPara(getForm("keys", "get"))

    If Not keys="all" Then

'            strPageNumber=strPageNumber&"<a href=""?page="&pagenumber&"&keys="&keys&"&searchtype="&searchtype&""">"&pagenumber&"</a>"

            conditionSearch = ""

            Exit Function

    Else

        Dim formInput, keyValue, tempString : tempString = ""

        For Each formInput In Request.QueryString

            If Not formInput = "searchType" And Not formInput = "keys" And Not formInput = "page" Then

                keyValue = filterPara(getForm(formInput, "get"))

                If Len(keyValue) > 0 And Len(filterPara(formInput)) > 0 Then

                    tempString = tempString & "&" & formInput & "=" & keyValue

                End If

            End If

        Next

        conditionSearch = tempString

        Exit Function

'        strPageNumber=strPageNumber&"<a href=""?page="&pagenumber&"&keys="&keys&"&searchType="&searchtype&tempString&""">"&pagenumber&"</a>"

    End If

End Function

'Feva End

3. 修改"/inc/AspCms_CommonFun.asp"，分页中部函数 Function makePageNumber(Byval currentPage,Byval pageListLen,Byval totalPages,Byval linkType,Byval sortid, Byval showType) 修改：

'ASPCMS  Start

'                strPageNumber=strPageNumber&"<a href=""?page="&pagenumber&"&keys="&keys&"&searchtype="&searchtype&""">"&pagenumber&"</a>"

'ASPCMS  End

修改成：

'Feva Start

'注意searchType大小写问题

                strPageNumber=strPageNumber&"<a href=""?page="&pagenumber&"&keys="&keys&"&searchType="&searchtype& conditionSearch() &""">"&pagenumber&"</a>"

'Feva End

4. 修改"/inc/AspCms_CommonFun.asp"，分页两侧函数 Function pageNumberLinkInfo(Byval currentPage,Byval pageListLen,Byval totalPages,Byval linkType,Byval sortid, Byval showType) 修改

'ASPCMS Start

'            firstPageLink="<a href='?page=1&keys="&keys&"&searchtype="&searchtype&"'>"&str_01&"</a>" : lastPagelink="<a href='?page="&currentPage-1&"&keys="&keys&"&searchtype="&searchtype&"'>"&str_03&"</a>"

'ASPCMS End

修改成：

'Feva Start

            firstPageLink="<a href='?page=1&keys="&keys&"&searchType="&searchtype&conditionSearch& "'>"&str_01&"</a>" : lastPagelink="<a href='?page="&currentPage-1&"&keys="&keys&"&searchType="&searchtype&conditionSearch&"'>"&str_03&"</a>"

'Feva End            

大功告成了，试过，没有错误 ASPCMS 2.5.4 beta 2  2014年7月28日