以文本方式查看主题

-  中文XML论坛 - 专业的XML技术讨论区  (http://bbs.xml.org.cn/index.asp)
--  『 XML基础 』  (http://bbs.xml.org.cn/list.asp?boardid=1)
----  [求助]asp读写xml  (http://bbs.xml.org.cn/dispbbs.asp?boardid=1&rootid=&id=64969)


--  作者:jingang319
--  发布时间:7/26/2008 2:51:00 AM

--  [求助]asp读写xml
<%
strSourceFile = Server.MapPath("mp3player.xml")
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.load(strSourceFile)
Set objRootlist = objXML.documentElement.selectSingleNode("player")
if objRootlist.hasChildNodes then
end if
brstr=chr(13)&chr(10)&chr(9)
XMLnode=brstr&& <song>"&brstr&"<path>"&url&"</>"&brstr &"<title>"&name&"</>"</song>"&chr(13)
set objXML2=Server.CreateObject("Microsoft.XMLDOM")
objXML2.loadXML(XMLnode)
set rootNewNode=objXML2.documentElement
objRootlist.appendChild(rootNewNode)
objXML.save(strSourceFile)
set objXML=nothing
set objXML2=nothing
'response.write "添加成功"
response.Redirect("index.asp")
response.end
end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td { font-size: 9pt}
-->
</style>
</head>
<body bgcolor="#0099CC" text="#000000">
<table width="80%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#FFFFFF">
<form action="admin.asp" method="post" name="form1">
<tr bgcolor="#000000">
<td colspan="2"><font color="#FFFFFF">mp3歌曲</font></td>
</tr>
<tr bgcolor="#EFEFEF">
<td width="19%" align="right">歌曲名:</td>
<td width="81%">
<input type="text" name="name">
** </td>
</tr>
<tr bgcolor="#EFEFEF">
<td width="19%" align="right">歌曲地址:</td>
<td width="81%">
<input type="text" name="path">
</td>
</tr>

<tr bgcolor="#EFEFEF">
<td width="19%" align="right"> </td>
<td width="81%">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重填">
</td>
</tr>
</form>
</table>
</body>
</html>
大家一看就知道我的意思了吧,我是用asp给xml文件添加数据
-----------mp3player.xml----------------------------------
<?xml version="1.0" encoding="UTF-8"?>

<player showDisplay="yes" showPlaylist="no" autoStart="yes">

<song path="mp3/dj.mp3"title="冰河时代3"/>
<song path="mp3/等一分.mp3" title="等一分"/>
</player>

现在出错谁能帮我修改或给个更好的 在这里谢谢大家 请大家调试成功以后给出答案

Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: 'objRootlistd'

/music/admin.asp,行 6


[此贴子已经被作者于2008-7-30 13:16:37编辑过]

--  作者:Qr
--  发布时间:7/27/2008 12:39:00 PM

--  
既然把代码都贴出来为什么不贴错误提示,就算想帮你也没有IIS环境啊
--  作者:jingang319
--  发布时间:7/30/2008 1:17:00 PM

--  
大家帮帮忙!  谢谢
--  作者:jingang319
--  发布时间:8/31/2008 5:06:00 PM

--  
怎么没人帮上我吗?
--  作者:Qr
--  发布时间:9/1/2008 12:46:00 PM

--  
Set objRootlist = objXML.selectSingleNode("player")
--  作者:Qr
--  发布时间:9/1/2008 12:47:00 PM

--  
XMLnode=brstr&& <song>"&brstr&"<path>"&url&"</>"&brstr &"<title>"&name&"</>"</song>"&chr(13)
这里,请修改以符合XML的语法规范。
--  作者:jingang319
--  发布时间:9/2/2008 8:09:00 PM

--  
谢谢  大家的帮助   目前还是没有解决   多谢你们这些好心人!
W 3 C h i n a ( since 2003 ) 旗 下 站 点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
78.125ms