strSourceFile = ServerMapPath(dataXML&/Advertisement/&id&/advxml)
Set objXML =ServerCreateObject(MicrosoftXMLDOM) 创建一个XML对像
objXMLload(strSourceFile) 把XML文件读入内存
Set xml=objXMLdocumentElementselectSingleNode(Advertisement) 选取节点 Advertisement
ADid=em()text
ADname=em()text
ADintro=em()text
ADact=em()text
ADclass=em()text
Pids=em()text
Picid=em()text
ADurl=em()text
ADwindow=em()text
ADshow=em()text
ADshows=em()text
ADclick=em()text
ADclicks=em()text
ADtime=em()text
ADstoptime=em()text
ADstarttime=em()text
ADxslei=em()text
ADcss=em()text
Picurl=em()text
ADipkg=em()text
if advertvirtualvalue>= then
em()text=
objXMLsave(strSourceFile)
end if
end if
Set xml=nothing
Set objXML =nothing
