复制代码代码如下: strsourceFile = server.mappath (dataxml & "/anuncio/" & id & "/adv.xml")
Setobjxml = server.createObject ("microsoft.xmldom") '创建一个 xml 对像
objxml.load (strsourceFile) '把 xml 文件读入内存
Setxml = objxml.documentelement.selectsinglenode ("anuncio") '选取节点 Anuncio
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> = 1
xml.childnodes.item (3) .text = 2
objxml.save (strsourceFile)
endif
endif
Setxml = nada
Setobjxml = nada