powereasy.house.asp

个人网站比较简短

            Else
                CurrentPage = 1
            End If
        End If
        HouseNum = 1
        arrHouseID = ""
        Do While Not rsSearch.EOF
            If arrHouseID = "" Then
                arrHouseID = rsSearch(0)
            Else
                arrHouseID = arrHouseID & "," & rsSearch(0)
            End If
            HouseNum = HouseNum + 1
            If HouseNum >= MaxPerPage Then Exit Do
            rsSearch.MoveNext
        Loop
    End If
    rsSearch.Close
    
    If arrHouseID = "" Then
        GetSearchResult = "<p align='center'><br><br>没有或没有找到任何" & ChannelShortName & "<br><br></p>"
        Set rsSearch = Nothing
        Exit Function
    End If
    Dim CssName
    sqlSearch = "select H.HouseID,H.HouseDiZhi,H.HouseHuXing,H.UpdateTime"
    Select Case InfoType
    Case 1
        sqlSearch = sqlSearch & ",H.HouseMianJi,H.TotalPrice,H.HousePriceType"
    Case 2
        sqlSearch = sqlSearch & ",H.HouseMianJi,H.HouseZuJin,H.HouseZuJinType"
    Case 3
        sqlSearch = sqlSearch & ",H.HouseMianJi1,H.HouseMianJi2,H.HousePriceType,H.HousePrice1,H.HousePrice2"
    Case 4
        sqlSearch = sqlSearch & ",H.HouseMianJi1,H.HouseMianJi2,H.HouseZuJinType,H.HouseZuJin1,H.HouseZuJin2,H.Deleted"
    Case 5
        sqlSearch = sqlSearch & ",H.HouseZuJin,H.HouseMianJi,H.HouseZuJinType,H.HouseMianJi1"
    Case Else
        sqlSearch = sqlSearch & ",H.HouseMianJi,H.TotalPrice,H.HousePriceType"
    End Select
    sqlSearch = sqlSearch & ",C.ClassID,C.ClassName,C.OpenType,C.ClassDir,C.ItemOpenType from " & TableName & " H left join PE_HouseConfig C on H.ClassID=C.ClassID where HouseID in (" & arrHouseID & ") order by HouseID desc"
    rsSearch.Open sqlSearch, Conn, 1, 1
    HouseNum = 1
    If rsSearch("ItemOpenType") = 0 Then
        OpenType = "_Self"
    Else
        OpenType = "_Blank"
    End If
    CssName = "houselistbg"
    strSearchResult = "<table width=100%  class='housetable'><tr ><td align='center' class='houseth'>地址</td><td align='center' class='houseth'>户型</td><td align='center' class='houseth'>"
    If rsSearch("ClassID") = 1 Or rsSearch("ClassID") = 3 Then
        strSearchResult = strSearchResult & "价格"
    Else
        strSearchResult = strSearchResult & "租金"
    End If
    strSearchResult = strSearchResult & "</td><td align='center' class='houseth'>面积</td><td align='center' class='houseth'>发布日期</td></tr>"
    Do While Not rsSearch.EOF
        strSearchResult = strSearchResult & "<tr>"
        strSearchResult = strSearchResult & "<td align='center' class='" & CssName & "'><a href='ShowHouse.asp?ClassID=" & rsSearch("ClassID") & "&HouseID=" & rsSearch("HouseID") & "' target=" & OpenType & ">" & rsSearch("HouseDiZhi") & "</a></td>"
        strSearchResult = strSearchResult & "<td align='center' class='" & CssName & "'><a href='ShowHouse.asp?ClassID=" & rsSearch("ClassID") & "&HouseID=" & rsSearch("HouseID") & "' target=" & OpenType & ">" & Replace(rsSearch("HouseHuXing"), ",", "") & "</a></td>"
        Select Case rsSearch("ClassID")
        Case 1
            strSearchResult = strSearchResult & "<td align='center' class='" & CssName & "'>" & rsSearch("TotalPrice") & "" & rsSearch("HousePriceType") & "</td>"
        Case 2
            strSearchResult = strSearchResult & "<td align='center' class='" & CssName & "'>"
            If rsSearch("HouseZuJinType") = "价格面议" Then
                strSearchResult = strSearchResult & rsSearch("HouseZuJinType") & "</td>"
            Else
                strSearchResult = strSearchResult & rsSearch("HouseZuJin") & "" & rsSearch("HouseZuJinType") & "</td>"
            End If
        Case 3
            strSearchResult = strSearchResult & "<td align='center' class='" & CssName & "'>" & rsSearch("HousePrice1") & "-" & rsSearch("HousePrice2") & "" & rsSearch("HousePriceType") & "</td>"
        Case 4
            strSearchResult = strSearchResult & "<td align='center' class='" & CssName & "'>"
            If rsSearch("HouseZuJinType") = "价格面议" Then
                strSearchResult = strSearchResult & rsSearch("HouseZuJinType") & "</td>"
            Else
                strSearchResult = strSearchResult & rsSearch("HouseZuJin1") & "-" & rsSearch("HouseZuJin2") & "" & rsSearch("HouseZuJinType") & "</td>"
            End If
        Case 5
            strSearchResult = strSearchResult & "<td align='center' class='" & CssName & "'>"
            If rsSearch("HouseZuJinType") = "价格面议" Then
                strSearchResult = strSearchResult & rsSearch("HouseZuJinType") & "</td>"
            Else
                strSearchResult = strSearchResult & rsSearch("HouseZuJin") & "" & rsSearch("HouseZuJinType") & "</td>"
            End If
        End Select
        Select Case rsSearch("ClassID")
        Case 1
            strSearchResult = strSearchResult & "<td align='center' class='" & CssName & "'>" & rsSearch("HouseMianJi") & "㎡</td>"
        Case 2
            strSearchResult = strSearchResult & "<td align='center' class='" & CssName & "'>" & rsSearch("HouseMianJi") & "㎡</td>"
        Case 3
            strSearchResult = strSearchResult & "<td align='center' class='" & CssName & "'>" & rsSearch("HouseMianJi1") & "-" & rsSearch("HouseMianJi2") & "㎡</td>"
        Case 4
            strSearchResult = strSearchResult & "<td align='center' class='" & CssName & "'>" & rsSearch("HouseMianJi1") & "-" & rsSearch("HouseMianJi2") & "㎡</td>"
        Case 5
            strSearchResult = strSearchResult & "<td align='center' class='" & CssName & "'>" & rsSearch("HouseMianJi1") & "㎡</td>"
        End Select
        strSearchResult = strSearchResult & "<td align='center' class='" & CssName & "'>" & FormatDateTime(rsSearch("UpdateTime"), 2) & "</td>"
        strSearchResult = strSearchResult & "</tr>"
        HouseNum = HouseNum + 1
        If HouseNum Mod 2 = 0 Then
            CssName = "houselistbg2"
        Else
            CssName = "houselistbg"
        End If
        rsSearch.MoveNext
    Loop
    strSearchResult = strSearchResult & "</table>"
    rsSearch.Close
    Set rsSearch = Nothing
    strFileName = "Search.asp?InfoType=" & InfoType & "&HouseQuYu=" & HouseQuYu & "&HouseSource=" & HouseSource & "&HouseHuXing1=" & HouseHuXing1 & "&HouseHuXing2=" & HouseHuXing2 & "&HouseMianJi=" & HouseMianJi & "&Price1=" & Price1 & "Price2= " & Price2 & "& Address=" & Address & "&TimeBound=" & TimeBound
    GetSearchResult = strSearchResult
End Function

Function GetResultTitle()
    Dim strTitle
    If Keyword = "" Then
        strTitle = "所有" & ChannelShortName
    Else
        Select Case strField
        Case "Title"
            strTitle = "标题含有 <font color=red>" & Keyword & "</font> 的" & ChannelShortName & ""
        Case "Content"
            strTitle = "内容含有 <font color=red>" & Keyword & "</font> 的" & ChannelShortName & ""
        Case "Author"
            strTitle = "作者姓名中含有 <font color=red>" & Keyword & "</font> 的" & ChannelShortName & ""
        Case "Inputer"
            strTitle = "<font color=red>" & Keyword & "</font> 录入的" & ChannelShortName & ""
        Case Else
            strTitle = "标题含有 <font color=red>" & Keyword & "</font> 的" & ChannelShortName & ""
        End Select
    End If
    GetResultTitle = strTitle
End Function

Private Sub ReplaceCommon()
    '以下这段代码放在Call ReplaceCommonLabel的前面，是用于在自定义动态函数标签中可以解析个别标签
    '{$InstallDir}{$ChannelDir}的替换一定要放在单个{$ChannelDir}的前面
    strHtml = PE_Replace(strHtml, "{$InstallDir}{$ChannelDir}", ChannelUrl)
    strHtml = PE_Replace(strHtml, "{$ChannelID}", ChannelID)
    strHtml = PE_Replace(strHtml, "{$ChannelDir}", ChannelDir)
    strHtml = PE_Replace(strHtml, "{$ChannelUrl}", ChannelUrl)

    Call ReplaceCommonLabel
    
    strHtml = PE_Replace(strHtml, "{$InstallDir}{$ChannelDir}", ChannelUrl)
    strHtml = PE_Replace(strHtml, "{$ChannelID}", ChannelID)
    strHtml = PE_Replace(strHtml, "{$ChannelDir}", ChannelDir)
    strHtml = PE_Replace(strHtml, "{$ChannelName}", ChannelName)
    strHtml = PE_Replace(strHtml, "{$ChannelShortName}", ChannelShortName)
    strHtml = PE_Replace(strHtml, "{$UploadDir}", UploadDir)
    strHtml = PE_Replace(strHtml, "{$Meta_Keywords_Channel}", Meta_Keywords_Channel)
    strHtml = PE_Replace(strHtml, "{$Meta_Description_Channel}", Meta_Description_Channel)
    strHtml = PE_Replace(strHtml, "{$MenuJS}", GetMenuJS(ChannelDir, ShowClassTreeGuide))
    strHtml = PE_Replace(strHtml, "{$Skin_CSS}", GetSkin_CSS(SkinID))
    '替换底部栏目导航标签
    
End Sub

Function GetHousePic(HousePicWidth, HousePicHeight, PicUrl)
    Dim strHousePic
    If PicUrl = "" Then
        strHousePic = "暂无图片"
    Else
        strHousePic = "<a href='" & PicUrl & "' title='" & SiteName & "' target='_blank'>"
        strHousePic = strHousePic & "<img src='" & PicUrl & "'"
        If HousePicWidth > 0 Then strHousePic = strHousePic & " width='" & HousePicWidth & "'"
        If HousePicHeight > 0 Then strHousePic = strHousePic & " height='" & HousePicHeight & "'"
        strHousePic = strHousePic & " border='0'>"
        strHousePic = strHousePic & "</a>"
    End If
    GetHousePic = strHousePic
End Function

Sub GetHTML_Index()
    Dim strTemp, strTopUser, strFriendSite, arrTemp, strAnnounce, strPopAnnouce, iCols, iClassID
    Dim HouseList_ChildClass, HouseList_ChildClass2
    ClassID = 0

    strHtml = GetTemplate(ChannelID, 1, Template_Index)
    Call ReplaceCommonLabel

    strHtml = Replace(strHtml, "{$PageTitle}", strPageTitle)
    strHtml = Replace(strHtml, "{$ShowPath}", strNavPath)
    
    strHtml = Replace(strHtml, "{$ShowChannelCount}", GetChannelCount())
    
    strHtml = GetListFromTemplate(strHtml)
    
    If UseCreateHTML = 0 Then
        If InStr(strHtml, "{$ShowPage}") > 0 Then strHtml = Replace(strHtml, "{$ShowPage}", ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, ChannelItemUnit & ChannelShortName, False))
        If InStr(strHtml, "{$ShowPage_en}") > 0 Then strHtml = Replace(strHtml, "{$ShowPage_en}", ShowPage_en(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, ChannelItemUnit & ChannelShortName, False))
    Else
        If InStr(strHtml, "{$ShowPage}") > 0 Then strHtml = Replace(strHtml, "{$ShowPage}", ShowPage_Html(ChannelUrl & "/", 0, FileExt_Index, strFileName, totalPut, MaxPerPage, CurrentPage, True, True, ChannelItemUnit & ChannelShortName))
        If InStr(strHtml, "{$ShowPage_en}") > 0 Then strHtml = Replace(strHtml, "{$ShowPage_en}", ShowPage_en_Html(ChannelUrl & "/", 0, FileExt_Index, strFileName, totalPut, MaxPerPage, CurrentPage, True, True, ChannelItemUnit & ChannelShortName))
    End If
    
End Sub

Sub GetHtml_Class()
    Dim strTemp, iCols, iClassID

    strHtml = arrTemplate(1)
    strHtml = PE_Replace(strHtml, "{$ClassID}", ClassID)
    Call ReplaceCommonLabel
    strHtml = Replace(strHtml, "{$PageTitle}", strPageTitle)
    strHtml = Replace(strHtml, "{$ShowPath}", ShowPath())
    
    strHtml = PE_Replace(strHtml, "{$ClassName}", ClassName)
    strHtml = PE_Replace(strHtml, "{$ParentDir}", ParentDir)
    strHtml = PE_Replace(strHtml, "{$ClassDir}", ClassDir)
    strHtml = PE_Replace(strHtml, "{$Readme}", ReadMe)
    strHtml = PE_Replace(strHtml, "{$Meta_Keywords_Class}", Meta_Keywords_Class)
    strHtml = PE_Replace(strHtml, "{$Meta_Description_Class}", Meta_Description_Class)
    strHtml = Replace(strHtml, "{$ClassUrl}", GetClassUrl(ParentDir, ClassDir, ClassID, ClassPurview))
    strHtml = Replace(strHtml, "{$ClassListUrl}", GetClass_1Url(ParentDir, ClassDir, ClassID, ClassPurview))
    strHtml = PE_Replace(strHtml, "{$GetAreaList}", GetAreaList())

    Dim HouseList_CurrentClass, HouseList_CurrentClass2, HouseList_ChildClass, HouseList_ChildClass2

    strHtml = GetListFromTemplate(strHtml)
    Dim strPath
    strPath = ChannelUrl & GetListPath(StructureType, ListFileType, ParentDir, ClassDir)
    
    If InStr(strHtml, "{$ShowPage}") > 0 Then strHtml = Replace(strHtml, "{$ShowPage}", ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, ChannelItemUnit & ChannelShortName, False))
    If InStr(strHtml, "{$ShowPage_en}") > 0 Then strHtml = Replace(strHtml, "{$ShowPage_en}", ShowPage_en(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, ChannelItemUnit & ChannelShortName, False))
End Sub

Public Sub GetHtml_List()
    strHtml = PE_Replace(strHtml, "{$ClassID}", ClassID)
    Call ReplaceCommonLabel
    strHtml = Replace(strHtml, "{$PageTitle}", strPageTitle)
    strHtml = Replace(strHtml, "{$ShowPath}", ShowPath())
    strHtml = PE_Replace(strHtml, "{$ClassName}", ClassName)
    strHtml = PE_Replace(strHtml, "{$ParentDir}", ParentDir)
    strHtml = PE_Replace(strHtml, "{$ClassDir}", ClassDir)
    strHtml = PE_Replace(strHtml, "{$Readme}", ReadMe)
    'strHTML = PE_Replace(strHTML, "{$SpecialName}", SpecialName)
    strHtml = GetListFromTemplate(strHtml)
    
    If InStr(strHtml, "{$ShowPage}") > 0 Then strHtml = Replace(strHtml, "{$ShowPage}", ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, ChannelItemUnit & ChannelShortName, False))
    If InStr(strHtml, "{$ShowPage_en}") > 0 Then strHtml = Replace(strHtml, "{$ShowPage_en}", ShowPage_en(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, ChannelItemUnit & ChannelShortName, False))
    
End Sub

Public Sub GetHtml_Search()
    Dim SearchChannelID
    SearchChannelID = ChannelID
    If ChannelID > 0 Then
        strHtml = GetTemplate(ChannelID, 5, 0)
    Else
        strHtml = GetTemplate(ChannelID, 5, 0)
        ChannelID = PE_CLng(Conn.Execute("select min(ChannelID) from PE_Channel where ModuleType=7 and Disabled=" & PE_False & "")(0))
        CurrentChannelID = ChannelID
        Call GetChannel(ChannelID)
    End If

    Call ReplaceCommonLabel
    strHtml = Replace(strHtml, "{$Keyword}", Keyword)
    strHtml = Replace(strHtml, "{$PageTitle}", strPageTitle)
    strHtml = Replace(strHtml, "{$ShowPath}", ShowPath())
    Call GetClass
    strHtml = PE_Replace(strHtml, "{$ClassID}", ClassID)
    strHtml = PE_Replace(strHtml, "{$ClassName}", ClassName)
    strHtml = PE_Replace(strHtml, "{$ParentDir}", ParentDir)
    strHtml = PE_Replace(strHtml, "{$ClassDir}", ClassDir)

    MaxPerPage = 10
    strHtml = Replace(strHtml, "{$ResultTitle}", GetResultTitle())
    strHtml = Replace(strHtml, "{$SearchResult}", GetSearchResult())

    'strFileName = "Search.asp?InfoType="&InfoType&"&Field=" & strField & "&Keyword=" & Keyword & "&ClassID=" & ClassID
    If InStr(strHtml, "{$ShowPage}") > 0 Then strHtml = Replace(strHtml, "{$ShowPage}", ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, ChannelItemUnit & ChannelShortName, False))
    If InStr(strHtml, "{$ShowPage_en}") > 0 Then strHtml = Replace(strHtml, "{$ShowPage_en}", ShowPage_en(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, ChannelItemUnit & ChannelShortName, False))
    strHtml = GetListFromTemplate(strHtml)
End Sub

Function XmlText_Class(ByVal iSmallNode, ByVal DefChar)
    XmlText_Class = XmlText("House", iSmallNode, DefChar)
End Function

Function R_XmlText_Class(ByVal iSmallNode, ByVal DefChar)
    R_XmlText_Class = Replace(XmlText("House", iSmallNode, DefChar), "{$ChannelShortName}", ChannelShortName)
End Function

End Class
%>