Отправляет email-рассылки с помощью сервиса Sendsay

Visual Basic: новости сайтов, советы, примеры кодов.

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 4.067 RSS
←   Октябрь 2007   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
22.10.2007
11:26:45
12:06:45
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://vbnet.ru
Открыта: 31-07-2001

Автор
Павел Сурменок

Статистика

4.067 подписчиков
0 за неделю
←   Все выпуски   →

RSS – это просто. С Visual Basic 9.0


Visual Basic: новости сайтов, советы, примеры кодов

 VBNet.Ru
Выпуск от Павла Сурменка



RSS – это просто. С Visual Basic 9.0

 

Последние дни коллега поражает меня возможностями VB 9.0. Вот один из примеров того, как "одной левой" сделать то, что без VB9 получится сделать только "тремя правыми":

 

 

RSS – это просто. С Visual Basic 9.0

Понадобилось быстренько сделать RSS-фид на сайте. Первая мысль которая пришла в голову - разумеется, взять rss toolkit и с его помощью быстренько все сделать.

Но тут пришла в голову дерзкая мысль и... получилось это:

            Dim RssContent = <?xml version="1.0" encoding="utf-8"?>

                             <rss version="2.0">

                                 <channel>

                                     <title>Feed Title</title>

                                     <description>Feed Description</description>

                                     <link>http://mysite.ru/</link>

                                     <pubDate><%= DateTime.Now.ToString("r") %></pubDate>

                                     <lastBuildDate><%= DateTime.Now.ToString("r") %></lastBuildDate>

                                     <generator>BetaCode RSS Generator</generator>

                                     <%= From a In Answers _

                                         Select <item>

                                                    <title><%= a.ShortQuestion %></title>

                                                    <link><%= "http://mysite.ru/Question.aspx?id=" + a.id.ToString %></link>

                                                    <description><%= context.Server.HtmlDecode(a.Question) + " <a href='http://mysite.ru/Question.aspx?id=" + a.id.ToString + "'>читать далее</a>" %></description>

                                                    <category><%= a.Category1.name %></category>

                                                    <guid><%= "http://mysite.ru/Question.aspx?id=" + a.id.ToString %></guid>

                                                    <pubDate><%= If(a.DateCreated, DateTime.Now).ToString("r") %></pubDate>

                                                </item> %>

                                 </channel>

                             </rss>

            RssContent.Save(context.Response.Output)

 

Не спорю - это не самый правильный и оптимальный метод генерации RSS. Но зато как красиво демонстрирует по сути неограниченые возможности легендарного "Deep XML Support" thumbs_up

Артем Кривокрисенко

 

 

 

На сегодня всё. До новых встреч.

Павел Сурменок

VBNet
В избранное