'读取配置
Private Sub ReadConfig()
Dim objDocument As New DOMDocument
Dim configNode As IXMLDOMElement
objDocument.Load("c:\wwwroot\intepub\Web.Config")
configNode = objDocument.getElementsByTagName("add").item(0)
Dim strServer As String = configNode.getAttribute("value")
Dim struid As String = configNode.getAttribute("uid")
Dim strpwd As String = configNode.getAttribute("pwd")
Dim strDB As String = configNode.getAttribute("database")
End Sub
'写入配置
Private Sub WriteConfig()
Dim objDocument As New DOMDocument
Dim configNode As IXMLDOMElement
objDocument.Load("c:\wwwroot\intepub\Web.Config")
configNode = objDocument.getElementsByTagName("add").item(0)
Dim strServer As String = "127.0.0.1"
Dim struid As String = "testUser"
Dim strpwd As String = "testPwd"
Dim strDB As String = "testDB"
configNode.setAttribute("value",strServer)
configNode.setAttribute("uid",struid)
configNode.setAttribute("pwd",strpwd)
configNode.setAttribute("database",strDB)
objDocument.Save("c:\wwwroot\intepub\Web.Config")
End Sub