asp读取xml文件

代码如下:strSourceFile=Server.MapPath(dataxml SetobjXML=Server.CreateObject('Microsoft.XMLDOM')''创建一个XML对像 objXML.load(strSourceFile)''把XML文件读入内存 Setxml=objXML.documentElement.selectSingleNode('Advertisement')''选取节点Advertisement &n

作者: 来源: 时间: 17-11-23 15:14:06

代码如下: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
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们