当前文件： SmallBusinessStarterKit/smallbusiness_vb/App_Code/News/XmlNewsProvider.vb[2K，2009-6-12 11:54:22]，打开代码结构图

		            
 1Imports Microsoft.VisualBasic
 2Imports System
 3Imports System.Data
 4Imports System.Configuration
 5Imports System.Web
 6Imports System.Web.Security
 7Imports System.Web.UI
 8Imports System.Web.UI.WebControls
 9Imports System.Web.UI.WebControls.WebParts
10Imports System.Web.UI.HtmlControls
11Imports System.Xml
12Imports System.Xml.Schema
13Imports System.IO
14Imports System.Collections.Generic
15
16
17
18'/ <summary>
19'/ XML Data Layer for News Page
20'/ </summary>
21Public Class XmlNewsProviderClass XmlNewsProvider
22    Inherits NewsProvider
23    Private _xmlFile As String
24    Private _xsdFile As String
25
26
27    '/ <summary>
28    '/ Reads xml and xsd file names from the web.config file
29    '/ </summary>
30    Public Sub New()Sub New()
31        Dim sec As SmallBusinessDataProvidersSection = ConfigurationManager.GetSection("SmallBusinessDataProviders") '
32        Dim xmlFile As String = sec.NewsProviders(sec.NewsProviderName).Parameters("dataFile")
33        Dim xsdFile As String = sec.NewsProviders(sec.NewsProviderName).Parameters("schemaFile")
34
35        _xmlFile = HttpContext.Current.Request.MapPath(("~/App_Data/" + xmlFile))
36        _xsdFile = HttpContext.Current.Request.MapPath(("~/App_Data/schemas/" + xsdFile))
37    End Sub 'New
38
39    '/ <summary>
40    '/ Returns all news items
41    '/ </summary>
42    Public Overrides Function GetAllNews()Function GetAllNews() As List(Of NewsItem)
43        Dim dataSet As DataSet = Util.ReadAndValidateXml(_xmlFile, _xsdFile)
44        Dim list As List(Of NewsItem) = New List(Of NewsItem)
45        Dim t As DataTable
46        For Each t In dataSet.Tables
47            Dim curr As NewsItem
48            Dim r As DataRow
49            For Each r In t.Rows
50                curr = New NewsItem(CStr(r("id")), CBool(r("visible")), CStr(r("title")))
51                curr.Date = Util.ReturnEmptyStringIfDbNull(r("date"))
52                curr.Content = Util.ReturnEmptyStringIfDbNull(r("content"))
53                curr.ImageUrl = Util.ReturnEmptyStringIfDbNull(r("imageUrl"))
54                curr.ImageAltText = Util.ReturnEmptyStringIfDbNull(r("imageAltText"))
55                list.Add(curr)
56            Next r
57        Next t
58
59        Return list
60    End Function 'New
61
62
63    Public Overrides Function GetNewsItem()Function GetNewsItem(ByVal newsItemId As String) As NewsItem
64        Dim newsItems As List(Of NewsItem) = GetAllNews()
65        Dim n As NewsItem
66        For Each n In newsItems
67            If n.Id = newsItemId Then
68                Return n
69            End If
70        Next n
71        Return Nothing
72    End Function 'GetNewsItem
73End Class 'XmlNewsProvider