matin63
یک شنبه 16 دی 1386, 14:22 عصر
سلام من کدای زیرو وارد کردم ولی توی google reader به این شکل خبرام رو نشون میده!
مرثيه اي بر کا٠ه کتابها ... ! پاتوقهاي ٠رهنگي مشهد کجا هستند ؟!http://www.google.com/reader/ui/2412528845-go-to.gif (http://mashhadpress.com/editorial.aspx?id=2)
from mashhadpress (http://www.google.com/reader/view/feed/http%3A%2F%2Fmashhadpress.com%2Frss.xml)
کا٠ه کتاب آنقدرها هم Ú©Ù‡ گمان مي کنيم عنوان غريبي نيست. تاريخ Ùˆ ٠رهنگ ايران از دهه هاي بيست Ùˆ سي با اينگونه مکانها Ùˆ ٠ضاها عجين شده است. زمانيکه گروهي درکا٠ه ها يا مکانهاي اينچنيني جمع شده Ùˆ به تبادل ا٠کار مي پرداختند.شاعر ان،نويسندگا٠و روشن٠کران امثال نيما يوشيج،صادق هدايت،٠روغ ٠رخزاد Ùˆ... پاتوقهاي مشخصي داشتند براي گذراندن اوقات Ùˆ بØØ« Ùˆ تبادل انديشه.
کدای من به این شکله
ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
Create_RSS()
EndSub
Sub Create_RSS()
Dim DBCommand As SqlCommand
Dim DBReader As SqlDataReader
Dim SQLString AsString
Dim FileWriter As StreamWriter
Dim DBConnection AsNew Data.SqlClient.SqlConnection(strcon)
DBConnection.Open()
SQLString = "SELECT top 3 * FROM vahed"
DBCommand = New SqlCommand(SQLString, DBConnection)
DBReader = DBCommand.ExecuteReader()
FileWriter = File.CreateText(MapPath("RSS.xml"))
FileWriter.WriteLine("<rss version=""2.0"" encoding=""utf-8"">")
FileWriter.WriteLine("<channel>")
FileWriter.WriteLine("<title>press</title>")
FileWriter.WriteLine("<link>http://press.com</link>")
FileWriter.WriteLine("<description>news</description>")
While DBReader.Read()
FileWriter.WriteLine("<item>")
Session("idnew") = DBReader("id")
FileWriter.WriteLine("<pubDate>" & DBReader("date1") & "</pubDate>")
FileWriter.WriteLine("<title>" & DBReader("titr") & "</title>")
FileWriter.WriteLine("<link>" & DBReader("adress") & "</link>")
Literal1.Text = DBReader("kholase")
Literal1.Text = Literal1.Text.Replace("</br>", Chr(13))
FileWriter.WriteLine("<description>" & Literal1.Text & "</description>")
FileWriter.WriteLine("</item>")
EndWhile
DBConnection.Close()
DBConnection.Open()
SQLString = "SELECT top 3 * FROM note"
Dim DBCommands As SqlCommand
DBCommands = New SqlCommand(SQLString, DBConnection)
DBReader = DBCommands.ExecuteReader()
While DBReader.Read()
FileWriter.WriteLine("<item>")
Session("idnote") = DBReader("id")
FileWriter.WriteLine("<pubDate>" & DBReader("date1") & "</pubDate>")
FileWriter.WriteLine("<title>" & DBReader("titr") & "</title>")
FileWriter.WriteLine("<link>" & DBReader("adress") & "</link>")
Literal2.Text = DBReader("kholase")
Literal2.Text = Literal2.Text.Replace("</br>", Chr(13))
FileWriter.WriteLine("<description>" & Literal2.Text & "</description>")
FileWriter.WriteLine("</item>")
EndWhile
DBConnection.Close()
DBConnection.Open()
SQLString = "SELECT top 3 * FROM news"
Dim DBCommands1 As SqlCommand
DBCommands1 = New SqlCommand(SQLString, DBConnection)
DBReader = DBCommands1.ExecuteReader()
While DBReader.Read()
Session("id1") = DBReader("id")
FileWriter.WriteLine("<item>")
FileWriter.WriteLine("<pubDate>" & DBReader("date1") & "</pubDate>")
FileWriter.WriteLine("<title>" & DBReader("titr") & "</title>")
FileWriter.WriteLine("<link>" & DBReader("adress") & "</link>")
Literal3.Text = DBReader("kholase")
Literal3.Text = Literal3.Text.Replace("</br>", Chr(13))
FileWriter.WriteLine("<description>" & Literal3.Text & "</description>")
FileWriter.WriteLine("</item>")
EndWhile
DBConnection.Close()
DBConnection.Open()
SQLString = "SELECT top 3 * FROM cofee"
Dim DBCommands2 As SqlCommand
DBCommands2 = New SqlCommand(SQLString, DBConnection)
DBReader = DBCommands2.ExecuteReader()
While DBReader.Read()
FileWriter.WriteLine("<item>")
Session("idnazar") = DBReader("id")
FileWriter.WriteLine("<pubDate>" & DBReader("date1") & "</pubDate>")
FileWriter.WriteLine("<title>" & DBReader("titr") & "</title>")
FileWriter.WriteLine("<link>" & DBReader("adress") & "</link>")
Literal4.Text = DBReader("kholase")
Literal4.Text = Literal4.Text.Replace("</br>", Chr(13))
FileWriter.WriteLine("<description>" & Literal4.Text & "</description>")
FileWriter.WriteLine("</item>")
EndWhile
FileWriter.WriteLine("</channel>")
FileWriter.WriteLine("</rss>")
FileWriter.Close()
DBReader.Close()
DBConnection.Close()
Response.Redirect("RSS.xml")
EndSub
مرثيه اي بر کا٠ه کتابها ... ! پاتوقهاي ٠رهنگي مشهد کجا هستند ؟!http://www.google.com/reader/ui/2412528845-go-to.gif (http://mashhadpress.com/editorial.aspx?id=2)
from mashhadpress (http://www.google.com/reader/view/feed/http%3A%2F%2Fmashhadpress.com%2Frss.xml)
کا٠ه کتاب آنقدرها هم Ú©Ù‡ گمان مي کنيم عنوان غريبي نيست. تاريخ Ùˆ ٠رهنگ ايران از دهه هاي بيست Ùˆ سي با اينگونه مکانها Ùˆ ٠ضاها عجين شده است. زمانيکه گروهي درکا٠ه ها يا مکانهاي اينچنيني جمع شده Ùˆ به تبادل ا٠کار مي پرداختند.شاعر ان،نويسندگا٠و روشن٠کران امثال نيما يوشيج،صادق هدايت،٠روغ ٠رخزاد Ùˆ... پاتوقهاي مشخصي داشتند براي گذراندن اوقات Ùˆ بØØ« Ùˆ تبادل انديشه.
کدای من به این شکله
ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
Create_RSS()
EndSub
Sub Create_RSS()
Dim DBCommand As SqlCommand
Dim DBReader As SqlDataReader
Dim SQLString AsString
Dim FileWriter As StreamWriter
Dim DBConnection AsNew Data.SqlClient.SqlConnection(strcon)
DBConnection.Open()
SQLString = "SELECT top 3 * FROM vahed"
DBCommand = New SqlCommand(SQLString, DBConnection)
DBReader = DBCommand.ExecuteReader()
FileWriter = File.CreateText(MapPath("RSS.xml"))
FileWriter.WriteLine("<rss version=""2.0"" encoding=""utf-8"">")
FileWriter.WriteLine("<channel>")
FileWriter.WriteLine("<title>press</title>")
FileWriter.WriteLine("<link>http://press.com</link>")
FileWriter.WriteLine("<description>news</description>")
While DBReader.Read()
FileWriter.WriteLine("<item>")
Session("idnew") = DBReader("id")
FileWriter.WriteLine("<pubDate>" & DBReader("date1") & "</pubDate>")
FileWriter.WriteLine("<title>" & DBReader("titr") & "</title>")
FileWriter.WriteLine("<link>" & DBReader("adress") & "</link>")
Literal1.Text = DBReader("kholase")
Literal1.Text = Literal1.Text.Replace("</br>", Chr(13))
FileWriter.WriteLine("<description>" & Literal1.Text & "</description>")
FileWriter.WriteLine("</item>")
EndWhile
DBConnection.Close()
DBConnection.Open()
SQLString = "SELECT top 3 * FROM note"
Dim DBCommands As SqlCommand
DBCommands = New SqlCommand(SQLString, DBConnection)
DBReader = DBCommands.ExecuteReader()
While DBReader.Read()
FileWriter.WriteLine("<item>")
Session("idnote") = DBReader("id")
FileWriter.WriteLine("<pubDate>" & DBReader("date1") & "</pubDate>")
FileWriter.WriteLine("<title>" & DBReader("titr") & "</title>")
FileWriter.WriteLine("<link>" & DBReader("adress") & "</link>")
Literal2.Text = DBReader("kholase")
Literal2.Text = Literal2.Text.Replace("</br>", Chr(13))
FileWriter.WriteLine("<description>" & Literal2.Text & "</description>")
FileWriter.WriteLine("</item>")
EndWhile
DBConnection.Close()
DBConnection.Open()
SQLString = "SELECT top 3 * FROM news"
Dim DBCommands1 As SqlCommand
DBCommands1 = New SqlCommand(SQLString, DBConnection)
DBReader = DBCommands1.ExecuteReader()
While DBReader.Read()
Session("id1") = DBReader("id")
FileWriter.WriteLine("<item>")
FileWriter.WriteLine("<pubDate>" & DBReader("date1") & "</pubDate>")
FileWriter.WriteLine("<title>" & DBReader("titr") & "</title>")
FileWriter.WriteLine("<link>" & DBReader("adress") & "</link>")
Literal3.Text = DBReader("kholase")
Literal3.Text = Literal3.Text.Replace("</br>", Chr(13))
FileWriter.WriteLine("<description>" & Literal3.Text & "</description>")
FileWriter.WriteLine("</item>")
EndWhile
DBConnection.Close()
DBConnection.Open()
SQLString = "SELECT top 3 * FROM cofee"
Dim DBCommands2 As SqlCommand
DBCommands2 = New SqlCommand(SQLString, DBConnection)
DBReader = DBCommands2.ExecuteReader()
While DBReader.Read()
FileWriter.WriteLine("<item>")
Session("idnazar") = DBReader("id")
FileWriter.WriteLine("<pubDate>" & DBReader("date1") & "</pubDate>")
FileWriter.WriteLine("<title>" & DBReader("titr") & "</title>")
FileWriter.WriteLine("<link>" & DBReader("adress") & "</link>")
Literal4.Text = DBReader("kholase")
Literal4.Text = Literal4.Text.Replace("</br>", Chr(13))
FileWriter.WriteLine("<description>" & Literal4.Text & "</description>")
FileWriter.WriteLine("</item>")
EndWhile
FileWriter.WriteLine("</channel>")
FileWriter.WriteLine("</rss>")
FileWriter.Close()
DBReader.Close()
DBConnection.Close()
Response.Redirect("RSS.xml")
EndSub