asp如何對xml文件進行修改、刪除、添加？

[BILLSJONE]

如題用asp怎樣操作.xml文件,比如我要在.xml文件里加入新節點，或修改節點,以前我用人手打開xml來改，現在想用asp來改

[BILLSJONE]

頂
或者哪里有這方面的教材?

[skyboy0720]

<%
name=Request.Form("user")
sex=Request.Form("sex")
filename="F:\XML\student.xml"
if name="" or sex="" then
Response.Write "<script>alert('请填写相关信息!');</script>"
else
set objDom=Server.CreateObject("Microsoft.XMLDOM")
objDom.async=false
objDom.load(filename)
set objRoot=objDom.documentElement.selectSingleNode("newlist")
' Response.Write objRoot.haschildNodes
if objRoot.haschildNodes then
id=objRoot.lastchild.firstchild.text+1
else
id=1
end if
'Response.Write id
brstr=chr(13)&chr(10)&chr(9)
xmlNode=brstr&"<list>"&brstr&"<id>"&id&"</id>"&brstr&"<name>"&name&"</name>"&brstr&"<sex>"&sex&"</sex>"&brstr&"</list>"&chr(13)
set objDom2=Server.CreateObject("Microsoft.XMLDOM")
objDom2.async=false
objDom2.loadXML(xmlNode)
if objDom2.parseError <> 0 then
Response.Write "添加失敗!!"
else
Response.Write "添加成功!!"
end if

set objNewNode=objDom2.documentElement
objRoot.appendChild objNewNode
objDom.save(filename)
Response.Write "添加成功!!" & "<br>"
Response.Write "<a href=""xml_showinfo.asp"">查看</a>"
set objNewNode=nothing
set objRoot=nothing
set objDom2=nothing
set objDom=nothing
end if

[Iamarmy]

这是我很早以前写的一个歌曲系统的一段“添加歌曲”的代码，你参考下。

添加歌曲
Dim Newnode
Set Newnode = objDom.CreateElement("music")
Set NewnodeChild1 = objDom.CreateElement("name")
NewnodeChild1.text = Request.Form("name")
Newnode.appendChild NewnodeChild1
Set NewnodeChild2 = objDom.CreateElement("url")
NewnodeChild2.text = Request.Form("url")
Newnode.appendChild NewnodeChild2
objDom.documentElement.appendChild Newnode
objDom.save Server.MapPath("./music.xml")


music.xml
格式：
<list>
<music>
<name>至少还有你</name>
<url>http://218.26.130.200/cnxx/real/zshyn.rm</url>
</music>
<music>
<name>至少还有你</name>
<url>http://218.26.130.200/cnxx/real/zshyn.rm</url>
</music>
</list>

[Iamarmy]

修改，删除，也差不多咯。

[BILLSJONE]

謝謝樓上的，研究一下先，很難懂啊，好多代碼我沒見過，如
("Microsoft.XMLDOM")
documentElement.selectSingleNode("newlist")
等，在哪些語法手冊上可以查到？vbscript手冊沒有啊，asp手冊也沒有,我比較菜

[BILLSJONE]

謝謝樓上＆樓上,再保存一下下來研究

[Iamarmy]

其实就是通过服务端提供的XMLDOM组件去操作xml，该组件是MS提供的.

[BILLSJONE]

請問這個XMLDOM組件是不是天生就有的？為什么我測試不行？

測試Iamarmy(IT民工) 的在objDom.documentElement.appendChild Newnode這行出錯為：
錯誤類型：
Microsoft VBScript 執行階段錯誤 (0x800A01A8)
此處需要物件: 'objDom.documentElement'
－－－－－－－－－－－－－－－－－－－－
測試skyboy0720(飞) 的在if objRoot.haschildNodes then這行了錯為:
錯誤類型：
Microsoft VBScript 執行階段錯誤 (0x800A01A8)
此處需要物件: 'objRoot'
----------------------------------------
為什么會這樣？

[BILLSJONE]

頂

[BILLSJONE]

頂

[netdust]

帮你顶下
xml，我也不会，正在学

[airmen110]

Up 谁能介绍一个 透彻的么/

[BILLSJONE]

我找到無數據庫的xml留言板程序看了，總算明白一些，那里有很多xml的東西。要的朋友也去找來看看
http://www.cnsxml.com/Default.asp?page=12

[dullwolf]

http://community.csdn.net/Expert/topic/3143/3143887.xml?temp=.6068384
创建XML通用过程库