Copy Code code as follows:
If IsNumeric (ID) =false then Exit Sub
strSourceFile = Server.MapPath (dataxml& "/advertisement/" &id& "/adv.xml")
Set objxml =server.createobject ("Microsoft.XMLDOM") ' creates an XML pair like
Objxml.load (strsourcefile) ' reads the XML file into memory
Set Xml=objxml.documentelement.selectsinglenode ("advertisement") ' Select 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. Text
Adclick=xml.childnodes.item (one). Text
Adclicks=xml.childnodes.item (in). Text
Adtime=xml.childnodes.item. Text
Adstoptime=xml.childnodes.item. Text
Adstarttime=xml.childnodes.item. Text
Adxslei=xml.childnodes.item. Text
Adcss=xml.childnodes.item. Text
Picurl=xml.childnodes.item. Text
Adipkg=xml.childnodes.item. Text
Xml.childNodes.item (9). Text=xml.childnodes.item (9). Text+1 ' Show number plus 1
Objxml.save (strSourceFile)
Set xml=nothing
Set Objxml =nothing