powereasy.common.rss.asp

个人网站比较简短

    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
    Set rsArticle = Conn.Execute("select top 20 GuestID,KindID,TopicID,GuestTitle,GuestName,GuestContent,GuestDatetime,GuestIsPassed from PE_GuestBook Where GuestIsPassed=" & PE_True & " and GuestIsPrivate=" & PE_False & " order by GuestDatetime Desc")
    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("GuestTitle"))

            Set Node = SubNode.appendChild(XMLDOM.createElement("link"))
            Node.text = SiteUrl & "GuestBook/Guest_Reply.asp?TopicID=" & rsArticle("TopicID")
                        
            Set Node = SubNode.appendChild(XMLDOM.createElement("description"))
            Node.text = Left(xml_nohtml(rsArticle("GuestContent")), 200)
            
            Set Node = SubNode.appendChild(XMLDOM.createElement("author"))
            Node.text = xml_nohtml(rsArticle("GuestName"))
            
            Set Node = SubNode.appendChild(XMLDOM.createElement("category"))
            If rsArticle("KindID") = 0 Then
                Node.text = "未分类"
            Else
                Set rsKind = Conn.Execute("select top 1 KindID,KindName from PE_GuestKind Where KindID=" & rsArticle("KindID"))
                If Not (rsArticle.BOF And rsArticle.EOF) Then
                    Node.text = rsKind("KindName")
                Else
                    Node.text = "未分类"
                End If
                rsKind.Close
            End If
            
            Set Node = SubNode.appendChild(XMLDOM.createElement("pubDate"))
            Node.text = rsArticle("GuestDatetime")
            If OutNum > 19 Then
                Exit Do
            Else
                OutNum = OutNum + 1
            End If
            rsArticle.MoveNext
        Loop
    End If
    rsArticle.Close
    Set rsArticle = Nothing
    Set rsKind = Nothing
End Sub


'*************************************************
'开始处理其他RSS输出
'*************************************************
Sub ShowOtherRss(iType)
    Dim rsRss, tempNode, sqlRss, temptxt
    Select Case iType
    Case "diary"
        temptxt = "日志"
    Case "music"
        temptxt = "音乐"
    Case "book"
        temptxt = "图书"
    Case "photo"
        temptxt = "图片"
    Case "link"
        temptxt = "连接"
    End Select
    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 & " -- 个人" & temptxt
    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"))
    Select Case iType
    Case "diary"
        If BlogID > 0 Then
            SubNode.text = SiteUrl & "rss.asp?Action=diary&BlogID=" & BlogID
        Else
            SubNode.text = SiteUrl & "rss.asp?Action=diary"
        End If
    Case "music"
        If BlogID > 0 Then
            SubNode.text = SiteUrl & "rss.asp?Action=music&BlogID=" & BlogID
        Else
            SubNode.text = SiteUrl & "rss.asp?Action=music"
        End If
    Case "book"
        If BlogID > 0 Then
            SubNode.text = SiteUrl & "rss.asp?Action=book&BlogID=" & BlogID
        Else
            SubNode.text = SiteUrl & "rss.asp?Action=book"
        End If
    Case "photo"
        If BlogID > 0 Then
            SubNode.text = SiteUrl & "rss.asp?Action=photo&BlogID=" & BlogID
        Else
            SubNode.text = SiteUrl & "rss.asp?Action=photo"
        End If
    Case "link"
        If BlogID > 0 Then
            SubNode.text = SiteUrl & "rss.asp?Action=link&BlogID=" & BlogID
        Else
            SubNode.text = SiteUrl & "rss.asp?Action=link"
        End If
    End Select
    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
    Select Case iType
    Case "diary"
        sqlRss = "select top 30 A.ID,A.UserID,A.Title,A.Content,A.Datetime,C.UserName from PE_SpaceDiary A inner join PE_User C on A.UserID=C.UserID"
        If BlogID > 0 Then sqlRss = sqlRss & " Where A.BlogID=" & BlogID & " order by A.ID desc"
    Case "music"
        sqlRss = "select top 30 A.ID,A.UserID,A.Title,A.Content,A.Datetime,C.UserName from PE_SpaceMusic A inner join PE_User C on A.UserID=C.UserID"
        If BlogID > 0 Then sqlRss = sqlRss & " Where A.BlogID=" & BlogID & " order by A.ID desc"
    Case "book"
        sqlRss = "select top 30 A.ID,A.UserID,A.Title,A.Content,A.Datetime,C.UserName from PE_SpaceBook A inner join PE_User C on A.UserID=C.UserID"
        If BlogID > 0 Then sqlRss = sqlRss & " Where A.BlogID=" & BlogID & " order by A.ID desc"
    Case "photo"
        sqlRss = "select top 30 A.ID,A.UserID,A.Title,A.Content,A.Datetime,C.UserName from PE_SpacePhoto A inner join PE_User C on A.UserID=C.UserID"
        If BlogID > 0 Then sqlRss = sqlRss & " Where A.BlogID=" & BlogID & " order by A.ID desc"
    Case "link"
        sqlRss = "select top 30 A.ID,A.UserID,A.Title,A.Content,A.Datetime,C.UserName from PE_SpaceLink A inner join PE_User C on A.UserID=C.UserID"
        If BlogID > 0 Then sqlRss = sqlRss & " Where A.BlogID=" & BlogID & " order by A.ID desc"
    End Select
    Set rsRss = Conn.Execute(sqlRss)
    If Not (rsRss.BOF And rsRss.EOF) Then
        Do While Not rsRss.EOF
            Set Node = tempNode
            Set SubNode = Node.appendChild(XMLDOM.createElement("item"))
            
            Set Node = SubNode.appendChild(XMLDOM.createElement("title"))
            Node.text = xml_nohtml(rsRss("Title"))

            Set Node = SubNode.appendChild(XMLDOM.createElement("link"))
            Node.text = SiteUrl & "Space/Show" & iType & ".asp?ID=" & rsRss("ID")
                        
            Set Node = SubNode.appendChild(XMLDOM.createElement("description"))
            Node.text = Left(xml_nohtml(rsRss("Content")), 100)
            
            Set Node = SubNode.appendChild(XMLDOM.createElement("author"))
            Node.text = rsRss("UserName")
            
            Set Node = SubNode.appendChild(XMLDOM.createElement("category"))
            Node.text = temptxt
            
            Set Node = SubNode.appendChild(XMLDOM.createElement("pubDate"))
            Node.text = rsRss("Datetime")
            rsRss.MoveNext
        Loop
    End If
    rsRss.Close
    Set rsRss = Nothing
End Sub

'**************************************************
'函数名：ReplaceText
'作  用：过滤非法字符串
'参  数：iText-----输入字符串
'返回值：替换后字符串
'**************************************************
Function ReplaceText(iText, iType)
    Dim rText, rsKey, sqlKey, i, Keyrow, Keycol
    If PE_Cache.GetValue("Site_ReplaceText") = "" Then
        Set rsKey = Server.CreateObject("Adodb.RecordSet")
        sqlKey = "Select Source,ReplaceText,OpenType,ReplaceType,Priority from PE_KeyLink where isUse=1 and LinkType=1 order by Priority"
        rsKey.Open sqlKey, Conn, 1, 1
        If Not (rsKey.BOF And rsKey.EOF) Then
            PE_Cache.SetValue "Site_ReplaceText", rsKey.GetString(, , "|||", "@@@", "")
            rsKey.Close
            Set rsKey = Nothing
        Else
            rsKey.Close
            Set rsKey = Nothing
            ReplaceText = iText
            Exit Function
        End If
    End If
    rText = iText
    Keyrow = Split(PE_Cache.GetValue("Site_ReplaceText"), "@@@")
    For i = 0 To UBound(Keyrow) - 1
        Keycol = Split(Keyrow(i), "|||")
        If Int(Keycol(3)) = 0 Or Int(Keycol(3)) = iType Then rText = PE_Replace(rText, Keycol(0), Keycol(1))
    Next
    ReplaceText = rText
End Function
%>