asp.net - 让经典 ASP 从 web.config 文件中的 appsettings 读取 key

Question

好的，情况是这样的。我有一个在 MVC 4 应用程序内运行的经典 ASP 网站。我需要经典 ASP 网站才能从 web.config 文件的 appsettings 部分获取 key 。

这是我得到的功能:

' Imports a site string from an xml file (usually web.config)
Function ImportMySite(webConfig, attrName, reformatMSN)
    Dim oXML, oNode, oChild, oAttr, dsn
    Set oXML=Server.CreateObject("Microsoft.XMLDOM")
    oXML.Async = "false"
    oXML.Load(Server.MapPath(webConfig))
    Set oNode = oXML.GetElementsByTagName("appSettings").Item(0) 
    Set oChild = oNode.GetElementsByTagName("add")
    ' Get the first match
    For Each oAttr in oChild 
        If  oAttr.getAttribute("key") = attrName then
            dsn = oAttr.getAttribute("mysite")
            ImportMySite = dsn
            Exit Function
        End If
    Next
End Function

函数调用代码如下:

msn = ImportMySite("web.config", "mysite", false)

因此，当我调用此函数时，返回的值始终为空或 null。我不确定我哪里出了问题，我对 XML 完全是新手，所以也许我错过了一些完全明显的东西。我使用经典 ASP 搜索了这些问题，但找不到与此相关的任何内容。

任何帮助将不胜感激。

Answer 1

我很欣赏康纳的工作。它让我在实现这一目标的过程中一路顺利。我做了一些我认为可能对其他人有帮助的改变。

我不想每次调用都重复文件名，并且我的配置中有几个部分。这似乎更普遍。另外，我将他的更改合并为一个可靠的工作示例。您可以将其粘贴到您的应用中，更改 CONFIG_FILE_PATH 并继续您的生活。

'******************************GetConfigValue*******************************
' Purpose:      Utility function to get value from a configuration file.
' Conditions:   CONFIG_FILE_PATH must be refer to a valid XML file
' Input:        sectionName - a section in the file, eg, appSettings
'               attrName - refers to the "key" attribute of an entry
' Output:       A string containing the value of the appropriate entry
'***************************************************************************

CONFIG_FILE_PATH="Web.config" 'if no qualifier, refers to this directory. can point elsewhere.
Function GetConfigValue(sectionName, attrName)
    Dim oXML, oNode, oChild, oAttr, dsn
    Set oXML=Server.CreateObject("Microsoft.XMLDOM")
    oXML.Async = "false"
    oXML.Load(Server.MapPath(CONFIG_FILE_PATH))
    Set oNode = oXML.GetElementsByTagName(sectionName).Item(0) 
    Set oChild = oNode.GetElementsByTagName("add")
    ' Get the first match
    For Each oAttr in oChild 
        If  oAttr.getAttribute("key") = attrName then
            dsn = oAttr.getAttribute("value")
            GetConfigValue = dsn
            Exit Function
        End If
    Next
End Function



settingValue = GetConfigValue("appSettings", "someKeyName")
Response.Write(settingValue)