复制代码 代码如下:ifisnumeric(id)=falsethenexitsubstrSourceFile=Server.MapPath(dataxml&\”/Advertisement/\”&id&\”/adv.xml\”)SetobjXML=Server.CreateObject(\”Microsoft.XMLDOM\”)\’创建一个XML对像objXML.load(strSourceFile)\’把XML文件读入内存Setxml=objXML.documentElement.selectSingleNode(\”Advertisement\”)\’选取节点AdvertisementADid=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).textxml.childNodes.item(9).text=xml.childNodes.item(9).text+1\’\’显示次数加1objXML.save(strSourceFile) Setxml=nothing SetobjXML=nothing