Perjalanan panjang mencari ilmu yang hilang
Membuat RSS fedd dengan ASP.NET ternyata mudah lho? ikuti tutorial dari saya berikut ini dengan asumsi anda sudah membuat website dengan Visual Studio atau Visual Web Developer. Buat satu halaman web dengan nama “rss.aspx”, kemudian hapus semua tag html yang ada sehingga hanya ada:
<%@ Page Language=”VB” ContentType=”text/xml” AutoEventWireup=”false” CodeFile=”rss.aspx.vb” Inherits=”rss” %>
Buat tabel database “tabel_News” dengan field-filednya newsID (int, PK, inc), tanggal (datetime), judul (varchar 150), headline (varchar 500) , penulis (varchar 100) dan lainnya jika diperlukan, tetapi disini sayahanay menampilkan filed-filed tersebut diatas.
Untuk menampilkan news feed yang kita inginkan melalui website kita, saya menggunakan repater control. Drag repeater control dari tools visual studio, sehingga halaman web menjadi:
<asp:Repeater ID="rptRSS" runat="server">
<HeaderTemplate>
<rss version="2.0">
<channel>
<title>BERANI News!</title>
<link>http://www.berani.co.id</link>
<description>
This is the syndication feed from Berani.co.id.
</description>
</HeaderTemplate>
<ItemTemplate>
<item>
<title>
<%#FormatForXML(DataBinder.Eval(Container.DataItem, "Title"))%>
</title>
<description>
<%#FormatForXML(DataBinder.Eval(Container.DataItem, "Headline"))%>
</description>
<link>
http://www.websiteanda.com/Artikel_Detail.aspx?ID=&
lt;%#DataBinder.Eval(Container.DataItem, "NewsID")%>
</link>
<author><%#FormatForXML(DataBinder.Eval(Container.DataItem,
"Penulis"))%>
</author>
<pubDate>
<%#String.Format("{0:R}", DataBinder.Eval(Container.DataItem, "Created"))%>
</pubDate>
</item>
</ItemTemplate>
<FooterTemplate>
</channel>
</rss>
</FooterTemplate>
</asp:Repeater>
Tuliskan code berikut ini, saya menggunakan VB.NET:
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlClient.SqlDataReader
Partial Class rss
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim strConnString As String = _
System.Configuration.ConfigurationManager.ConnectionStrings.Item _
("someConnectionString").ToString()
Dim conn As New SqlConnection(strConnString)
Dim SQL_QUERY As String = "SELECT TOP 10 NewsID, Judul, Penulis, " _
+ "Headline, Tanggal " + "FROM tabel_News ORDER BY Tanggal DESC"
Dim myCommand As New SqlCommand(SQL_QUERY, conn)
'Bind the result to the repeater
conn.Open()
rptRSS.DataSource = myCommand.ExecuteReader()
rptRSS.DataBind()
conn.Close()
End Sub
Protected Function FormatForXML(ByVal input As Object) As String
Dim data As String = input.ToString()
data = data.Replace("&", "&")
data = data.Replace("""", """)
data = data.Replace("'", "'")
data = data.Replace("<", "<")
data = data.Replace(">", ">")
Return data
End Function
End Class
Buka file rss.aspx melalui browser anda, dah whalaa..!!!
Guys, begitu banyak ilmu pengetahuan yang diberikan Allah SWT kepada ummatnya untuk dipelajari dan dicari dan sekarang ini mencari ilmu semakin mudah dengan adanya internet tapi anehnya semakin mahal kalo kita kuliah he..he..he.. tapi itu bukan masalah bro! yang penting selalu belajar dan belajar dan mencari apa yang belum kita dapatkan dalam perjalanan panjang ini.
Leave a reply