📄 admin_createxml.asp
字号:
Call ShowGuest(0)
sqlGuest = "select KindID,KindName,Readme,OrderID from PE_GuestKind order by OrderID"
Set rsGuest = Conn.Execute(sqlGuest)
If Not (rsGuest.BOF And rsGuest.EOF) Then
Do While Not rsGuest.EOF
Set SubNode = Node.appendChild(XMLDOM.createElement("Class"))
Set SubNode2 = XMLDOM.createNode(2, "ClassID", "")
SubNode2.text = rsGuest("KindID")
SubNode.Attributes.setNamedItem (SubNode2)
Set SubNode2 = XMLDOM.createNode(2, "ClassName", "")
SubNode2.text = xml_nohtml(rsGuest("KindName"))
SubNode.Attributes.setNamedItem (SubNode2)
Set SubNode2 = XMLDOM.createNode(2, "ClassReadme", "")
If Not (rsGuest("ReadMe") = "" Or IsNull(rsGuest("ReadMe"))) Then SubNode2.text = xml_nohtml(rsGuest("ReadMe"))
SubNode.Attributes.setNamedItem (SubNode2)
Set SubNode2 = XMLDOM.createNode(2, "ClassOrder", "")
SubNode2.text = rsGuest("OrderID")
SubNode.Attributes.setNamedItem (SubNode2)
Call ShowGuest(rsGuest("KindID"))
rsGuest.MoveNext
Loop
End If
rsGuest.Close
Set rsGuest = Nothing
End Sub
Sub ShowArticle(ByVal iClassID)
Dim rsArticle, ItemNode, ItemNodeTemp
Set rsArticle = Conn.Execute("select top 20 * from PE_Article Where ClassID=" & iClassID & " and Status=3 and Deleted = " & PE_False & " order by ArticleID")
If Not (rsArticle.BOF And rsArticle.EOF) Then
Do While Not rsArticle.EOF
Set ItemNode = SubNode.appendChild(XMLDOM.createElement("Article"))
Set ItemNodeTemp = XMLDOM.createNode(2, "ArticleID", "")
ItemNodeTemp.text = rsArticle("ArticleID")
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
Set ItemNodeTemp = XMLDOM.createNode(2, "Title", "")
ItemNodeTemp.text = xml_nohtml(rsArticle("Title"))
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
Set ItemNodeTemp = XMLDOM.createNode(2, "Author", "")
ItemNodeTemp.text = xml_nohtml(rsArticle("Author"))
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
Set ItemNodeTemp = XMLDOM.createNode(2, "CopyFrom", "")
If Not (rsArticle("CopyFrom") = "" Or IsNull(rsArticle("CopyFrom"))) Then ItemNodeTemp.text = xml_nohtml(rsArticle("CopyFrom"))
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
Set ItemNodeTemp = XMLDOM.createNode(2, "Inputer", "")
If Not (rsArticle("Inputer") = "" Or IsNull(rsArticle("Inputer"))) Then ItemNodeTemp.text = rsArticle("Inputer")
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
Set ItemNodeTemp = XMLDOM.createNode(2, "LinkUrl", "")
If Not (rsArticle("LinkUrl") = "" Or IsNull(rsArticle("LinkUrl"))) Then
ItemNodeTemp.text = rsArticle("LinkUrl")
Else
ItemNodeTemp.text = SiteUrl & "/" & rsChannel("ChannelDir") & "/ShowArticle.asp?ArticleID=" & rsArticle("ArticleID")
End If
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)
'2006字段不存在
'Set ItemNodeTemp = XMLDOM.createNode(2, "Hot", "")
'If rsArticle("Hot") = 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("Elite") = PE_True Then
ItemNodeTemp.text = 1
Else
ItemNodeTemp.text = 0
End If
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
Set ItemNodeTemp = XMLDOM.createNode(2, "DefaultPicUrl", "")
If Not (rsArticle("DefaultPicUrl") = "" Or IsNull(rsArticle("DefaultPicUrl"))) Then ItemNodeTemp.text = rsArticle("DefaultPicUrl")
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
If Not (rsArticle("Intro") = "" Or IsNull(rsArticle("Intro"))) Then
ItemNode.text = xml_nohtml(rsArticle("Intro"))
Else
ItemNode.text = Left(xml_nohtml(rsArticle("Content")), 200)
End If
rsArticle.MoveNext
Loop
End If
rsArticle.Close
Set rsArticle = Nothing
End Sub
Sub ShowSoft(ByVal iClassID)
Dim rsArticle, ItemNode, ItemNodeTemp
Set rsArticle = Conn.Execute("select top 20 * from PE_Soft Where ClassID=" & iClassID & " and Status=3 and Deleted = " & PE_False & " order by SoftID")
If Not (rsArticle.BOF And rsArticle.EOF) Then
Do While Not rsArticle.EOF
Set ItemNode = SubNode.appendChild(XMLDOM.createElement("Soft"))
Set ItemNodeTemp = XMLDOM.createNode(2, "SoftID", "")
ItemNodeTemp.text = rsArticle("SoftID")
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
Set ItemNodeTemp = XMLDOM.createNode(2, "Title", "")
ItemNodeTemp.text = xml_nohtml(rsArticle("SoftName"))
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
Set ItemNodeTemp = XMLDOM.createNode(2, "Author", "")
ItemNodeTemp.text = xml_nohtml(rsArticle("Author"))
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
Set ItemNodeTemp = XMLDOM.createNode(2, "CopyFrom", "")
If Not (rsArticle("CopyFrom") = "" Or IsNull(rsArticle("CopyFrom"))) Then ItemNodeTemp.text = xml_nohtml(rsArticle("CopyFrom"))
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
Set ItemNodeTemp = XMLDOM.createNode(2, "Inputer", "")
If Not (rsArticle("Inputer") = "" Or IsNull(rsArticle("Inputer"))) Then ItemNodeTemp.text = rsArticle("Inputer")
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
Set ItemNodeTemp = XMLDOM.createNode(2, "LinkUrl", "")
ItemNodeTemp.text = SiteUrl & "/" & rsChannel("ChannelDir") & "/ShowSoft.asp?SoftID=" & rsArticle("SoftID")
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, "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("Elite") = PE_True Then
ItemNodeTemp.text = 1
Else
ItemNodeTemp.text = 0
End If
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
Set ItemNodeTemp = XMLDOM.createNode(2, "SoftPicUrl", "")
If Not (rsArticle("SoftPicUrl") = "" Or IsNull(rsArticle("SoftPicUrl"))) Then ItemNodeTemp.text = rsArticle("SoftPicUrl")
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
ItemNode.text = xml_nohtml(rsArticle("SoftIntro"))
rsArticle.MoveNext
Loop
End If
rsArticle.Close
Set rsArticle = Nothing
End Sub
Sub ShowPhoto(ByVal iClassID)
Dim rsArticle, ItemNode, ItemNodeTemp
Set rsArticle = Conn.Execute("select top 20 * from PE_Photo Where ClassID=" & iClassID & " and Status=3 and Deleted = " & PE_False & " order by PhotoID")
If Not (rsArticle.BOF And rsArticle.EOF) Then
Do While Not rsArticle.EOF
Set ItemNode = SubNode.appendChild(XMLDOM.createElement("Photo"))
Set ItemNodeTemp = XMLDOM.createNode(2, "PhotoID", "")
ItemNodeTemp.text = rsArticle("PhotoID")
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
Set ItemNodeTemp = XMLDOM.createNode(2, "Title", "")
ItemNodeTemp.text = xml_nohtml(rsArticle("PhotoName"))
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
Set ItemNodeTemp = XMLDOM.createNode(2, "Author", "")
ItemNodeTemp.text = xml_nohtml(rsArticle("Author"))
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
Set ItemNodeTemp = XMLDOM.createNode(2, "CopyFrom", "")
If Not (rsArticle("CopyFrom") = "" Or IsNull(rsArticle("CopyFrom"))) Then ItemNodeTemp.text = xml_nohtml(rsArticle("CopyFrom"))
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
Set ItemNodeTemp = XMLDOM.createNode(2, "Inputer", "")
If Not (rsArticle("Inputer") = "" Or IsNull(rsArticle("Inputer"))) Then ItemNodeTemp.text = rsArticle("Inputer")
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
Set ItemNodeTemp = XMLDOM.createNode(2, "LinkUrl", "")
ItemNodeTemp.text = SiteUrl & "/" & rsChannel("ChannelDir") & "/ShowPhoto.asp?PhotoID=" & rsArticle("PhotoID")
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, "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("Elite") = PE_True Then
ItemNodeTemp.text = 1
Else
ItemNodeTemp.text = 0
End If
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
Set ItemNodeTemp = XMLDOM.createNode(2, "PhotoThumb", "")
If Not (rsArticle("PhotoThumb") = "" Or IsNull(rsArticle("PhotoThumb"))) Then ItemNodeTemp.text = rsArticle("PhotoThumb")
ItemNode.Attributes.setNamedItem (ItemNodeTemp)
ItemNode.text = xml_nohtml(rsArticle("PhotoIntro"))
rsArticle.MoveNext
Loop
End If
rsArticle.Close
Set rsArticle = Nothing
End Sub
Sub ShowProduct(ByVal iClassID)
Dim rsArticle, ItemNode, ItemNodeTemp
Set rsArticle = Conn.Execute("select top 20 * from PE_Product Where ClassID=" & iClassID & " and EnableSale = " & PE_True & " and Deleted = " & PE_False & " order by ProductID")
If Not (rsArticle.BOF And rsArticle.EOF) Then
Do While Not rsArticle.EOF
Set ItemNode = SubNode.appendChild(XMLDOM.createElement("Product"))
Set ItemNodeTemp = XMLDOM.createNode(2, "ProductID", "")
ItemNodeTemp.text = rsArticle("ProductID")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -