----------box程----------
…… …… …… < MySingleSection StrA="MyStrA" StrB="MyStrB" StrC="MyStrC" /> ----------end---------- ----------box程---------- Dim MySS As IDictionary MySS = ConfigurationSettings.GetConfig("MySingleSection") Dim Str As String For Each Str In MySS.Keys Response.Output.WriteLine(Str & "=" & MySS(Str)) Next ----------end----------ConfigurationSettings.GetConfig("MySingleSection")傳回一雜湊表,而 ----------box程----------    
< MyGroup > < MySection > ----------end---------- ----------box程---------- Dim NVC As System.Collections.Specialized.NameValueCollection NVC = ConfigurationSettings.GetConfig("MyGroup/MySection") Dim Str As String For Each Str In NVC.Keys Response.Output.WriteLine(Str & "=" & NVC(Str)) Next ----------end---------- ----------box程---------- Olyplums 5050 Sony 717 Acer TravelMate C100 Compaq TC1000 ViewSonic Tablet PC V1100 Tatung TTAB-910 ----------end---------- ----------box程---------- Public Class ProductTagHandler Implements IConfigurationSectionHandler Public Function Create(ByVal parent As Object, ByVal configContext As Object, ByVal section As System.Xml.XmlNode) As Object Implements System.Configuration.IConfigurationSectionHandler.Create End Function End Class ----------end---------- ----------box程---------- Imports System.Configuration Imports System.Collections Imports System.Xml Public Class ProductTagHandler Implements IConfigurationSectionHandler Public Function Create(ByVal parent As Object, ByVal configContext As Object, ByVal section As System.Xml.XmlNode) As Object Implements System.Configuration.IConfigurationSectionHandler.Create Dim xnProduct, xnRelProduct As XmlNode Dim ProductNodes, RelProductNodes As XmlNodeList Dim RelProducts, Prices As ArrayList Dim PTitle, PDescUrl As String Dim Products As New ArrayList() '取得分類產品節點列表 ProductNodes = section.SelectNodes("Product") '取得每個分類產品節點 For Each xnProduct In ProductNodes '取得分類產品節點的Title、DescUrl屬性值 PTitle = xnProduct.Attributes.GetNamedItem("Title").Value PDescUrl = xnProduct.Attributes.GetNamedItem("DescUrl").Value RelProducts = New ArrayList() Prices = New ArrayList() '取出產品節點下的相關產品列表 RelProductNodes = xnProduct.SelectNodes("RelProducts//RelProduct") If Not RelProductNodes Is Nothing Then '取出相關產品的名稱與價格 For Each xnRelProduct In RelProductNodes RelProducts.Add(xnRelProduct.InnerText) Prices.Add(xnRelProduct.Attributes.GetNamedItem("Price").Value) Next End If '將Product實體放入Products ArrayList內 Products.Add(New Product(PTitle, PDescUrl, RelProducts, Prices)) Next '傳回Products ArrayList Return Products End Function End Class Public Class Product Private m_Title, m_DescUrl As String Private m_RelProducts, m_Prices As ArrayList Public Sub New(ByVal PTitle As String, ByVal PDescUrl As String, ByVal RelProducts As ArrayList, ByVal Prices As ArrayList) m_Title = PTitle m_DescUrl = PDescUrl m_RelProducts = RelProducts m_Prices = Prices End Sub Public ReadOnly Property Title() As String Get Return m_Title End Get End Property Public ReadOnly Property DescURL() As String Get Return m_DescUrl End Get End Property Public ReadOnly Property RelProducts() As ArrayList Get Return m_RelProducts End Get End Property Public ReadOnly Property Prices() As ArrayList Get Return m_Prices End Get End Property End Class ----------end---------- ----------box程----------
----------end---------- ----------box程---------- Dim Products As ArrayList Dim anProduct As ProProductHandler.Product Dim i As Integer Products = CType(System.Configuration.ConfigurationSettings.GetConfig("Products"), ArrayList) If Not Products Is Nothing Then For Each anProduct In Products Response.Output.WriteLine("" & anProduct.Title & "") If Not anProduct.RelProducts Is Nothing Then For i = 0 To anProduct.RelProducts.Count - 1 Response.Output.WriteLine(anProduct.RelProducts.Item(i) & ":$" & anProduct.Prices.Item(i)) Next End If Next End If ----------end---------- ----------BOX---------- 參考內容:MSDN線上說明文件 Configuring Applications in .NET(www.c-sharpcorner.com/Code/2002/June/ConfigApp.asp) Creating Custom Configuration Section Handlers(www.dotnetbips.com/displayarticle.aspx?id=127) Specifying Configuration Settings in Web.config(aspnet.4guysfromrolla.com/articles/053102-1.aspx) ----------end----------