复制代码代码如下: strsourcefile = server.mappath (dataxml & "/anúncio/" & id & "/adv.xml")
Setobjxml = server.createObject ("Microsoft.xmldom") '创建一个 xml 对像
objxml.load (strsourcefile) '把 xml 文件读入内存
Setxml = objxml.documentElement.SelectSinglenode ("Anúncio") '选取节点 Anúncio
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> = 1hen
xml.childnodes.item (3) .Text = 2
objxml.save (strsourcefile)
endif
endif
Setxml = nada
Setobjxml = nada