powereasy.house.asp

个人网站比较简短

                    Case 3
                        strHouseList = strHouseList & "<td align='center' class='" & CssName & "'>" & rsHouseList("HouseMianJi1") & "-" & rsHouseList("HouseMianJi2") & "㎡</td>"
                    Case 4
                        strHouseList = strHouseList & "<td align='center' class='" & CssName & "'>" & rsHouseList("HouseMianJi1") & "-" & rsHouseList("HouseMianJi2") & "㎡</td>"
                    Case 5
                        strHouseList = strHouseList & "<td align='center' class='" & CssName & "'>" & rsHouseList("HouseMianJi1") & "㎡</td>"
                    End Select
                End If
                If isUpdateTime = True Then
                    strHouseList = strHouseList & "<td align='center' class='" & CssName & "'>" & FormatDateTime(rsHouseList("UpdateTime"), 2) & "</td>"
                End If
                If isSource = True Then
                    strHouseList = strHouseList & "<td align='center' class='" & CssName & "'>" & rsHouseList("HouseSource") & "</td>"
                End If
                strHouseList = strHouseList & "</tr>"
                iCount = iCount + 1
                If iCount Mod 2 = 0 Then
                    CssName = "houselistbg2"
                Else
                    CssName = "houselistbg"
                End If
            End If
        End If
        If iCount >= MaxPerPage Then Exit Do
        rsHouseList.MoveNext
    Loop
    If Num <> 0 And CurrentPage < 2 Then
        If isElite = False And isHot = False Then strHouseList = strHouseList & "<tr><td align='right' colSpan=8 class='" & CssName & "'><a href='ShowClass.asp?ClassID=" & ClassID & "' target='_blank'>更多>>&nbsp; &nbsp;  </a></td></tr>"
        If isElite = True Then strHouseList = strHouseList & "<tr><td align='right' colSpan=8 class='" & CssName & "'><a href='ShowElite.asp?ClassID=" & ClassID & "' target='_blank'>更多>>&nbsp; &nbsp;  </a></td></tr>"
        If isHot = True Then strHouseList = strHouseList & "<tr><td align='right' colSpan=8 class='" & CssName & "'><a href='ShowHot.asp?ClassID=" & ClassID & "' target='_blank'>更多>>&nbsp; &nbsp;  </a></td></tr>"
    End If
    strHouseList = strHouseList & "</table>"
    rsHouseList.Close
    Set rsHouseList = Nothing
    GetHouseList = strHouseList
End Function

Public Function GetListFromTemplate(ByVal strValue)
    Dim strList
    strList = strValue
    regEx.Pattern = "\{\$GetHouseList\((.*?)\)\}"
    Set Matches = regEx.Execute(strList)
    For Each Match In Matches
        strList = PE_Replace(strList, Match.value, GetListFromLabel(Match.SubMatches(0)))
    Next
    GetListFromTemplate = strList
End Function

Private Function GetListFromLabel(ByVal str1)
    Dim strTemp, arrTemp
    Dim tChannelID, HouseNum, arrClassID, tSpecialID, AuthorName, OrderType, OpenType, ClassID
    If str1 = "" Then
        GetListFromLabel = ""
        Exit Function
    End If
    
    strTemp = Replace(str1, Chr(34), "")
    arrTemp = Split(strTemp, ",")
    If UBound(arrTemp) <> 12 Then
        GetListFromLabel = "函数式标签：{$GetHouseList(参数列表)}的参数个数不对。请检查模板中的此标签。"
        Exit Function
    End If
    If Trim(arrTemp(0)) = "ClassID" Then
        ClassID = Request("ClassID")
    Else
        ClassID = arrTemp(0)
    End If
    GetListFromLabel = GetHouseList(PE_CLng(ClassID), PE_CLng(arrTemp(1)), PE_CLng(arrTemp(2)), PE_CBool(ReplaceBadChar(arrTemp(3))), PE_CBool(ReplaceBadChar(arrTemp(4))), PE_CBool(ReplaceBadChar(arrTemp(5))), PE_CBool(ReplaceBadChar(arrTemp(6))), PE_CBool(ReplaceBadChar(arrTemp(7))), PE_CBool(ReplaceBadChar(arrTemp(8))), PE_CBool(ReplaceBadChar(arrTemp(9))), PE_CBool(ReplaceBadChar(arrTemp(10))), PE_CBool(ReplaceBadChar(arrTemp(11))), PE_CBool(ReplaceBadChar(arrTemp(12))))
End Function

'=================================================
'函数名：GetSearchResult
'作  用：分页显示搜索结果
'参  数：无
'=================================================
Function GetSearchResult()
    Dim sqlSearch, ItemOpenType, Intro, rsSearch, iCount, HouseNum, HouseSource
    Dim arrHouseID, OpenType, strSearchResult, PriceUnit, Content, TableName, TimeBound, Price1, Price2, HouseHuXing1, HouseHuXing2, HouseQuYu, HouseMianJi, Address
    strSearchResult = ""
    HouseSource = ReplaceBadChar(Trim(Request("HouseSource")))
    InfoType = PE_CLng(Trim(Request("InfoType")))
    HouseHuXing1 = ReplaceBadChar(Trim(Request("HouseHuxing1")))
    HouseHuXing2 = ReplaceBadChar(Trim(Request("HouseHuxing2")))
    HouseQuYu = ReplaceBadChar(Trim(Request("HouseQuYu")))
    HouseMianJi = ReplaceBadChar(Trim(Request("HouseMianJi")))
    TimeBound = PE_CLng(Trim(Request("TimeBound")))
    Price1 = PE_CLng(Trim(Request("Price1")))
    Price2 = PE_CLng(Trim(Request("Price2")))
    Address = ReplaceBadChar(Trim(Request("Address")))
    Select Case Trim(Request("PriceUnit"))
    Case "元/月"
        PriceUnit = "元/月"
    Case "元/周"
        PriceUnit = "元/周"
    Case "元/年"
        PriceUnit = "元/年"
    Case "元/天"
        PriceUnit = "元/天"
    Case "元/季"
        PriceUnit = "元/季"
    Case "元/㎡"
        PriceUnit = "元/㎡"
    Case "万元"
        PriceUnit = "万元"
    End Select
    Select Case InfoType
    Case 1
        TableName = "PE_HouseCS"
    Case 2
        TableName = "PE_HouseCZ"
    Case 3
        TableName = "PE_HouseQG"
    Case 4
        TableName = "PE_HouseQZ"
    Case 5
        TableName = "PE_HouseHZ"
    Case Else
        TableName = "PE_HouseCS"
    End Select
    If PE_CLng(SearchResultNum) > 0 Then
        sqlSearch = "select top " & PE_CLng(SearchResultNum) & " HouseID"
    Else
        sqlSearch = "select HouseID"
    End If
    sqlSearch = sqlSearch & " from " & TableName & " where 1=1"
    If HouseQuYu <> "" Then
        sqlSearch = sqlSearch & " and HouseQuYu like '%" & HouseQuYu & "%'"
    End If
    If HouseSource = "1" Then
        sqlSearch = sqlSearch & " and HouseSource='个人'"
    Else
        If HouseSource = "2" Then
            sqlSearch = sqlSearch & " and HouseSource='中介'"
        End If
    End If
    If Address <> "" Then sqlSearch = sqlSearch & " and HouseDiZhi like '%" & Address & "%'"
    If HouseHuXing1 <> "" And HouseHuXing2 = "" Then
        sqlSearch = sqlSearch & " and HouseHuXing like '%" & HouseHuXing1 & "房%'"
    End If
    If HouseHuXing1 <> "" And HouseHuXing2 <> "" Then
        sqlSearch = sqlSearch & " and HouseHuXing like '%" & HouseHuXing1 & "房," & HouseHuXing2 & "厅%'"
    End If
    If HouseMianJi <> "" Then
        Select Case HouseMianJi
        Case 1
            Select Case InfoType
            Case 1, 2
                sqlSearch = sqlSearch & " and HouseMianJi<20"
            Case 5, 3, 4
                sqlSearch = sqlSearch & " and HouseMianJi1<20"
            End Select
        Case 2
            Select Case InfoType
            Case 1, 2
                sqlSearch = sqlSearch & " and HouseMianJi between 20 and 40"
            Case 3, 4
                sqlSearch = sqlSearch & " and HouseMianJi1>=20 and HouseMianJi1<=40 or HouseMianJi2>=20 and HouseMianJi2<=40"
            Case 5
                sqlSearch = sqlSearch & " and HouseMianJi1 between 20 and 40"
            End Select
        Case 3
            Select Case InfoType
            Case 1, 2
                sqlSearch = sqlSearch & " and HouseMianJi between 40 and 60"
            Case 3, 4
                sqlSearch = sqlSearch & " and HouseMianJi1>=40 and HouseMianJi1<=60 or HouseMianJi2>=40 and HouseMianJi2<=60"
            Case 5
                sqlSearch = sqlSearch & " and HouseMianJi1 between 40 and 60"
            End Select
        Case 4
            Select Case InfoType
            Case 1, 2
                sqlSearch = sqlSearch & " and HouseMianJi between 60 and 100"
            Case 3, 4
                sqlSearch = sqlSearch & " and HouseMianJi1>=60 and HouseMianJi1<=100 or HouseMianJi2>=60 and HouseMianJi2<=100"
            Case 5
                sqlSearch = sqlSearch & " and HouseMianJi1 between 60 and 100"
            End Select
        Case 5
            Select Case InfoType
            Case 1, 2
                sqlSearch = sqlSearch & " and HouseMianJi between 100 and 200"
            Case 3, 4
                sqlSearch = sqlSearch & " and HouseMianJi1>=100 and HouseMianJi1<=200 or HouseMianJi2>=100 and HouseMianJi2<=200"
            Case 5
                sqlSearch = sqlSearch & " and HouseMianJi1 between 100 and 200"
            End Select
        Case 6
            Select Case InfoType
            Case 1, 2
                sqlSearch = sqlSearch & " and HouseMianJi between 200 and 500"
            Case 3, 4
                sqlSearch = sqlSearch & " and HouseMianJi1>=200 and HouseMianJi1<=500 or HouseMianJi2>=200 and HouseMianJi2<=500"
            Case 5
                sqlSearch = sqlSearch & " and HouseMianJi1 between 200 and 500"
            End Select
        Case 7
            Select Case InfoType
            Case 1, 2
                sqlSearch = sqlSearch & " and HouseMianJi between 500 and 1000"
            Case 3, 4
                sqlSearch = sqlSearch & " and HouseMianJi1>=500 and HouseMianJi1<=1000 or HouseMianJi2>=500 and HouseMianJi2<=1000"
            Case 5
                sqlSearch = sqlSearch & " and HouseMianJi1 between 500 and 1000"
            End Select
        Case 8
            Select Case InfoType
            Case 1, 2
                sqlSearch = sqlSearch & " and HouseMianJi>1000"
            Case 3, 4
                sqlSearch = sqlSearch & " and HouseMianJi1>1000 or HouseMianJi2>1000"
            Case 5, 3, 4
                sqlSearch = sqlSearch & " and HouseMianJi1>1000"
            End Select
        End Select
    End If
    If Price1 <> 0 And Price2 = 0 Then
        Select Case InfoType
        Case 1
            sqlSearch = sqlSearch & " and TotalPrice=" & Price1 & " and HousePriceType='" & PriceUnit & "'"
        Case 2, 5
            sqlSearch = sqlSearch & " and HouseZuJin=" & Price1 & " and HouseZuJinType='" & PriceUnit & "'"
        Case 3
            sqlSearch = sqlSearch & " and HousePriceType='" & PriceUnit & "' and HousePrice1=" & Price1 & " or HousePrice2=" & Price1
        Case 4
            sqlSearch = sqlSearch & " and HouseZuJinType='" & PriceUnit & "' and HouseZuJin1=" & Price1 & " or HouseZuJin2=" & Price1 & ""
        End Select
    End If
    If Price1 = 0 And Price2 <> 0 Then
        Select Case InfoType
        Case 1
            sqlSearch = sqlSearch & " and TotalPrice=" & Price2 & " and HousePriceType='" & PriceUnit & "'"
        Case 2, 5
            sqlSearch = sqlSearch & " and HouseZuJin=" & Price2 & " and HouseZuJinType='" & PriceUnit & "'"
        Case 3
            sqlSearch = sqlSearch & " and HousePriceType='" & PriceUnit & "' and HousePrice1=" & Price2 & " or HousePrice2=" & Price2
        Case 4
            sqlSearch = sqlSearch & " and HouseZuJinType='" & PriceUnit & "' and HouseZuJin1=" & Price2 & " or HouseZuJin2=" & Price2
        End Select
    End If
    If Price1 <> 0 And Price2 <> 0 Then
        Select Case InfoType
        Case 1
            sqlSearch = sqlSearch & " and TotalPrice between " & Price1 & " and " & Price2 & " and HousePriceType='" & PriceUnit & "'"
        Case 2, 5
            sqlSearch = sqlSearch & " and HouseZuJin between " & Price1 & " and " & Price2 & " and HouseZuJinType='" & PriceUnit & "'"
        Case 3
            sqlSearch = sqlSearch & " and HousePriceType='" & PriceUnit & "' and HousePrice1>=" & Price1 & " and  HousePrice1<=" & Price2 & " or  HousePrice2>=" & Price1 & " and  HousePrice2<=" & Price2 & ""
        Case 4
            sqlSearch = sqlSearch & " and HouseZuJinType='" & PriceUnit & "' and HouseZuJin1>=" & Price1 & " and  HouseZuJin1<=" & Price2 & " or  HouseZuJin2>=" & Price1 & " and  HouseZuJin2<=" & Price2 & ""
        End Select
    End If
    Select Case TimeBound
    Case 1
        sqlSearch = sqlSearch & " and DateDiff(" & PE_DatePart_D & ",UpdateTime," & PE_Now & ")<1"
    Case 2
        sqlSearch = sqlSearch & " and DateDiff(" & PE_DatePart_D & ",UpdateTime," & PE_Now & ")<=3"
    Case 3
        sqlSearch = sqlSearch & " and DateDiff(" & PE_DatePart_D & ",UpdateTime," & PE_Now & ")<=7"
    Case 4
        sqlSearch = sqlSearch & " and DateDiff(" & PE_DatePart_D & ",UpdateTime," & PE_Now & ")<=15"
    Case 5
        sqlSearch = sqlSearch & " and DateDiff(" & PE_DatePart_D & ",UpdateTime," & PE_Now & ")<=30"
    Case 6
        sqlSearch = sqlSearch & " and DateDiff(" & PE_DatePart_D & ",UpdateTime," & PE_Now & ")<=60"
    Case 7
        sqlSearch = sqlSearch & " and DateDiff(" & PE_DatePart_D & ",UpdateTime," & PE_Now & ")<=90"
    End Select
    sqlSearch = sqlSearch & " and Deleted=" & PE_False & " and Passed=" & PE_True & " order by HouseID desc"
    Set rsSearch = Server.CreateObject("ADODB.Recordset")
    rsSearch.Open sqlSearch, Conn, 1, 1

    If rsSearch.BOF And rsSearch.EOF Then
        totalPut = 0
        strSearchResult = "<p align='center'><br><br>没有或没有找到任何" & ChannelShortName & "<br><br></p>"
    Else
        totalPut = rsSearch.RecordCount
        If CurrentPage < 1 Then
            CurrentPage = 1
        End If
        If (CurrentPage - 1) * MaxPerPage > totalPut Then
            If (totalPut Mod MaxPerPage) = 0 Then
                CurrentPage = totalPut \ MaxPerPage
            Else
                CurrentPage = totalPut \ MaxPerPage + 1
            End If
        End If
        If CurrentPage > 1 Then
            If (CurrentPage - 1) * MaxPerPage < totalPut Then
                rsSearch.Move (CurrentPage - 1) * MaxPerPage