创建ASP.NET联合订阅与SqlConnection和VB.NET [英] Create ASP.NET Syndication Feeds with SqlConnection and VB.NET
问题描述
这似乎是斯科特·米切尔一个伟大的文章在 ASP.NET 3.5 创建联合供稿。我的问题是,它使用C#和LINQ,这我不是在当前时间一样锋利。
This seems to be a great article by Scott Mitchell for creating syndicated feeds in ASP.NET 3.5. The problem for me is that it uses C# and Linq, which I'm not as sharp on at the current time.
<一个href=\"http://dotnetslackers.com/articles/aspnet/How-to-create-a-syndication-feed-for-your-website.aspx\" rel=\"nofollow\">http://dotnetslackers.com/articles/aspnet/How-to-create-a-syndication-feed-for-your-website.aspx
有谁知道在哪里的例子可能存在可以使用产生喜欢这篇文章银团饲料 System.ServiceModel.Syndication
命名空间的 VB.NET 和的SQLConnection 对象?
Does anyone know where an example might exist for the System.ServiceModel.Syndication
namespace that can produce a syndicated feed like this article using VB.NET and a SQLConnection object?
我环顾四周,每一个例子似乎在C#和LINQ(这可能是证明了我需要学习他们很快,而不是更高版本)中产生。
I've looked around and every example seems to be produced in C# and Linq (which is probably a testament to my need to learn them soon rather than later).
推荐答案
您可能已经搞明白了现在,但这里的完整性的实现以及一些VB的爱(和对的Necromancer徽章。)
You’ve probably figured it out by now, but here’s an implementation for completeness and some VB love (and an attempt for the Necromancer badge. :)
aspx页面很简单,注意60秒的缓存:
The aspx page is simple, note the 60 second cache:
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Default.aspx.vb" Inherits="YourProject._Default" %>
<%@ OutputCache Duration="60" VaryByParam="Type" %>
您可能要考虑使用一个HttpHandler代替,但这样会工作得很好了。
You probably want to consider using an HttpHandler instead, but this will work just fine too.
在code背后:
Imports System.ServiceModel.Syndication
Imports System.Xml
Partial Public Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim dbConn As String = "[your db connection]"
Dim format As FeedFormats = GetFeedFormat()
Dim posts As New List(Of SyndicationItem)
Using cnn As New SqlClient.SqlConnection(dbConn)
cnn.Open()
Using cmd As New SqlClient.SqlCommand("SELECT ID, Title, Text, Url, Created FROM Posts", cnn)
Dim reader As SqlClient.SqlDataReader = cmd.ExecuteReader
While reader.Read
Dim item As New SyndicationItem(reader.Item("Title"), reader("Text"), New Uri(reader("Url")))
posts.Add(item)
End While
End Using
End Using
Dim feed As New SyndicationFeed("Your feed title", "Your feed description", New Uri("http://yourdomain.com"), posts)
Using feedWriter As XmlWriter = XmlWriter.Create(Response.OutputStream)
Select Case format
Case FeedFormats.Atom
Response.ContentType = "application/rss+xml"
Dim atomFormatter As New Atom10FeedFormatter(feed)
atomFormatter.WriteTo(feedWriter)
Case FeedFormats.Rss
Response.ContentType = "application/atom+xml"
Dim rssFormatter As New Rss20FeedFormatter(feed)
rssFormatter.WriteTo(feedWriter)
End Select
End Using
End Sub
Private Function GetFeedFormat() As FeedFormats
If Request.QueryString("format") = "atom" Then
Return FeedFormats.Atom
Else
Return FeedFormats.Rss
End If
End Function
Public Enum FeedFormats
Rss = 1
Atom = 2
End Enum
End Class
最后,对于超完整性,用于创建表的SQL脚本:
Finally, for super-completeness, the SQL script for creating the table:
CREATE TABLE [dbo].[Posts](
[ID] [int] IDENTITY(1,1) NOT NULL,
[Title] [nvarchar](50) NOT NULL,
[Text] [ntext] NOT NULL,
[Url] [nvarchar](50) NOT NULL,
[Created] [datetime2](7) NOT NULL,
CONSTRAINT [PK_Posts] PRIMARY KEY CLUSTERED
(
[ID] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO
ALTER TABLE [dbo].[Posts] ADD CONSTRAINT [DF_Posts_Url] DEFAULT ('') FOR [Url]
GO
ALTER TABLE [dbo].[Posts] ADD CONSTRAINT [DF_Posts_Created] DEFAULT (getdate()) FOR [Created]
GO
完成。 VB.NET,SQL连接,在 System.ServiceModel.Syndication
命名空间,并没有LINQ。 :)
Done. VB.NET, a SQL Connection, the System.ServiceModel.Syndication
namespace, and no LINQ. :)
更新:上得了11-11-2010死灵法师徽章。好极了!谢谢! :)
Update: Got the Necromancer badge on 11-11-2010. Yay! Thanks! :)
这篇关于创建ASP.NET联合订阅与SqlConnection和VB.NET的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!