shahramasp
یک شنبه 02 مهر 1385, 12:36 عصر
آیا میشه یک سری خبر رو از یک rss مطلق به سایت دیگری رو خوند و ریخت تو دیتا بیس !
فوری لطفا
titbasoft
یک شنبه 02 مهر 1385, 13:12 عصر
چرا که نه؟ اگر مشکل خوندن اطلاعات از یک RSS است، با کمی یاری گرفتن از گوگل (http://www.google.com/search?sourceid=navclient-ff&ie=UTF-8&rls=GAPB,GAPB:2005-09,GAPB:en&q=rss+reader+asp.net)کلی سورس RSS Reader پیدا خواهی کرد.
shahramasp
یک شنبه 02 مهر 1385, 13:16 عصر
خوندنش که مشکلی نیست دوست من ولی اینکه بتونیم به شکل یه متن اونو برزیم تو دیتا بیس مسئله است . اگه لطف کنی راهنمایی کنی ممنون می شم
nazaninam
دوشنبه 03 مهر 1385, 17:11 عصر
دوست عزیز یکم جستجو کنید مطالب زیاده
Dim ds As New DataSet
ds.ReadXml("http://xml.weather.yahoo.com/forecastrss?p=" + DropDownList2.SelectedValue + "&u=f")
این کدی که منو نوشتم یک rss رو از داخل سایت یاهو می خونه و توی دیست ذخیره می کنه
خوب شما میتونید همین دیتاست رو مستقیم یا با تغییر بریزید توی دیتابیس
AFSHIN_REFUA
دوشنبه 03 مهر 1385, 23:45 عصر
:شیطان: :شیطان: :شیطان: سلام این هم rss reader و rss writer
rss یک جور xml است پس page شما باید out put type از نوع xml داشته باشد
Imports System.Xml
Public Class ConsumeRss
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents RssDataGrid As System.Web.UI.WebControls.DataGrid
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Cache("ASPMBPosts") Is Nothing Then
'Item not in cache, get it manually
Dim dt As DataTable = GetRSSFeed("http://localhost/Rss/RssNews.aspx")
Cache.Insert("ASPMBPosts", dt, Nothing, DateTime.Now.AddSeconds(30), TimeSpan.Zero)
End If
RssDataGrid.DataSource = Cache("ASPMBPosts")
RssDataGrid.DataBind()
End Sub
Function GetRSSFeed(ByVal strURL As String) As DataTable
'Get the XML data
Dim reader As XmlTextReader = New XmlTextReader(strURL)
'return a new DataSet
Dim ds As DataSet = New DataSet
ds.ReadXml(reader)
Return ds.Tables(2)
End Function
End Class
رشته ما خیلی زود پیر میکند
--------------------
این هم اونورش
Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.Text
Imports System.Web
Imports System.Xml
Public Class RssNews
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Response.Clear()
Response.ContentType = "text/xml"
Dim objX As New XmlTextWriter(Response.OutputStream, Encoding.UTF8)
objX.WriteStartDocument()
objX.WriteStartElement("rss")
objX.WriteAttributeString("version", "2.0")
objX.WriteStartElement("channel")
objX.WriteElementString("title", "uberASP.Net NewsWire")
objX.WriteElementString("link", "http://www.uberasp.net/newswire.aspx")
objX.WriteElementString("description", "The Latest Headlines And Articles From The World Of ASP.NET,Microsoft() 's Web development platform.")
objX.WriteElementString("Copyright", "(c) 2004, Qoqnoos Group, LLC. All Rights Reserved.")
objX.WriteElementString("ttl", "5")
Dim objConnection As New SqlConnection("Server=(local); DataBase=northwind; uid=sa; pwd=123")
objConnection.Open()
Dim sql As String = "SELECT TOP 10 Title, Description, Id, PostTime FROM tblRssNews ORDER BY PostTime DESC"
Dim objCommand As New SqlCommand(sql, objConnection)
Dim objReader As SqlDataReader = objCommand.ExecuteReader()
While objReader.Read()
objX.WriteStartElement("item")
objX.WriteElementString("title", objReader("Title"))
objX.WriteElementString("description", objReader("Description"))
objX.WriteElementString("link", "http://Local/GetNews.aspx?NewsId=" + CStr(objReader("Id")))
objX.WriteElementString("pubDate", objReader("PostTime").ToString())
objX.WriteEndElement()
End While
objReader.Close()
objConnection.Close()
objX.WriteEndElement()
objX.WriteEndElement()
objX.WriteEndDocument()
objX.Flush()
objX.Close()
Response.End()
End Sub
End Class
shahramasp
سه شنبه 04 مهر 1385, 11:46 صبح
ممنون ازتون تشکر
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.