asp读取xml文件和记数

复制代码 代码如下:

if isnumeric(id)=false then exit sub 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     xml.childNodes.item(9).text=xml.childNodes.item(9).text+1  '' 显示次数加 1     objXML.save(strSourceFile) Set xml=nothing Set objXML =nothing