国产成人精品亚洲777人妖,欧美日韩精品一区视频,最新亚洲国产,国产乱码精品一区二区亚洲

您的位置:首頁技術文章
文章詳情頁

asp讀取xml文件和記數

瀏覽:644日期:2022-06-04 09:51:04

復制代碼 代碼如下: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

標簽: XML/RSS
相關文章:
主站蜘蛛池模板: 蒲城县| 来安县| 泽州县| 拉萨市| 丹棱县| 内江市| 兰州市| 瓦房店市| 宜城市| 昌宁县| 宜黄县| 鹰潭市| 钟祥市| 武胜县| 抚宁县| 阿尔山市| 青浦区| 巨鹿县| 新竹县| 西林县| 霍山县| 河东区| 淮阳县| 光泽县| 钦州市| 洪洞县| 休宁县| 宁明县| 日土县| 太谷县| 丰城市| 连山| 天津市| 介休市| 广灵县| 元江| 嘉峪关市| 霍州市| 谷城县| 星子县| 定州市|