複製代碼代碼如下：strsourcefile = server.mappath（dataxml＆“/advertisement/“＆id＆”/adv.xml“）
setObjxml = server.createobject（“ microsoft.xmldom”）'創建一個xml對像
objxml.load（strsourcefile）'把xml文件讀入內存
setxml = objxml.documentElement.SelectSingLenode（“ 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
ifadvertVirtualValue> = 1
xml.childnodes.item（3）.Text = 2
objxml.save（strsourcefile）
Endif
Endif
setxml =沒有
setObjxml =沒有