复制代码代码如下: StrsourceFile = Server.MAppath (DataxML & "/Advertisement/" & ID & "/adv.xml"))
SetObjxml = server.createObject ("microsoft.xmldom") '创建一个 xml 对像
objxml.load (strsourceFile) '把 xml 文件读入内存
Setxml = objxml.documentElement.Selectsinglenode ("Werbung") '选取节点 Werbung
Adid = xml.childnodes.Item (0) .Text
Adname = xml.childnodes.Item (1) .Text
Adinntro = 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
ifAtvertVirtualValue> = 1Then
xml.childnodes.Item (3) .Text = 2
objxml.save (Strsourcefile)
Endif
Endif
Setxml = nichts
SetObjxml = nichts