复制代码代码如下: strsourceFile = server.mappath (dataxml & "/iklan/" & id & "/adv.xml")
SetoBjXml = server.CreateObject ("microsoft.xmldom") '创建一个 xml 对像
objxml.load (strsourceFile) '把 xml 文件读入内存
Setxml = objxml.documentelement.selectsinglenode ("iklan") '选取节点 iklan
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 = tidak ada
Setobjxml = tidak ada