复制代码代码如下: strsourcefile = server.mappath (dataxml & "/adpressement/" & 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> = 1th
xml.childnodes.item (3) .Text = 2
OBJXML.SAVE (StrSourceFile)
Endif
Endif
setXML = لا شيء
setObjxml = لا شيء