----------box程式----------
………
………
----------end----------
----------box程式----------
----------end----------
----------box程式----------
…
----------end----------
----------box程式----------
………
………
----------end----------
----------box程式----------
Dim StrKey As String
For Each StrKey In ConfigurationSettings.Keys
Response.Output.WriteLine(StrKey & "=" & ConfigurationSettings.AppSettings(StrKey))
Next
----------end----------
----------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----------
----------box程式----------
< MyGroup >
< MySection >
MySection >
MyGroup >
----------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----------