Rss - Ajax - Tự động lấy tin

Tự động cập nhật tin tức bằng RSS và Load tin tức bằng Ajax
Tham khảo http://www.tintrongnuoc.net

1. Tool Lấy tin tức bằng công nghệ RSS (Application run 24/7)
2. Website hiện tin tức bằng công nghệ Ajax

Source code
1 Tool lấy tin tức
a. Database (MSSQL)
Cấu trúc Database gồm 3 Table (NHOMTIN, NGUONLINK_RSS,TINTUC)
NHOMTIN(Idnhom,TenNhom) vd (1,Thế giới);(2,Xã hội)....
NGUONLINK_RSS(idnguon, TenNguon, Link) vd(1,Tuoi Tre,linkrss)
TinTuc (idtin,tieude,tomtat,noidung,images)
b. Source Code
///Function lấy RSS của các link (vd LinkRSS của Tuổi trẻ mục tin thế giới)
http://www.tuoitre.com.vn/tianyon/Rs...px?ChannelID=2
Imports System.Xml.XPath

Public Sub GetFeed(ByVal RSSURL As String)
Try
' Bring back the Feed
Dim doc As New XPathDocument(RSSURL)
Dim nav As XPathNavigator = doc.CreateNavigator()
Dim iter As XPathNodeIterator = nav.Select("/rss/channel/item")
' Loop through the nodes
While iter.MoveNext()
' Get the data we need from the node
ProcessNode(iter.Current)
End While

Catch ex As Exception
Console.WriteLine(ex.Message.ToString())
End Try
End Sub
Sub ProcessNode(ByVal lstNav As XPathNavigator)
Dim rssTitle As String = "title"
Dim rssLink As String = "link"
Dim rssDescription As String = "description"
Dim rsspubDate As String = "pubDate"
' Get the child nodes
Dim iterNews As XPathNodeIterator = lstNav.SelectDescendants(XPathNodeType.Element, False)
' Loop through the child nodes
While iterNews.MoveNext()
' Save the current Name
Dim rssName As String = iterNews.Current.Name

' Is this the title?
If rssName.ToUpper() = rssTitle.ToUpper() Then
stitle = iterNews.Current.Value
End If
' Is this the Link?
If rssName.ToUpper() = rssLink.ToUpper() Then
link = iterNews.Current.Value
End If
' Is this the Description?
If rssName.ToUpper() = rssDescription.ToUpper() Then
description = iterNews.Current.Value
End If
If rssName.ToUpper() = rsspubDate.ToUpper Then
pubdate = iterNews.Current.Value
End If
If rssName.ToUpper = rsssource.ToUpper Then
source = iterNews.Current.Value
End If
End While
'them vao co so du lieu
insertNews(stitle, description, link, pubdate)
End Sub
'Mình chỉ tóm tắt source code thôi nhé , các bạn tự vận dụng cho chính chương trình của các bạn
'/////////////CÁCH LẤY TIN CHI TIẾT NỘI DUNG CỦA MỘT TIN TỨC
Không biết vì lý do gì mà các trang tin tức cung cấp link RSS lại không cung cấp tin chi tiết nội dung của trang tin đó. Link RSS chỉ cung cấp Tiêu đề tin, tóm tắt tin và link đến chi tiết tin của trang đó. Khi gặp khó khăn này, mình đã nghĩ ra một cách là đọc trang tin chi tiết đó, và chọn lọc ra phần chi tiết tin để thêm vào database của mình.