set objXML = Server.CreateObject("Microsoft.XMLDOM")
'關閉同步載入的檔案.
objXML.async = false
'載入XML檔案.
objXML.load(strXMLFile)
'初始化用於載入XSL檔案的XMLDOM對象.
set objXSL = Server.CreateObject("Microsoft.XMLDOM")
'Turn off asyncronous file loading.
objXSL.async = false 'Load the XSL file.
objXSL.load(strXSLFile)
'Use the "transformNode" method of the XMLDOM to apply the
'XSL stylesheet to the XML document. Then the output is
'written to the client.
Response.Write(objXML.transformNode(objXSL))
End Function
'-----------------------------------------------------------
'The "updateXML" Function accepts one parameter.
'strXMLFile - The path and file name of the XML file.
'-----------------------------------------------------------
Function updateXML(strXMLFile)
'Declare local variables.
Dim objDom
Dim objRoot
Dim objField
Dim x
'Instantiate the XMLDOM Object.
set objDOM = Server.CreateObject("Microsoft.XMLDOM")
'Turn off asyncronous file loading.
objDOM.async = false
'Load the XML file.
objDOM.load strXMLFile
'Set the objRoot variable equal to the root element of the
'XML file by calling the documentElement method of the
'objDOM (XMLDOM) object.
Set objRoot = objDom.documentElement
'Iterate through the Form Collection and write the
'submitted values to the XML file.
For x = 1 to Request.Form.Count
'Check see if "btn" is in the submitted value, if so,
'it is a button and should be ignored.
If instr(1,Request.Form.Key(x),"btn") = 0 Then
'Set objField variable equal to a field_value element by
'calling the selectSingleNode method of the objRoot
'(documentElement) object. The SelectSingleNode method
'accepts a string parameter for querying the XML document.
'In this case, the current value of the key property of
'the Form Collection is used to find the appropriate
'field_value element (more on this later).
Set objField = objRoot.selectSingleNode("field[@id='" & _ Request.Form.Key(x) & "']/field_value")
'Set the text property of the objField (field_value)
'element equal to the value of the current form field.
objField.Text = Request.Form(x)
End If
Next
'After the XML file has been edited, is must be saved.
objDom.save strXMLFile
'Release all of your object references.
Set objDom = Nothing
Set objRoot = Nothing
Set objField = Nothing
'Call the loadXMLFile method, passing in the newly edited
'XML file and the updatedcontact.xsl style sheet. This will
'allow the client to see the edited information. More on the
'updatedcontact.xsl file later.
loadXMLFile strXMLFile,
server.MapPath("updatedcontact.xsl")
End Function
'Test to see if the form has been submitted. If it has,
'update the XML file. If not, transform the XML file for
'editing.
If Request.Form("btnSubmit") = "" Then
loadXMLFile server.MapPath("Contact.xml"), _ server.MapPath("contact.xsl")
Else
updateXML server.MapPath("Contact.xml")
End If
%＞
For x = 1 to Request.Form.Count
If instr(1,Request.Form.Key(x),"btn") = 0 Then
Set objField = objRoot.selectSingleNode("field[@id='" & _ Request.Form.Key(x) & "']/field_value")
objField.Text = Request.Form(x)
End If
Next
上述代碼是更新XML檔案的代碼。SelectSingleNode 方法是關鍵。
在上述舉例中，問句是"field[@id='"& request.form.key(x) & "']/field_value"。所詢問的是：要求做為 子域元素 的field_value element 包含一個"ID"，此ID而且是與現有的Form Collection中的關索引值相匹配。一旦獲得適當的節點，則可以更新文字屬性以便與Form Collection中的值相匹配。
