复制代码代码如下: strSourcefile = server.mappath (dataxml & "/ publicités /" & id & "/ adv.xml")
SetObjxml = server.createObject ("Microsoft.xmldom") '创建一个 Xml 对像
objxml.load (strSourcefile) '把 xml 文件读入内存
Setxml = objxml.documentElement.SelectSingLenode ("publicité") '选取节点 publicité
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)
endire
endire
Setxml = rien
SetObjxml = rien