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