Protected Sub GetRSSSource(ByVal lt As Literal)
Dim RSSURL,RSSName As String
'根据需要可以从数据库动态获取
RSSURL = "http://news.qq.com/newsgn/rss_newsgn.xml"
RSSName = "国内新闻"
Dim myRequest As System.Net.WebRequest = System.Net.WebRequest.Create(RSSURL)
Dim myResponse As Net.WebResponse = myRequest.GetResponse
Dim rssStream As IO.Stream = myResponse.GetResponseStream()
Dim rssDoc As System.Xml.XmlDocument = New System.Xml.XmlDocument()
rssDoc.Load(rssStream)
Dim rssItems As System.Xml.XmlNodeList = rssDoc.SelectNodes("rss/channel/item")
Dim title As String = ""
Dim titleWZ As String = ""
Dim link As String = ""
Dim description As String = ""
Dim pubDate As String = ""
lt.Text = "<div style='border:1px solid #d9d9d9'><table border='0' cellpadding='0' cellspacing='0' width='100%'>"
lt.Text += "<tr style=""background-image: url('App_Themes/Theme1/images/header01.jpg');"" height='25px'><td colspan='3'>"
lt.Text += "<img src='images/BaseImages/new1.gif' />"
lt.Text += RSSName
lt.Text += "</td></tr>"
For i As Integer = 0 To IIf(rssItems.Count > 5, 5, rssItems.Count - 1)
Dim rssDetail As System.Xml.XmlNode
rssDetail = rssItems.Item(i).SelectSingleNode("title")
If rssDetail IsNot Nothing Then
title = rssDetail.InnerText
titleWZ = title
Else
title = ""
End If
Try
title = IIf(title.Length > 17, title.Substring(0, 17) + "...", title)
Catch ex As Exception
End Try
rssDetail = rssItems.Item(i).SelectSingleNode("link")
If rssDetail IsNot Nothing Then
link = rssDetail.InnerText
Else
link = ""
End If
rssDetail = rssItems.Item(i).SelectSingleNode("description")
If rssDetail IsNot Nothing Then
description = rssDetail.InnerText
Else
description = ""
End If
rssDetail = rssItems.Item(i).SelectSingleNode("pubDate")
If pubDate IsNot Nothing Then
pubDate = rssDetail.InnerText
pubDate = CType(pubDate, DateTime).ToString("MM-dd")
Else
pubDate = ""
End If
lt.Text += "<tr style='background-color:white;'><td height='20px'>·</td><td><a href='" + link + "' target='_blank' title='" + titleWZ + "'>"
+ title + "</a></td><td width='60px' align='center'>" + pubDate + "</td></tr>"
Next
lt.Text += "</table></div>"
If RSSID <> "3" Then
lt.Text += "<br />"
End If
End Sub