大家都知道酒酿蛋是非常传统的美胸食品产后丰胸产品,醪糟也叫酒酿,是由糯米或者大米经过酵母发酵而制成的一种风味食品,其产热量高,富含碳水化合物丰胸产品燕窝酒酿蛋、蛋白质、b族维生素、矿物质等,这些都是人体不可缺少的营养成分酒酿蛋丰胸方法。其中酒酿中含的醣化酵素,能促进乳房的二次发育,具有美胸的作用燕窝酒酿蛋丰胸
ايجاد فايل های RSS و نحوه استفاده از آنان ( بخش دوم )
اين مطلب از طريق سايت شرکت سخاروش در اختيار شما گذاشته شده است .

ايجاد فايل های  RSS  و نحوه استفاده از آنان ( بخش دوم )

در بخش اول اين مقاله با فايل های RSS و موارد استفاده از آنان آشنا شديم . در بخش دوم به بررسی نحوه ايجاد فايل های RSS با استفاده از يک بانک اطلاعاتی و بهنگام سازی اتوماتيک آنان خواهيم پرداخت .
اطلاعات موجود در فايل های RSS را می توان به صورت دستی و با استفاده از يک اديتور متنی و يا يک اديتور XML ايجاد نمود. در صورتی که فرکانس تغيير اطلاعات زياد باشد، روش فوق گزينه ای مناسب نخواهد بود. در چنين مواردی می توان اطلاعات مورد نظر را از بانک اطلاعاتی مربوطه ( اخبار ، مقالات )  بازيابی و آنان را در فايل RSS درج نمود . بدين ترتيب در صورت بروز هر گونه تغيير در بانک اطلاعاتی ، فايل RSS نيز به صورت اتوماتيک بهنگام می گردد.

مثال : ايجاد  RSS با استفاده از يک بانک اطلاعاتی
در اين مثال قصد د اريم اطلاعات را از يک بانک اطلاعاتی اکسس خوانده و به صورت يک فايل XML با فرمت RSS ذخيره نمائيم .

فرضيات :

اندازه

نوع

نام فيلد

 

Date/Time

PubDate

100

Text

Title

100

Text

Link

 

Memo

Description

ايجاد يک فايل RSS

مرحله اول : تايپ کد زير با استفاده از يک ويرايشگر
اسکريپت های زير يک فايل RSS 2.0 را با توجه به اطلاعات موجود در بانک اطلاعاتی RSS.mdb ايجاد و آن را با نام RSS.XML در فهرست ريشه وب مورد نظر ذخيره می نمايد. 

<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.IO" %>

<SCRIPT runat="server">

   Sub Page_Load
       Create_RSS ()
   End Sub

Sub Create_RSS ( )

Dim DBConnection As OleDbConnection
Dim DBCommand As OleDbCommand
Dim DBReader As OleDbDataReader
Dim SQLString As String
Dim FileWriter As StreamWriter

DBConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\RSS.mdb")
DBConnection.Open()
SQLString = "SELECT * FROM XMLLink"
DBCommand = New OleDbCommand(SQLString, DBConnection)
DBReader = DBCommand.ExecuteReader()

FileWriter = File.CreateText(MapPath("RSS.xml"))

FileWriter.WriteLine("<?xml version=""1.0"" encoding=""utf-8"" ?>" )
FileWriter.WriteLine("<rss version=""2.0"">" )

 
FileWriter.WriteLine("<channel>")
FileWriter.WriteLine("<title>Sakha Ravseh </title>")
FileWriter.WriteLine("<link>http://www.srco.ir/</link>")
FileWriter.WriteLine("<description>Software ,Hardware ,Network </description>")

While DBReader.Read()
  FileWriter.WriteLine("<item>")
  FileWriter.WriteLine("<pubDate>" & DBReader("PubDate") & "</pubDate>")
  FileWriter.WriteLine("<title>" & DBReader("Title") & "</title>")
  FileWriter.WriteLine("<link>" & DBReader("Link") & "</link>")
  FileWriter.WriteLine("<description>" & DBReader("Description") & "</description>")
  FileWriter.WriteLine("</item>")
End While

FileWriter.WriteLine("</channel>")
FileWriter.WriteLine("</rss>")
FileWriter.Close()

DBReader.Close()
DBConnection.Close()

End Sub

</SCRIPT>

 مرحله دوم :  پس از ذخيره کد فوق در فايلی با نام MakeRss.aspx و اجرای آن ، فايل RSS.xml ايجاد می گردد .

توضيحات :

Dim FileReader As StreamReader

FileReader = File.OpenText(path)
FileLine = FileReader.ReadLine()
FileContents = FileReader.ReadToEnd()

FileReader.Close()

Dim FileWriter As StreamWriter

FileWriter = File.CreateText(path)
FileWriter = File.AppendText(path)
FileWriter.WriteLine(text)
FileWriter.Write(text)

FileWriter.Close()

 بهنگام سازی اتوماتيک فايل  RSS  
محتويات يک فايل RSS متاثر از داده های موجود در بانک اطلاعاتی است . بديهی است در صورتی که لينک های جديدی به بانک اضافه شده و يا لينک هائی حذف گردد ، می بايست فايل RSS بهنگام گردد . در مثال فوق ، عمليات بهنگام سازی فايل RSS صرفا" پس از اجرای اسکريپت های نوشته شده ، انجام خواهد شد ( اجرای فايل MakeRss.aspx ) . ما نيازمند روشی هستيم که بر اساس آن فرآيند بهنگام سازی فايل RSS  به صورت اتوماتيک و با توجه به آخرين اطلاعات موجود در بانک اطلاعاتی ، انجام شود . بدين منظور می توان اسکريپت های توليد کننده فايل RSS را در يک صفحه aspx . مستقر نموده  و پس از ايجاد فايل RSS  و با استفاده از متد Redirect  فايل RSS.xml  نمايش داده شود.
بدين ترتيب ، پس از کليک بر روی لينک مربوطه که معمولا" به صورت يک دکمه گرافيکی  ( ) است ، اسکريپت ها اجراء ، فايل RSS.XML توليد و در نهايت با استفاده از متد Redirect  فايل RSS.xml  نمايش داده می شود.( لينک ارائه شده به صفحه MakeRss.aspx است نه به فايل RSS.xml )

<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.IO" %>

<SCRIPT runat="server">

Sub Page_Load

Dim DBConnection As OleDbConnection
Dim DBCommand As OleDbCommand
Dim DBReader As OleDbDataReader
Dim SQLString As String
Dim FileWriter As StreamWriter

DBConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\RSS.mdb")
DBConnection.Open()
SQLString = "SELECT * FROM XMLLink"
DBCommand = New OleDbCommand(SQLString, DBConnection)
DBReader = DBCommand.ExecuteReader()

FileWriter = File.CreateText(MapPath("RSS.xml"))
FileWriter.WriteLine("<rss version=""2.0"">" )
FileWriter.WriteLine("<channel>")
FileWriter.WriteLine("<title>Sakha Ravseh </title>")
FileWriter.WriteLine("<link>http://www.srco.ir/</link>")
FileWriter.WriteLine("<description>Software ,Hardware ,Network </description>")

While DBReader.Read()
  FileWriter.WriteLine("<item>")
  FileWriter.WriteLine("<pubDate>" & DBReader("PubDate") & "</pubDate>")
  FileWriter.WriteLine("<title>" & DBReader("Title") & "</title>")
  FileWriter.WriteLine("<link>" & DBReader("Link") & "</link>")
  FileWriter.WriteLine("<description>" & DBReader("Description") & "</description>")
  FileWriter.WriteLine("</item>")
End While

FileWriter.WriteLine("</channel>")
FileWriter.WriteLine("</rss>")
FileWriter.Close()

DBReader.Close()
DBConnection.Close()
Response.Redirect("http://www.srco.ir/RSS.xml")

End Sub

</SCRIPT>

 


استفاده از اين مطلب  با ذکر منبع و اهداف غيرانتفاعی بلامانع است .
http://www.srco.
ir