照书的做，怎么不了？

hmbory 2002-03-07 09:54:10
dim name,address
name=trim(request("name"))
address=trim(request("address"))
if name<>"" then
addxml name,address
end if
function addxml(name,address)
dim temp,objxml1,objxml2,objroot,fso,newnode,currentnode,sourcefile,objfile
addxml=0
sourcefile=request.servervariables("APPL_PHYSICAL_PATH") & "\temp.xml"
temp=temp & "<INFORMATION><NAME>"+name+"</NAME>"
temp=temp & "<ADDRESS>"+address+"</ADDRESS></INFORMATION>"
set fso=server.createobject("scripting.filesystemobject")
set objxml1=server.createobject("Microsoft.XMLDOM")
set objxml2=server.createobject("Microsoft.XMLDOM")
objxml1.ValidateOnParse=True
If fso.fileExists(sourcefile) Then
'新建xml文件
set objfile=fso.createtextfile(sourcefile,True)
objfile.close
end If
objxml1.Load(sourcefile)
set objroot=objxml1.documentElement
'如果文件不能被加载，则退出
if not isobject(objroot) then
response.write "no file loaded"
exit function
end if
objxml2.loadXML(temp)
set newnode=objxml2.documentElement
set currentnode=objroot.appendChild(newnode)
objxml1.save(sourcefile)
set objxml1=nothing
set objxml2=nothing
addxml=1
end function

提示我set currentnode=objroot.appendChild(newnode)这一行出错？大伙，这哪里错了！谢过
...全文
33 17 打赏 收藏 转发到动态 举报
写回复
用AI写文章
17 条回复
切换为时间正序
请发表友善的回复…
发表回复
老翔 2002-03-07
  • 打赏
  • 举报
 回复
实际逻辑错误在这里
'文件存在，将文件重建，那么那个sourcefile里面完全是一片空白，连起码的根元素都没有！当然set objroot=objxml1.documentElement后，objroot将是空值。
那么objroot.appendChild(newnode)当然要出错呀！

If fso.fileExists(sourcefile) Then
'新建xml文件
set objfile=fso.createtextfile(sourcefile,True)
objfile.close
end If

objxml1.Load(sourcefile)
set objroot=objxml1.documentElement
老翔 2002-03-07
  • 打赏
  • 举报
 回复
好，我试下
hmbory 2002-03-07
  • 打赏
  • 举报
 回复
还是一样！！要不你试一下！！
其他的方法都好好的！真是气人！
老翔 2002-03-07
  • 打赏
  • 举报
 回复
set currentnode=objroot.appendChild(newnode)

将这句直接改成
objroot.appendChild newnode
hmbory 2002-03-07
  • 打赏
  • 举报
 回复
还是不行！！！哎！！！就试这个试了一早上！！！
《ASP与XML高级编程》怎么这么多错误呀！！

很多例子都是错的！！！
老翔 2002-03-07
  • 打赏
  • 举报
 回复
难道是objxml1的objroot,不能接收objxml2的newnode嘛？

这个我没有试过！你要不然统一用一个objxml1看看
hmbory 2002-03-07
  • 打赏
  • 举报
 回复
Microsoft VBScript 运行时错误 (0x800A01A8)
/temp.asp, 第 55 行
hmbory 2002-03-07
  • 打赏
  • 举报
 回复
还是一样提示set currentnode=objroot.appendChild(newnode)出错！！
老翔 2002-03-07
  • 打赏
  • 举报
 回复
在set currentnode=objroot.appendChild(newnode)之前加两句
set newnode = objxml2.createNode(1,"VIDEOS","");
newnode.text = "test" '不要中文，试下

去掉set newnode=objxml2.documentElement
hmbory 2002-03-07
  • 打赏
  • 举报
 回复
对不起，是提示我set currentnode=objroot.appendChild(newnode)出错！

怎么一碰上appendchild方法就出错！！
hmbory 2002-03-07
  • 打赏
  • 举报
 回复
提示我newnode = objxml2.createNode(1, "VIDEOS", "")出错呀！！

老翔 2002-03-07
  • 打赏
  • 举报
 回复
我认为是你的newnode是空值的关系。

改一下

在set currentnode=objroot.appendChild(newnode)之前加两句
set newnode = objxml2.createNode(1,"VIDEOS","");
newnode.text = "测试"

去掉set newnode=objxml2.documentElement


老翔 2002-03-07
  • 打赏
  • 举报
 回复
我认为是你的newnode是空值的关系。

在set currentnode=objroot.appendChild(newnode)之前加两句
newnode = objxml2.createNode(1, "VIDEOS", "");
newnode.text = "测试"

hmbory 2002-03-07
  • 打赏
  • 举报
 回复
可以了！！自己搞糊涂了：）谢谢你！
老翔 2002-03-07
  • 打赏
  • 举报
 回复
request.servervariables("APPL_PHYSICAL_PATH") & "\temp.xml"
将这句直接写成
"c:\temp.xml"

我怀疑是安全性问题！
hmbory 2002-03-07
  • 打赏
  • 举报
 回复
有temp.xml文件时
提示(0x80070057)
/temp.asp, 第 58 行
也就是set currentnode =objroot.appendChild(newnode)

没有temp.xml文件时提示
Microsoft VBScript 运行时错误 (0x800A01A8)
/temp.asp, 第 58 行
代码一样呀！你怎么没提示错误呀！
老翔 2002-03-07
  • 打赏
  • 举报
 回复
程序我改了一下，我这里已经可以运行了！
<%
dim name,address
name=trim(request("name"))
address=trim(request("address"))
if name<>"" then
addxml name,address
end if


Function addxml(name,address)
dim temp,objxml1,objxml2,objroot,fso,newnode,currentnode,sourcefile,objfile

addxml=0
sourcefile=request.servervariables("APPL_PHYSICAL_PATH") & "\temp.xml"
temp=temp & "<INFORMATION><NAME>"+name+"</NAME>"
temp=temp & "<ADDRESS>"+address+"</ADDRESS></INFORMATION>"
set fso=server.createobject("scripting.filesystemobject")
set objxml1=server.CreateObject("Microsoft.XMLDOM")
set objxml2=server.CreateObject("Microsoft.XMLDOM")

'************************************************************
'关键修改在这里
If Not fso.fileExists(sourcefile) Then
'新建xml文件，文件不存在
'set objfile=fso.createtextfile(sourcefile,True)
'objfile.close 创建文件可以不管，到时候它会自动save文件的
set objroot = objxml1.createElement("Root")
objxml1.appendChild objroot
'*********************************************
'关键是要加，一个根元素！！！！！
'*********************************************
else
objxml1.async=false
objxml1.Load sourcefile
set objroot = objxml1.documentElement
end If
'**********************************************************

'如果文件不能被加载，则退出
if not isobject(objroot) then
response.write "no file loaded"
exit function
end if
objxml2.loadXML(temp)

'这里是没有错的！
set newnode=objxml2.documentElement
set currentnode =objroot.appendChild(newnode)
objxml1.save(sourcefile)
set objxml1=nothing
set objxml2=nothing
addxml=1

end function
JavaWeb项目《图书馆借阅管理系统》开发教程
随着网络时代的到来，电子信息化的飞速发展，图书馆作为一种信息资源的聚集地，图书种类的繁多，用户借阅的繁琐，包含很多的信息数据的管理，以及信息数据的交互。那么如果有一套具体的完善的图书管理系统就显得尤为重要，图书馆如果采用人工来管理书籍和借阅管理，由于资料繁多，手工处理的方式不仅工作量大，管理效率低下，也很容易因为疲劳而产生出错，更不方便读者对图书资料的查阅。为了提高图书管理的效率，本项目针对图书的管理，设计了一个面向图书的管理系统。  项目部分截图 登录首页 图书管理  图书新增  图书详情  读者管理 读者新增 借阅管理 读者中心        
什么是镜像？镜像可以做什么？
什么是镜像？ 镜像就是像照镜子一样。我们一般说的镜像是指给系统作个ghost镜像。这样可以在很短时间，很方便的还原出一个完整的系统来。镜像可以说是一种文件,比如iso,gho都属于镜像文件,镜像文件可以直接刻录到光盘中,也可以用虚拟光驱打开。 镜像可以做什么？ 当系统被破环后，可以通过镜像文件来短时间还原系统。 转载于:https://www.cnblogs.com/baxianhua...
小红书怎么运营好？分享小红书的一些经验让你少走弯路
每次讲小红书运营，我都尽量把一个问题拆的特别细，揉碎了讲，说实话挺不容易的。之前也发过，这次分享又是小红书，没办法，小红书的流量非常大，而且粉丝精准度也很不错。 分享的这些都是经验，不要觉得免费的都是不好的，如果你不当回事，建议你不要向下看了。 这大概都是我做小红书这两年来的感悟，对于做博主账号运营来说，可以时不时的读一读，这些建议可能都有用。 小红书博主运营25条 1、小红书到底有没有限流的事儿？是不是像官方直播里说的一样，小红书没有限流的说法？ 而我的看法是有限流的，但是有同学拿官方直播说事的，我只能
操作抖音书单号需要注意哪些点？书单号运营要避免的坑
什么是抖音书单？（更多精彩干货请关注共众号：萤火宠） 所谓的抖音书单就是这个账号的主打变现方式以卖书为主，像我们在刷抖音的时候，看到类似这样的视频那就是书单账号。 书单是小白最容易操作的抖音项目，容易上手投资小；当然因为容易操作很多人涌进来了，但是可以操作的空间还是有的，就看你怎么操作了。 今天跟你分享一下，如何制作抖音书单号作品！ 需要工具： 使用工具：剪辑类APP 书单模板：淘宝 文字素材：抖音 单图片书单制作，只需要熟悉剪辑类APP制作就可以了，个人实操感觉剪映比较适合小白操作，简单容易上手，花10
传统证件照与最美证件照有什么区别？
坐下、抬头、看前方，摄影师迅速按下快门，刺目的闪光灯让你还没来及露出任何表情，接着你看到了你被放大了的面部瑕疵、尴尬木讷的表情，禁不起仔细审视的服装和妆容……我们在生活中经常需要使用证件照——学生证、毕业证、求职简历、护照、签证，甚至图书馆的借书证、公司的工作证……然而它又几乎是每个人最难看的一张随身照片。 于是我们就有了去改变“证件照=难看”这个现状和想法，想给大家带去一张能拿得出手的好看的证件...
XML/XSL

8,906

社区成员

22,678

社区内容

发帖
与我相关
我的任务
社区描述
XML/XSL相关问题讨论专区
社区管理员
  • XML/XSL社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章