复制代码代码如下：strsourcefile = server.mappath（dataxml＆ "/advertisement/"＆id＆ "/adv.xml"）
setobjxml = server.createObject（ "microsoft.xmldom"） 'xml对像
objxml.load（strsourcefile） 'xml文件读入内存
setxml = 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
ifadvertVirtualValue> = 1then
xml.childnodes.item（3）.text = 2
objxml.save（strsourcefile）
endif
endif
setxml =何もない
setobjxml =何もない