ASP实例:读取xml文件的程序
作者 佚名技术
来源 ASP编程
浏览
发布时间 2012-03-12
strSourceFile = Server.MapPath(dataxml&"/Advertisement/"&id&"/adv.xml")
Set objXML =Server.CreateObject("Microsoft.XMLDOM") ''创建一个XML对像 objXML.load(strSourceFile) ''把XML文件读入内存 Set xml=objXML.documentElement.selectSingleNode("Advertisement") ''选取节点 Advertisement ADid=xml.childNodes.item(0).text ADname=xml.childNodes.item(1).text ADintro=xml.childNodes.item(2).text ADact=xml.childNodes.item(3).text ADclass=xml.childNodes.item(4).text Pids=xml.childNodes.item(5).text Picid=xml.childNodes.item(6).text ADurl=xml.childNodes.item(7).text ADwindow=xml.childNodes.item(8).text ADshow=xml.childNodes.item(9).text ADshows=xml.childNodes.item(10).text ADclick=xml.childNodes.item(11).text ADclicks=xml.childNodes.item(12).text ADtime=xml.childNodes.item(13).text ADstoptime=xml.childNodes.item(14).text ADstarttime=xml.childNodes.item(15).text ADxslei=xml.childNodes.item(16).text ADcss=xml.childNodes.item(17).text Picurl=xml.childNodes.item(18).text ADipkg=xml.childNodes.item(19).text if advertvirtualvalue>=1 then xml.childNodes.item(3).text=2 objXML.save(strSourceFile) end if end if Set xml=nothing Set objXML =nothing |
|
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
上一篇:
ASP教程:表单内容提交到XML文件中
下一篇:
ASP对XML文档中文本的增加、删除、修改、查看
关于
ASP实例:读取xml文件的程序
的所有评论