powereasy.common.rss.asp

个人网站比较简短

        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 = ReplaceText(xml_nohtml(rsArticle("Title")), 2)

                Set Node = SubNode.appendChild(XMLDOM.createElement("link"))
                Node.text = GetArticleUrl(GetClassFild(rsArticle("ClassID"), 4), GetClassFild(rsArticle("ClassID"), 3), rsArticle("UpdateTime"), rsArticle("ArticleID"), GetClassFild(rsArticle("ClassID"), 2), rsArticle("InfoPurview"), rsArticle("InfoPoint"))

                Set Node = SubNode.appendChild(XMLDOM.createElement("description"))
                If rsArticle("InfoPurview") = 0 And rsArticle("InfoPoint") = 0 And GetClassFild(rsArticle("ClassID"), 2) = 0 And rsArticle("Receive") = False Then
                    Node.text = ReplaceText(Left(xml_nohtml(rsArticle("Content")), 200), 1) & "..."
                Else
                    Node.text = strNoSee
                End If
            
                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 ShowSoftRss(ByVal iHot, ByVal iElite, ByVal iAuthorName, iHitsOfHot)
    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 BlogID > 0 Then tempUrl = tempUrl & "&BlogID=" & BlogID
    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.SoftID,A.ChannelID,A.ClassID,A.BlogID,A.SoftName,A.SoftVersion,A.Author,A.Hits,A.UpdateTime,A.Elite,A.SoftIntro,A.InfoPoint,A.Status,A.Deleted,I.SpecialID from PE_Soft A right join (PE_InfoS I left join PE_Special SP on I.SpecialID=SP.SpecialID) on A.SoftID=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 SoftID,ChannelID,ClassID,BlogID,SoftName,SoftVersion,Author,Hits,UpdateTime,Elite,SoftIntro,InfoPoint,Status,Deleted from PE_Soft 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("SoftName") & rsArticle("SoftVersion"))

                Set Node = SubNode.appendChild(XMLDOM.createElement("link"))
                Node.text = GetSoftUrl(GetClassFild(rsArticle("ClassID"), 4), GetClassFild(rsArticle("ClassID"), 3), rsArticle("UpdateTime"), rsArticle("SoftID"))
            
                Set Node = SubNode.appendChild(XMLDOM.createElement("description"))
                Node.text = Left(xml_nohtml(rsArticle("SoftIntro")), 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 ShowPhotoRss(ByVal iHot, ByVal iElite, ByVal iAuthorName, iHitsOfHot)
    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 BlogID > 0 Then tempUrl = tempUrl & "&BlogID=" & BlogID
    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"))