asp读取xml文件
2018-09-06 11:01
复制代码 代码如下:strSourceFile=Server.MapPath(dataxml&/Advertisement/&id&/adv.xml)
SetobjXML=Server.CreateObject(Microsoft.XMLDOM)创建一个XML对像
objXML.load(strSourceFile)把XML文件读入内存
Setxml=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
ifadvertvirtualvalue>=1then
xml.childNodes.item(3).text=2
objXML.save(strSourceFile)
endif
endif
Setxml=nothing
SetobjXML=nothing
上一篇：防盗链、判断星期几
下一篇：用ASP创建日志文件（附源程序）