powereasy.common.rss.asp

个人网站比较简短

    SubNode.text = SiteName
    Set SubNode = Node.appendChild(XMLDOM.createElement("generator"))
    SubNode.text = SiteName
    Set SubNode = Node.appendChild(XMLDOM.createElement("webMaster"))
    SubNode.text = WebmasterName
    
    Set tempNode = Node
    
    Set SubNode = Node.appendChild(XMLDOM.createElement("image"))
    Set Node = SubNode.appendChild(XMLDOM.createElement("title"))
    Node.text = SiteName
    Set Node = SubNode.appendChild(XMLDOM.createElement("url"))
    Node.text = SiteLogoUrl
    Set Node = SubNode.appendChild(XMLDOM.createElement("link"))
    Node.text = SiteUrl
    If SpecialID > 0 Then
        sqlArticle = "select top 100 A.PhotoID,A.ChannelID,A.ClassID,A.BlogID,A.PhotoName,A.Author,A.Hits,A.UpdateTime,A.Elite,A.PhotoIntro,A.InfoPurview,A.InfoPoint,A.Status,A.Deleted,I.SpecialID from PE_Photo A right join (PE_InfoS I left join PE_Special SP on I.SpecialID=SP.SpecialID) on A.PhotoID=I.ItemID Where I.SpecialID=" & SpecialID & " and A.ChannelID=" & ChannelID
        If ClassID > 0 Then sqlArticle = sqlArticle & " and A.ClassID=" & ClassID
        If BlogID > 0 Then sqlArticle = sqlArticle & " and A.BlogID=" & BlogID
        If iAuthorName <> "none" Then sqlArticle = sqlArticle & " and A.Author='" & iAuthorName & "'"
        sqlArticle = sqlArticle & " and A.Status=3 and A.Deleted=" & PE_False
        If iHot = 1 Then
            sqlArticle = sqlArticle & " and A.Hits>" & iHitsOfHot & " order by A.Hits " & PE_OrderType & ",A.UpdateTime Desc"
        ElseIf iElite = 1 Then
            sqlArticle = sqlArticle & " and A.Elite=" & PE_True & " order by A.UpdateTime Desc"
        Else
            sqlArticle = sqlArticle & " order by A.UpdateTime Desc"
        End If
    Else
        sqlArticle = "select top 100 PhotoID,ChannelID,ClassID,BlogID,PhotoName,Author,Hits,UpdateTime,Elite,PhotoIntro,InfoPurview,InfoPoint,Status,Deleted from PE_Photo Where ChannelID=" & ChannelID
        If ClassID > 0 Then sqlArticle = sqlArticle & " and ClassID=" & ClassID
        If BlogID > 0 Then sqlArticle = sqlArticle & " and BlogID=" & BlogID
        If iAuthorName <> "none" Then sqlArticle = sqlArticle & " and Author='" & iAuthorName & "'"
        sqlArticle = sqlArticle & " and Status=3 and Deleted=" & PE_False
        If iHot = 1 Then
            sqlArticle = sqlArticle & " and Hits>" & iHitsOfHot & " order by Hits " & PE_OrderType & ",UpdateTime Desc"
        ElseIf iElite = 1 Then
            sqlArticle = sqlArticle & " and Elite=" & PE_True & " order by UpdateTime Desc"
        Else
            sqlArticle = sqlArticle & " order by UpdateTime Desc"
        End If
    End If

    Set rsArticle = Conn.Execute(sqlArticle)
    If Not (rsArticle.BOF And rsArticle.EOF) Then
        OutNum = 0
        Do While Not rsArticle.EOF
            If GetClassFild(rsArticle("ClassID"), 2) < 2 Then
                Set Node = tempNode
                Set SubNode = Node.appendChild(XMLDOM.createElement("item"))
            
                Set Node = SubNode.appendChild(XMLDOM.createElement("title"))
                Node.text = xml_nohtml(rsArticle("PhotoName"))

                Set Node = SubNode.appendChild(XMLDOM.createElement("link"))
                Node.text = GetPhotoUrl(GetClassFild(rsArticle("ClassID"), 4), GetClassFild(rsArticle("ClassID"), 3), rsArticle("UpdateTime"), rsArticle("PhotoID"), GetClassFild(rsArticle("ClassID"), 2), rsArticle("InfoPurview"), rsArticle("InfoPoint"))
            
                Set Node = SubNode.appendChild(XMLDOM.createElement("description"))
                Node.text = Left(xml_nohtml(rsArticle("PhotoIntro")), 200)
            
                Set Node = SubNode.appendChild(XMLDOM.createElement("author"))
                If Trim(rsArticle("Author") & "") = "" Then
                    Node.text = strDefAuthor
                Else
                    Node.text = xml_nohtml(rsArticle("Author"))
                End If
            
                Set Node = SubNode.appendChild(XMLDOM.createElement("category"))
                Node.text = GetClassFild(rsArticle("ClassID"), 1)
            
                Set Node = SubNode.appendChild(XMLDOM.createElement("pubDate"))
                Node.text = rsArticle("UpdateTime")
                If OutNum > 19 Then
                    Exit Do
                Else
                    OutNum = OutNum + 1
                End If
            End If
            rsArticle.MoveNext
        Loop
    End If
    rsArticle.Close
    Set rsArticle = Nothing
End Sub

Sub ShowProductRss(ByVal iHot, ByVal iElite, ByVal iAuthorName)
    Dim sqlArticle, rsArticle, tempNode, tempUrl
    
    If IsNull(ChannelID) Or ChannelID = 0 Then
        Exit Sub
    End If

    Call GetChannel(ChannelID)

    If RssCodeType = True Then
        XMLDOM.appendChild (XMLDOM.createProcessingInstruction("xml", "version=""1.0"" encoding=""gb2312"""))
    Else
        XMLDOM.appendChild (XMLDOM.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8"""))
    End If
    XMLDOM.appendChild (XMLDOM.createElement("rss"))
    XMLDOM.documentElement.Attributes.setNamedItem(XMLDOM.createNode(2, "version", "")).text = "2.0"
    
    Set Node = XMLDOM.createNode(1, "channel", "")
    XMLDOM.documentElement.appendChild (Node)
        
    Set SubNode = Node.appendChild(XMLDOM.createElement("title"))
    If ClassID > 0 Then
        SubNode.text = SiteName & " -- " & ChannelName & XmlText("Rss", "Gx1", " -- 栏目更新")
    ElseIf SpecialID > 0 Then
        SubNode.text = SiteName & " -- " & ChannelName & XmlText("Rss", "Gx1", " -- 专题更新")
    Else
        SubNode.text = SiteName & " -- " & ChannelName
    End If
    Set SubNode = Node.appendChild(XMLDOM.createElement("description"))
    SubNode.text = SiteName
    Set SubNode = Node.appendChild(XMLDOM.createElement("link"))
    SubNode.text = SiteUrl
    Set SubNode = Node.appendChild(XMLDOM.createElement("Currentlink"))
    tempUrl = SiteUrl & "rss.asp?ChannelID=" & ChannelID
    If ClassID <> 0 Then tempUrl = tempUrl & "&ClassID=" & ClassID
    If SpecialID <> 0 Then tempUrl = tempUrl & "&SpecialID=" & SpecialID
    If iAuthorName <> "none" Then tempUrl = tempUrl & "&AuthorName=" & iAuthorName
    If iHot = 1 Then
        tempUrl = tempUrl & "&Hot=" & iHot
    ElseIf iElite = 1 Then
        tempUrl = tempUrl & "&Elite=" & iElite
    End If
    SubNode.text = tempUrl
    Set SubNode = Node.appendChild(XMLDOM.createElement("language"))
    SubNode.text = "zh-cn"
    Set SubNode = Node.appendChild(XMLDOM.createElement("docs"))
    SubNode.text = SiteName
    Set SubNode = Node.appendChild(XMLDOM.createElement("generator"))
    SubNode.text = SiteName
    Set SubNode = Node.appendChild(XMLDOM.createElement("webMaster"))
    SubNode.text = WebmasterName
    
    Set tempNode = Node
    
    Set SubNode = Node.appendChild(XMLDOM.createElement("image"))
    Set Node = SubNode.appendChild(XMLDOM.createElement("title"))
    Node.text = SiteName
    Set Node = SubNode.appendChild(XMLDOM.createElement("url"))
    Node.text = SiteLogoUrl
    Set Node = SubNode.appendChild(XMLDOM.createElement("link"))
    Node.text = SiteUrl
    If SpecialID <> 0 Then
        sqlArticle = "select top 100 A.ProductID,A.ChannelID,A.ClassID,A.ProductName,A.ProducerName,A.Hits,A.UpdateTime,A.IsHot,A.IsElite,A.ProductIntro,A.Stocks,A.EnableSale,A.Deleted,I.SpecialID from PE_Product A right join (PE_InfoS I left join PE_Special SP on I.SpecialID=SP.SpecialID) on A.ProductID=I.ItemID Where I.SpecialID=" & SpecialID & " and A.ChannelID=" & ChannelID
        If ClassID <> 0 Then sqlArticle = sqlArticle & " and A.ClassID=" & ClassID
        If iAuthorName <> "none" Then sqlArticle = sqlArticle & " and A.ProducerName='" & iAuthorName & "'"
        sqlArticle = sqlArticle & " and A.Deleted=" & PE_False & " and A.EnableSale=" & PE_True & " and A.Stocks>0"
        If iHot = 1 Then
            sqlArticle = sqlArticle & " and A.IsHot=" & PE_True & "order by A.UpdateTime Desc"
        ElseIf iElite = 1 Then
            sqlArticle = sqlArticle & " and A.IsElite=" & PE_True & "order by A.UpdateTime Desc"
        Else
            sqlArticle = sqlArticle & " order by A.UpdateTime Desc"
        End If
    Else
        sqlArticle = "select top 100 ProductID,ChannelID,ClassID,ProductName,ProducerName,Hits,UpdateTime,IsHot,IsElite,ProductIntro,Stocks,EnableSale,Deleted from PE_Product Where ChannelID=" & ChannelID
        If ClassID <> 0 Then sqlArticle = sqlArticle & " and ClassID=" & ClassID
        If iAuthorName <> "none" Then sqlArticle = sqlArticle & " and ProducerName='" & iAuthorName & "'"
        sqlArticle = sqlArticle & " and Deleted=" & PE_False & " and EnableSale=" & PE_True & " and Stocks>0"
        If iHot = 1 Then
            sqlArticle = sqlArticle & " and IsHot=" & PE_True & " order by UpdateTime Desc"
        ElseIf iElite = 1 Then
            sqlArticle = sqlArticle & " and IsElite=" & PE_True & " order by UpdateTime Desc"
        Else
            sqlArticle = sqlArticle & " order by UpdateTime Desc"
        End If
    End If
    Set rsArticle = Conn.Execute(sqlArticle)
    If Not (rsArticle.BOF And rsArticle.EOF) Then
        OutNum = 0
        Do While Not rsArticle.EOF
            Set Node = tempNode
            Set SubNode = Node.appendChild(XMLDOM.createElement("item"))
            
            Set Node = SubNode.appendChild(XMLDOM.createElement("title"))
            Node.text = xml_nohtml(rsArticle("ProductName"))

            Set Node = SubNode.appendChild(XMLDOM.createElement("link"))
            Node.text = GetProductUrl(GetClassFild(rsArticle("ClassID"), 4), GetClassFild(rsArticle("ClassID"), 3), rsArticle("UpdateTime"), rsArticle("ProductID"))
            
            Set Node = SubNode.appendChild(XMLDOM.createElement("description"))
            Node.text = Left(xml_nohtml(rsArticle("ProductIntro")), 200)
            
            Set Node = SubNode.appendChild(XMLDOM.createElement("author"))
            If Trim(rsArticle("ProducerName") & "") = "" Then
                Node.text = strDefAuthor
            Else
                Node.text = xml_nohtml(rsArticle("ProducerName"))
            End If
            
            Set Node = SubNode.appendChild(XMLDOM.createElement("category"))
            Node.text = GetClassFild(rsArticle("ClassID"), 1)
            
            Set Node = SubNode.appendChild(XMLDOM.createElement("pubDate"))
            Node.text = rsArticle("UpdateTime")
            If OutNum > 19 Then
                Exit Do
            Else
                OutNum = OutNum + 1
            End If
            rsArticle.MoveNext
        Loop
    End If
    rsArticle.Close
    Set rsArticle = Nothing
End Sub

Sub ShowGuestRss()
    Dim rsArticle, tempNode, rsKind
    If RssCodeType = True Then
        XMLDOM.appendChild (XMLDOM.createProcessingInstruction("xml", "version=""1.0"" encoding=""gb2312"""))
    Else
        XMLDOM.appendChild (XMLDOM.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8"""))
    End If
    XMLDOM.appendChild (XMLDOM.createElement("rss"))
    XMLDOM.documentElement.Attributes.setNamedItem(XMLDOM.createNode(2, "version", "")).text = "2.0"
    
    Set Node = XMLDOM.createNode(1, "channel", "")
    XMLDOM.documentElement.appendChild (Node)
        
    Set SubNode = Node.appendChild(XMLDOM.createElement("title"))
    SubNode.text = SiteName & " -- " & ChannelName
    Set SubNode = Node.appendChild(XMLDOM.createElement("description"))
    SubNode.text = SiteName
    Set SubNode = Node.appendChild(XMLDOM.createElement("link"))
    SubNode.text = SiteUrl
    Set SubNode = Node.appendChild(XMLDOM.createElement("Currentlink"))
    SubNode.text = SiteUrl & "rss.asp?ChannelID=4"