📄 powereasy.common.rss.asp
字号:
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Sub ShowIndexRss(iShowType)
Dim rsChannel2, rsItem, sqlItem
Dim ModuleType, tempNode
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
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"))
If iShowType = 0 Then
SubNode.text = SiteUrl & "rss.asp"
Else
SubNode.text = SiteUrl & "xml/Rss.xml"
End If
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 = WebmasterName
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 rsChannel2 = Conn.Execute("select ChannelID,ChannelName,ModuleType,ChannelDir,UseCreateHTML,StructureType,FileNameType,FileExt_Item,LinkUrl from PE_Channel where ModuleType<6 and ModuleType<>4 and Disabled = " & PE_False & " and ChannelType<2 order by OrderID")
If Not (rsChannel2.BOF And rsChannel2.EOF) Then
Do While Not rsChannel2.EOF
ModuleType = rsChannel2("ModuleType")
ChannelName = rsChannel2("ChannelName")
ChannelDir = rsChannel2("ChannelDir")
UseCreateHTML = rsChannel2("UseCreateHTML")
StructureType = rsChannel2("StructureType")
FileNameType = rsChannel2("FileNameType")
FileExt_Item = arrFileExt(rsChannel2("FileExt_Item"))
'只使用绝对地址时，才使用频道子域名
If IsNull(rsChannel2("LinkUrl")) Or Trim(rsChannel2("LinkUrl")) = "" Or Left(strInstallDir, 7) <> "http://" Then
ChannelUrl = SiteUrl & ChannelDir
Else
ChannelUrl = rsChannel2("LinkUrl")
End If
If Right(ChannelUrl, 1) = "/" Then
ChannelUrl = Left(ChannelUrl, Len(ChannelUrl) - 1)
End If
If SystemDatabaseType = "SQL" Then
ChannelUrl_ASPFile = ChannelUrl
Else
ChannelUrl_ASPFile = SiteUrl & ChannelDir
End If
OutNum = 0
Select Case ModuleType
Case 1
sqlItem = "select top 100 ArticleID,ChannelID,ClassID,Title,Author,Hits,UpdateTime,Elite,Content,InfoPurview,InfoPoint,Status,Deleted from PE_Article Where ChannelID=" & rsChannel2("ChannelID")
If BlogID > 0 Then sqlItem = sqlItem & " and BlogID=" & BlogID
sqlItem = sqlItem & " and Status=3 and Deleted=" & PE_False & " order by UpdateTime Desc"
Case 2
sqlItem = "select top 100 SoftID,ChannelID,ClassID,SoftName,Author,Hits,UpdateTime,Elite,SoftIntro,InfoPurview,InfoPoint,Status,Deleted from PE_Soft Where ChannelID=" & rsChannel2("ChannelID")
If BlogID > 0 Then sqlItem = sqlItem & " and BlogID=" & BlogID
sqlItem = sqlItem & " and Status=3 and Deleted=" & PE_False & " order by UpdateTime Desc"
Case 3
sqlItem = "select top 100 PhotoID,ChannelID,ClassID,PhotoName,Author,Hits,UpdateTime,Elite,PhotoIntro,InfoPurview,InfoPoint,Status,Deleted from PE_Photo Where ChannelID=" & rsChannel2("ChannelID")
If BlogID > 0 Then sqlItem = sqlItem & " and BlogID=" & BlogID
sqlItem = sqlItem & " and Status=3 and Deleted=" & PE_False & " order by UpdateTime Desc"
Case 5
sqlItem = "select top 100 ProductID,ChannelID,ClassID,ProductName,ProducerName,Hits,UpdateTime,IsElite,ProductIntro,MinNumber,Stocks,EnableSale,Deleted from PE_Product Where ChannelID=" & rsChannel2("ChannelID")
If BlogID > 0 Then sqlItem = sqlItem & " and BlogID=" & BlogID
sqlItem = sqlItem & " and Deleted=" & PE_False & " and EnableSale=" & PE_True & " and Stocks>0 order by UpdateTime Desc"
End Select
Set rsItem = Server.CreateObject("adodb.recordset")
rsItem.Open sqlItem, Conn, 1, 1
Do While Not rsItem.EOF
If GetClassFild(rsItem(2), 2) < 2 Or ModuleType = 5 Then
Set Node = tempNode
Set SubNode = Node.appendChild(XMLDOM.createElement("item"))
Set Node = SubNode.appendChild(XMLDOM.createElement("title"))
Node.text = ChannelName & " - " & ReplaceText(xml_nohtml(rsItem(3)), 2)
Set Node = SubNode.appendChild(XMLDOM.createElement("link"))
If ModuleType = 5 Then
Node.text = GetProductUrl(GetClassFild(rsItem(2), 4), GetClassFild(rsItem(2), 3), rsItem(6), rsItem(0))
Else
Select Case ModuleType
Case 1
Node.text = GetArticleUrl(GetClassFild(rsItem(2), 4), GetClassFild(rsItem(2), 3), rsItem(6), rsItem(0), GetClassFild(rsItem(2), 2), rsItem(9), rsItem(10))
Case 2
Node.text = GetSoftUrl(GetClassFild(rsItem(2), 4), GetClassFild(rsItem(2), 3), rsItem(6), rsItem(0))
Case 3
Node.text = GetPhotoUrl(GetClassFild(rsItem(2), 4), GetClassFild(rsItem(2), 3), rsItem(6), rsItem(0), GetClassFild(rsItem(2), 2), rsItem(9), rsItem(10))
End Select
End If
Set Node = SubNode.appendChild(XMLDOM.createElement("description"))
If ModuleType = 5 Or (rsItem(9) = 0 And rsItem(10) = 0 And GetClassFild(rsItem(2), 2) = 0) Then
Node.text = ReplaceText(Left(xml_nohtml(rsItem(8)), 200), 1)
Else
Node.text = strNoSee
End If
Set Node = SubNode.appendChild(XMLDOM.createElement("author"))
If IsNull(rsItem(4)) Or rsItem(4) = "" Then
Node.text = strDefAuthor
Else
Node.text = xml_nohtml(rsItem(4))
End If
Set Node = SubNode.appendChild(XMLDOM.createElement("category"))
Node.text = GetClassFild(rsItem(2), 1)
Set Node = SubNode.appendChild(XMLDOM.createElement("pubDate"))
Node.text = rsItem(6)
If OutNum > 19 Then
Exit Do
Else
OutNum = OutNum + 1
End If
End If
rsItem.MoveNext
Loop
rsItem.Close
rsChannel2.MoveNext
Loop
End If
Set rsItem = Nothing
Set rsChannel2 = Nothing
End Sub
Sub ShowArtcileRss(ByVal iHot, ByVal iElite, ByVal iAuthorName, iHitsOfHot)
Dim sqlArticle, rsArticle, tempNode, tempUrl
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 SpecialID > 0 Then
SubNode.text = SiteName & " -- " & ChannelName & XmlText("Rss", "Gx1", " -- 专题更新")
ElseIf ClassID > 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.ArticleID,A.ChannelID,A.ClassID,A.BlogID,A.Title,A.Author,A.Hits,A.UpdateTime,A.Elite,A.Content,A.InfoPurview,A.InfoPoint,A.Status,A.Deleted,A.Receive,I.SpecialID from PE_Article A right join (PE_InfoS I left join PE_Special SP on I.SpecialID=SP.SpecialID) on A.ArticleID=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 ArticleID,ChannelID,ClassID,BlogID,Title,Author,Hits,UpdateTime,Elite,Content,InfoPurview,InfoPoint,Status,Deleted,Receive from PE_Article 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 & "'"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -