Copy codeThe Code is as follows: strSourceFile = Server. MapPath (dataxml & "/Advertisement/" & id & "/adv. xml ")
Set objXML = Server. CreateObject ("Microsoft. XMLDOM") 'creates an XML Object
ObjXML. load (strSourceFile) 'reads XML files into memory
Set xml1_objxml.doc umentElement. selectSingleNode ("Advertisement") 'select the node Advertisement
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
If advertvirtualvalue> = 1 then
Xml. childNodes. item (3). text = 2
ObjXML. save (strSourceFile)
End if
End if
Set xml = nothing
Set objXML = nothing
