admin_createxml.asp

个人网站比较简短

            ItemNode.Attributes.setNamedItem (ItemNodeTemp)
            
            Set ItemNodeTemp = XMLDOM.createNode(2, "Title", "")
            ItemNodeTemp.text = xml_nohtml(rsArticle("ProductName"))
            ItemNode.Attributes.setNamedItem (ItemNodeTemp)
            
            Set ItemNodeTemp = XMLDOM.createNode(2, "Price", "")
            ItemNodeTemp.text = rsArticle("Price")
            ItemNode.Attributes.setNamedItem (ItemNodeTemp)
            
            Set ItemNodeTemp = XMLDOM.createNode(2, "Price_Original", "")
            ItemNodeTemp.text = rsArticle("Price_Original")
            ItemNode.Attributes.setNamedItem (ItemNodeTemp)
            
            Set ItemNodeTemp = XMLDOM.createNode(2, "Unit", "")
            If Not (rsArticle("Unit") = "" Or IsNull(rsArticle("Unit"))) Then ItemNodeTemp.text = rsArticle("Unit")
            ItemNode.Attributes.setNamedItem (ItemNodeTemp)
            
            Set ItemNodeTemp = XMLDOM.createNode(2, "LinkUrl", "")
            ItemNodeTemp.text = SiteUrl & "/" & rsChannel("ChannelDir") & "/ShowProduct.asp?ProductID=" & rsArticle("ProductID")
            ItemNode.Attributes.setNamedItem (ItemNodeTemp)
            
            Set ItemNodeTemp = XMLDOM.createNode(2, "Hits", "")
            If rsArticle("Hits") = "" Or IsNull(rsArticle("Hits")) Then
                ItemNodeTemp.text = 0
            Else
                ItemNodeTemp.text = rsArticle("Hits")
            End If
            ItemNode.Attributes.setNamedItem (ItemNodeTemp)
            
            Set ItemNodeTemp = XMLDOM.createNode(2, "Time", "")
            ItemNodeTemp.text = rsArticle("UpdateTime")
            ItemNode.Attributes.setNamedItem (ItemNodeTemp)
            
            Set ItemNodeTemp = XMLDOM.createNode(2, "Hot", "")
            If rsArticle("IsHot") = PE_True Then
                ItemNodeTemp.text = 1
            Else
                ItemNodeTemp.text = 0
            End If
            ItemNode.Attributes.setNamedItem (ItemNodeTemp)
             
            Set ItemNodeTemp = XMLDOM.createNode(2, "OnTop", "")
            If rsArticle("OnTop") = PE_True Then
                ItemNodeTemp.text = 1
            Else
                ItemNodeTemp.text = 0
            End If
            ItemNode.Attributes.setNamedItem (ItemNodeTemp)
            
            Set ItemNodeTemp = XMLDOM.createNode(2, "Elite", "")
            If rsArticle("IsElite") = PE_True Then
                ItemNodeTemp.text = 1
            Else
                ItemNodeTemp.text = 0
            End If
            ItemNode.Attributes.setNamedItem (ItemNodeTemp)

            Set ItemNodeTemp = XMLDOM.createNode(2, "ProductThumb", "")
            If Not (rsArticle("ProductThumb") = "" Or IsNull(rsArticle("ProductThumb"))) Then ItemNodeTemp.text = rsArticle("ProductThumb")
            ItemNode.Attributes.setNamedItem (ItemNodeTemp)

            ItemNode.text = xml_nohtml(rsArticle("ProductIntro"))
            rsArticle.MoveNext
        Loop
    End If
    rsArticle.Close
    Set rsArticle = Nothing
End Sub

Sub ShowGuest(ByVal iClassID)
    Dim rsArticle, rsArticle2, GuestNode, GuestNode2, GuestNode3, GuestNodeTemp
    Set rsArticle = Conn.Execute("select top 20 * from PE_GuestBook Where KindID=" & iClassID & " and GuestID=TopicID and GuestIsPassed = " & PE_True & " order by GuestID")
    If Not (rsArticle.BOF And rsArticle.EOF) Then
        Do While Not rsArticle.EOF
            Set GuestNode = SubNode.appendChild(XMLDOM.createElement("Guest"))
            
            Set GuestNodeTemp = XMLDOM.createNode(2, "GuestID", "")
            GuestNodeTemp.text = rsArticle("GuestID")
            GuestNode.Attributes.setNamedItem (GuestNodeTemp)
            Set GuestNodeTemp = XMLDOM.createNode(2, "GuestName", "")
            GuestNodeTemp.text = xml_nohtml(rsArticle("GuestName"))
            GuestNode.Attributes.setNamedItem (GuestNodeTemp)
            Set GuestNodeTemp = XMLDOM.createNode(2, "Title", "")
            GuestNodeTemp.text = xml_nohtml(rsArticle("GuestTitle"))
            GuestNode.Attributes.setNamedItem (GuestNodeTemp)
            Set GuestNodeTemp = XMLDOM.createNode(2, "Time", "")
            GuestNodeTemp.text = rsArticle("GuestDatetime")
            GuestNode.Attributes.setNamedItem (GuestNodeTemp)
            Set GuestNodeTemp = XMLDOM.createNode(2, "LinkUrl", "")
            GuestNodeTemp.text = SiteUrl & "/" & rsChannel("ChannelDir") & "/Guest_Reply.asp?TopicID=" & rsArticle("TopicID")
            GuestNode.Attributes.setNamedItem (GuestNodeTemp)
            Set GuestNodeTemp = XMLDOM.createNode(2, "Hits", "")
            GuestNodeTemp.text = PE_CLng(rsArticle("Hits"))
            GuestNode.Attributes.setNamedItem (GuestNodeTemp)
            Set GuestNodeTemp = XMLDOM.createNode(2, "ReplyNum", "")
            GuestNodeTemp.text = PE_CLng(rsArticle("ReplyNum"))
            GuestNode.Attributes.setNamedItem (GuestNodeTemp)
            
            GuestNode.text = xml_nohtml(rsArticle("GuestReply"))
            
            If Not (IsNull(rsArticle("GuestReplyAdmin")) Or rsArticle("GuestReplyAdmin") = "") Then
                Set GuestNode2 = GuestNode.appendChild(XMLDOM.createElement("GuestAdminReply"))
                Set GuestNodeTemp = XMLDOM.createNode(2, "AdminName", "")
                GuestNodeTemp.text = xml_nohtml(rsArticle("GuestReplyAdmin"))
                GuestNode2.Attributes.setNamedItem (GuestNodeTemp)
                Set GuestNodeTemp = XMLDOM.createNode(2, "Time", "")
                If Not (rsArticle("GuestReplyDatetime") = "" Or IsNull(rsArticle("GuestReplyDatetime"))) Then GuestNodeTemp.text = rsArticle("GuestReplyDatetime")
                GuestNode2.Attributes.setNamedItem (GuestNodeTemp)
                GuestNode2.text = xml_nohtml(rsArticle("GuestReply"))
            End If
            If rsArticle("ReplyNum") > 0 Then
                Set rsArticle2 = Conn.Execute("select top 20 * from PE_GuestBook Where GuestID<>TopicID and TopicID=" & rsArticle("GuestID") & " and GuestIsPassed = " & PE_True & " order by GuestID")
                Do While Not rsArticle2.EOF
                    Set GuestNode2 = GuestNode.appendChild(XMLDOM.createElement("GuestReply"))
                
                    Set GuestNodeTemp = XMLDOM.createNode(2, "GuestID", "")
                    GuestNodeTemp.text = rsArticle2("GuestID")
                    GuestNode2.Attributes.setNamedItem (GuestNodeTemp)
                    Set GuestNodeTemp = XMLDOM.createNode(2, "GuestName", "")
                    GuestNodeTemp.text = xml_nohtml(rsArticle2("GuestName"))
                    GuestNode2.Attributes.setNamedItem (GuestNodeTemp)
                    Set GuestNodeTemp = XMLDOM.createNode(2, "Title", "")
                    GuestNodeTemp.text = xml_nohtml(rsArticle2("GuestTitle"))
                    GuestNode2.Attributes.setNamedItem (GuestNodeTemp)
                    Set GuestNodeTemp = XMLDOM.createNode(2, "Time", "")
                    GuestNodeTemp.text = rsArticle2("GuestDatetime")
                    GuestNode2.Attributes.setNamedItem (GuestNodeTemp)
                    Set GuestNodeTemp = XMLDOM.createNode(2, "Hits", "")
                    GuestNodeTemp.text = PE_CLng(rsArticle2("Hits"))
                    GuestNode2.Attributes.setNamedItem (GuestNodeTemp)
                    GuestNode2.text = xml_nohtml(rsArticle2("GuestReply"))
                
                    If Not (IsNull(rsArticle2("GuestReplyAdmin")) Or rsArticle2("GuestReplyAdmin") = "") Then
                        Set GuestNode3 = GuestNode2.appendChild(XMLDOM.createElement("GuestAdminReply"))
                        Set GuestNodeTemp = XMLDOM.createNode(2, "AdminName", "")
                        GuestNodeTemp.text = xml_nohtml(rsArticle2("GuestReplyAdmin"))
                        GuestNode3.Attributes.setNamedItem (GuestNodeTemp)
                        Set GuestNodeTemp = XMLDOM.createNode(2, "Time", "")
                        If Not (rsArticle2("GuestReplyDatetime") = "" Or IsNull(rsArticle2("GuestReplyDatetime"))) Then GuestNodeTemp.text = rsArticle2("GuestReplyDatetime")
                        GuestNode3.Attributes.setNamedItem (GuestNodeTemp)
                        GuestNode3.text = xml_nohtml(rsArticle2("GuestReply"))
                    End If
                    rsArticle2.MoveNext
                Loop
                rsArticle2.Close
                Set rsArticle2 = Nothing
            End If
            rsArticle.MoveNext
        Loop
    End If
    rsArticle.Close
    Set rsArticle = Nothing
    Set GuestNode = Nothing
    Set GuestNode2 = Nothing
    Set GuestNode3 = Nothing
    Set GuestNodeTemp = Nothing
End Sub


Sub ShowUserXml()
    Dim rsUser, UserNode, UserNodeTemp
    
    Set rsUser = Conn.Execute("select top 40 UserID,UserName,PostItems,PassedItems from PE_User where IsLocked = " & PE_False & " order by UserID")
    If rsUser.BOF And rsUser.EOF Then
        Set Node = XMLDOM.createNode(1, "UserList", "")
        XMLDOM.documentElement.appendChild (Node)
    Else
        Set Node = XMLDOM.createNode(1, "UserList", "")
        XMLDOM.documentElement.appendChild (Node)
        Do While Not rsUser.EOF
            Set UserNode = Node.appendChild(XMLDOM.createElement("User"))
        
            Set UserNodeTemp = XMLDOM.createNode(2, "GuestID", "")
            UserNodeTemp.text = rsUser("UserID")
            UserNode.Attributes.setNamedItem (UserNodeTemp)
            Set UserNodeTemp = XMLDOM.createNode(2, "UserName", "")
            UserNodeTemp.text = xml_nohtml(rsUser("UserName"))
            UserNode.Attributes.setNamedItem (UserNodeTemp)
            Set UserNodeTemp = XMLDOM.createNode(2, "PostItems", "")
            If rsUser("PostItems") = "" Or IsNull(rsUser("PostItems")) Then
                UserNodeTemp.text = 0
            Else
                UserNodeTemp.text = rsUser("PostItems")
            End If
            UserNode.Attributes.setNamedItem (UserNodeTemp)
            Set UserNodeTemp = XMLDOM.createNode(2, "PassedItems", "")
            If rsUser("PassedItems") = "" Or IsNull(rsUser("PassedItems")) Then
                UserNodeTemp.text = 0
            Else
                UserNodeTemp.text = rsUser("PassedItems")
            End If
            UserNode.Attributes.setNamedItem (UserNodeTemp)
            rsUser.MoveNext
        Loop
    End If
    rsUser.Close
    Set rsUser = Nothing
    Set UserNode = Nothing
    Set UserNodeTemp = Nothing
End Sub

Sub ShowAuthorXml()
    Dim rsAuthor, AuthorNode, AuthorNodeTemp
    Set rsAuthor = Conn.Execute("select top 40 ID,ChannelID,AuthorName,Photo,Intro from PE_Author where Passed = " & PE_True & " order by ID")
    If rsAuthor.BOF And rsAuthor.EOF Then
        Set Node = XMLDOM.createNode(1, "AuthorList", "")
        XMLDOM.documentElement.appendChild (Node)
    Else
        Set Node = XMLDOM.createNode(1, "AuthorList", "")
        XMLDOM.documentElement.appendChild (Node)
        Do While Not rsAuthor.EOF
            Set AuthorNode = Node.appendChild(XMLDOM.createElement("Author"))
        
            Set AuthorNodeTemp = XMLDOM.createNode(2, "AuthorID", "")
            AuthorNodeTemp.text = rsAuthor("ID")
            AuthorNode.Attributes.setNamedItem (AuthorNodeTemp)
            
            Set AuthorNodeTemp = XMLDOM.createNode(2, "AuthorName", "")
            AuthorNodeTemp.text = xml_nohtml(rsAuthor("AuthorName"))
            AuthorNode.Attributes.setNamedItem (AuthorNodeTemp)
            
            'Set AuthorNodeTemp = XMLDOM.createNode(2, "NickName", "")
            'AuthorNodeTemp.Text = xml_nohtml(rsAuthor("NiceName"))
            'AuthorNode.Attributes.setNamedItem (AuthorNodeTemp)
            
            Set AuthorNodeTemp = XMLDOM.createNode(2, "Photo", "")
            If Not (rsAuthor("Photo") = "" Or IsNull(rsAuthor("Photo"))) Then AuthorNodeTemp.text = rsAuthor("Photo")
            AuthorNode.Attributes.setNamedItem (AuthorNodeTemp)
            
            AuthorNode.text = rsAuthor("Intro")
            rsAuthor.MoveNext
        Loop
    End If
    rsAuthor.Close
    Set rsAuthor = Nothing
    Set AuthorNode = Nothing
    Set AuthorNodeTemp = Nothing
End Sub

Sub ShowFsClass()
    Dim rsSiteClass, rsSite, FsNode, FsNode2, FsNodeTemp
    Set Node = XMLDOM.createNode(1, "FriendSite", "")
    XMLDOM.documentElement.appendChild (Node)
        
    Set FsNode = Node.appendChild(XMLDOM.createElement("FriendSiteClass"))
    
    Set FsNodeTemp = XMLDOM.createNode(2, "ClassID", "")
    FsNodeTemp.text = 0
    FsNode.Attributes.setNamedItem (FsNodeTemp)
    
    Set FsNodeTemp = XMLDOM.createNode(2, "ClassName", "")
    FsNodeTemp.text = "未分类友情链接"
    FsNode.Attributes.setNamedItem (FsNodeTemp)

    Set FsNodeTemp = XMLDOM.createNode(2, "Readme", "")
    FsNodeTemp.text = ""
    FsNode.Attributes.setNamedItem (FsNodeTemp)
    
    Set FsNodeTemp = XMLDOM.createNode(2, "KindType", "")
    FsNodeTemp.text = 0
    FsNode.Attributes.setNamedItem (FsNodeTemp)
    
    Set rsSite = Conn.Execute("select top 20 * from PE_FriendSite Where KindID=0 and Passed = " & PE_True & " order by OrderID")
    Do While Not rsSite.EOF
        Set FsNode2 = FsNode.appendChild(XMLDOM.createElement("FriendSite"))
        
        Set FsNodeTemp = XMLDOM.createNode(2, "SiteID", "")
        FsNodeTemp.text = rsSite("ID")
        FsNode2.Attributes.setNamedItem (FsNodeTemp)