XML例子中的程序用于从文件中读取的

以下为引用的内容：strSourceFile = Server.MapPath(dataXML&"/Advertisement/"&id&"/adv.xml")

Set objXML =Server.CreateObject("Microsoft.XMLDOM") '创建一个XML对像

objXML.load(strSourceFile) '把XML文件读入内存

Set xml=objXML.documentElement.selectSingleNode("Advertisement") '选取节点 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

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!