復制代碼 代碼如下: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
