asp获取xml文件

asp获取xml文件：

代码如下: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

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!