读取 RSS(VB)代码,VB.Net代码库,德仔网

代码语言
代码分类
【VB.Net】读取 RSS(VB)
作者:Dezai.CN / 发布于2013/2/23/ 871

	Public Function LoadRSS(ByVal RssUrl As String, ByVal showNewsCount As Integer) As String

	　　　　Try

	　　　　　　'读取xml文档
	　　　　　　Dim objXMLDoc As New System.Xml.XmlDocument()
	　　　　　　Dim strNodes As String = ""
	　　　　　　Dim objItems As System.Xml.XmlNodeList
	　　　　　　Dim objItems1 As System.Xml.XmlNodeList
	　　　　　　Dim objNode As System.Xml.XmlNode
	　　　　　　Dim objNode1 As System.Xml.XmlNode
	　　　　　　Dim i As Integer
	　　　　　　Dim newsTitle As String
	　　　　　　Dim newsUrl As String
	　　　　　　Dim newsDescription As String
	　　　　　　Dim newsPubDate As String
	　　　　　　Dim newsAuthor As String
	　　　　　　Dim newsCategory As String

	　　　　　　objXMLDoc.Load(RssUrl)

	　　　　　　objItems = objXMLDoc.GetElementsByTagName("item")

	　　　　　　If RssUrl = "" Then
	　　　　　　　　RSSNews = "未找到信息源，您可刷新重试或联系管理员！"
	　　　　　　　　Exit Function
	　　　　　　End If

	　　　　　　If CStr(showNewsCount) = "" Or showNewsCount > 30 Then
	　　　　　　　　showNewsCount = 10　　　　'默认新闻显示数目
	　　　　　　End If

	　　　　　　If showNewsCount = 0 Then
	　　　　　　　　showNewsCount = objItems.Count
	　　　　　　End If

	　　　　　　If objXMLDoc.HasChildNodes = True Then
	　　　　　　　　i = 1
	　　　　　　　　For Each objNode In objItems

	　　　　　　　　　　If objNode.HasChildNodes = True Then
	　　　　　　　　　　　　objItems1 = objNode.ChildNodes
	　　　　　　　　　　　　For Each objNode1 In objItems1

	　　　　　　　　　　　　　　Select Case objNode1.Name
	　　　　　　　　　　　　　　　　Case "title"
	　　　　　　　　　　　　　　　　　　newsTitle = objNode1.InnerText
	　　　　　　　　　　　　　　　　Case "link"
	　　　　　　　　　　　　　　　　　　newsUrl = objNode1.InnerText
	　　　　　　　　　　　　　　　　Case "description"
	　　　　　　　　　　　　　　　　　　newsDescription = objNode1.InnerText
	　　　　　　　　　　　　　　　　　　If Len(newsDescription) > 500 Then
	　　　　　　　　　　　　　　　　　　　　newsDescription = Left(newsDescription, 200)
	　　　　　　　　　　　　　　　　　　End If
	　　　　　　　　　　　　　　　　　　newsDescription = FilterHtml(newsDescription)
	　　　　　　　　　　　　　　 Case "category"
	　　　　　　　　　　　　　　　　　　newsCategory = objNode1.InnerText
	　　　　　　　　　　　　　　　　Case "author"
	　　　　　　　　　　　　　　　　　　newsAuthor = objNode1.InnerText
	　　　　　　　　　　　　　　　　Case "pubDate"
	　　　　　　　　　　　　　　　　　　newsPubDate = objNode1.InnerText
	　　　　　　　　　　　　　　End Select

	
	　　　　　　　　　　　　Next
	　　　　　　　　　　　　strNodes += "<a href=viewnews.aspx?newstitle=" & Server.UrlEncode(newsTitle) & "&newsurl=" & Server.UrlEncode(newsUrl) & _
	　　　　　　　　　　　　　　　　　　"&newsdscrp=" & Server.UrlEncode(newsDescription) & "&newscat=" & Server.UrlEncode(newsCategory) & _
	　　　　　　　　　　　　　　　　　　"&newsauthor=" & Server.UrlEncode(newsAuthor) & "&newsdate=" & Server.UrlEncode(newsPubDate) & _
	　　　　　　　　　　　　　　　　　　" target=_blank>" & newsTitle & "</a>"
	　　　　　　　　　　End If
	　　　　　　　　　　i = i + 1
	　　　　　　　　　　If i > showNewsCount Then Exit For
	　　　　　　　　Next
	　　　　　　End If

	　　　　　　LoadRSS = strNodes

	　　　　Catch objErr As Exception
	　　　　　　LoadRSS = "RSS Feed 源数据出错！"

	　　　　End Try

	　　End Function
试试其它关键字
　RSS　
同语言下
可能有用的
Dezai.CN贡献的其它代码(4037)