复制代码代码如下: strsourcefile = server.mappath (dataxml & "/vermakesement/" & id & "/adv.xml")
SetObjxml = server.createObject ("microsoft.xmldom") '创建一个 xml 对像
objxml.load (strsourcefile) '把 xml 文件读入内存
Setxml = objxml.documentelement.selectsinglenode ("реклама") '选取节点 реклама
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)
эндиф
эндиф
Setxml = ничего
SetObjxml = ничего