asp读取xml文件和记数

ttx9n · 发表于 2006-11-15 00:00:00

[U]复制代码[/U] 代码如下:if isnumeric(id)=false then exit sub
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
xml.childNodes.item(9).text=xml.childNodes.item(9).text+1  '' 显示次数加 1
objXML.save(strSourceFile)
Set xml=nothing
Set objXML =nothing

5cf304mn2 · 发表于 2022-9-21 23:24:30

看看看看

4r8oiin60 · 发表于 2023-3-6 14:10:21

强烈支持楼主ing……

w18pvaep · 发表于 2023-4-23 16:59:48

怕怕怕怕怕怕怕怕怕怕怕怕怕怕

8ayoqrpj · 发表于 2023-12-8 09:04:45

借款金额看了就立刻

白狐软件 · 发表于 2024-2-20 17:24:52

iiguuubhuiuihu

czoz5y · 发表于 2024-3-8 03:40:09

啦啦啦啦啦德玛西亚

5cf304mn2 · 发表于 2024-3-8 04:31:24

8888888888888888

j__j33p · 发表于 2024-3-17 19:30:19

可以，看卡巴

vir5051 · 发表于 2024-9-11 16:19:42

而非为吾问无为谓娃娃

账号		自动登录	找回密码
密码			立即注册

[XML/RSS] asp读取xml文件和记数

相关帖子