ASP實例:讀取xml文件的程序

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
From:http://tw.wingwit.com/Article/program/net/201311/11940.html