0

こんにちは、私は従来の ASP プロジェクトに取り組んでおり、XML ファイルを使用して CRUD 操作を行っています。ファイルが存在しない場合、データを保存することは正常に機能していますが、ファイルが既に存在する場合、新しいレコードデータを追加する方法は? 私のコード:

If Not objFSO.FileExists( xmlFile ) Then 

                objFSO.CreateTextFile( xmlFile )
                set objWrite = objFSO.OpenTextFile( xmlFile, 2 )
                objWrite.WriteLine("<?xml version=""1.0"" encoding=""ISO-8859-1""?>")
                objWrite.WriteLine(tb & "<Slider>")
                objWrite.WriteLine(tb & tb & "<Header>" & Uploader.Form("headerText") & "</Header>")
                objWrite.WriteLine(tb & tb & "<Image>" & File.FileName & "</Image>")
                objWrite.WriteLine(tb & tb & "<Link>" & Uploader.Form("linkcontentText") & "</Link>")
                objWrite.WriteLine(tb & tb & "<Description>" & Uploader.Form("SliderText") & "</Description>")
                objWrite.WriteLine(tb & "</Slider>")

            End IF
            If objFSO.FileExists( xmlFile ) Then
            'append code , i have tried this but not working
            Set xmlDoc = CreateObject("Scripting.FileSystemObject")
              xmlDoc.async = False
              xmlDoc.load(Server.MapPath(xmlFile)
              Set fieldName = xmlDoc.createElement("Slider")
              Set attID = xmlDoc.createAttribute("Header")
              Set attID1 = xmlDoc.createAttribute("Image")
              Set attID2 = xmlDoc.createAttribute("Link")
              Set attID3 = xmlDoc.createAttribute("Description")
              attID.Text =  Uploader.Form("headerText")
              attID1.Text = File.FileName
              attID2.Text = Uploader.Form("linkcontentText")
              attID3.Text = Uploader.Form("SliderText")
              fieldName.setAttributeNode attID 
              fieldName.setAttributeNode attID1
              fieldName.setAttributeNode attID2
              fieldName.setAttributeNode attID3
              'xmlDoc.a
              'xmlDoc.Save(Server.MapPath("menu1.xml"))

            End If

いくつかの解決策を提案してください。

4

1 に答える 1

4

明らかなエラー:

Set xmlDoc = CreateObject("Scripting.FileSystemObject")

次のようにする必要があります。

Set xmlDoc = CreateObject("Msxml2.DOMDocument")

これですべての問題が解決するかどうかは、まだわかりません。

于 2013-08-15T14:28:32.220 に答える