ASP实例:读取xml文件的程序
2009-08-10 17:46
519 查看
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
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
相关文章推荐
- ASP读取XML实例 优酷专辑采集程序 雷锋版
- ASP读取XML实例 优酷专辑采集程序 雷锋版
- 在asp.net中读取xml文件信息的4种方法
- asp.net怎么读取或保存xml文件里的数据范例
- 在asp.net中读取XML文件信息的4种方法(转载)
- 一起谈.NET技术,asp.net程序来读取多语言版本Ini配置文件
- 【ASP.NET Core快速入门】(五)命令行配置、Json文件配置、Bind读取配置到C#实例、在Core Mvc中使用Options
- ASP.NET读取XML文件4种方法
- 在asp.net中读取XML文件信息的4种方法
- Asp.Net读取服务器EXE文件的方法!(超简单实例)
- asp读取xml实例代码
- 用程序生成 XML 文件的实例代码
- asp.net如何读取xml文件中的数据
- aSP读取XML数据文件的方法
- ASP.NET中读取XML文件4种方法
- 分析ASP.NET读取XML文件4种方法
- ASP.NET程序上传文件功能的具体实例代码
- asp读取xml的两种方法(读取固定xml文件和读取url地址返回的xml)
- JDOM读取XML文件例子程序
- 用java程序读取xml文件中的配置信息