ASP 订阅所有【ASP】的日志

asp读写xml函数

asp读写xml
<%    
  '—————————————————————-    
  '程序简介:   完成asp语言对XML文档中指定节点文本的增加、删除、修改、查看    
  '入口参数:   无    
  '出口参数:   无    
  '————————————————    
  '函数名字:ConnectXml()    
  '入口参数:   filename   需要连接或打开的xml文件名    
  '出口参数:   无    
  '返回值   :ConnectXml=0,XMLMorntekDocument就是一个成功装载XML文档的对象了。    
  '   ConnectXml<>0,则打印错误信息strError    
  '————————————————    
  dim   XMLMorntekDocument    
  
  function   ConnectXml(filename)    
  dim   strSourceFile    
  strSourceFile   =   Server.MapPath(filename)    
  Set   XMLMorntekDocument   =   Server.CreateObject("Microsoft.XMLDOM")      
  XMLMorntekDocument.async   =   false      
  XMLMorntekDocument.load(strSourceFile)    
  ConnectXml=XMLMorntekDocument.parseerror.errorcode    
  if   XMLMorntekDocument.parseerror.errorcode<>0   then    
  strError="

error"&XMLMorntekDocument.parseerror.errorcode&"

"    
  strError=strError&XMLMorntekDocument.parseerror.reason&"
"    
  strError=strError&XMLMorntekDocument.parseerror.url&"
"    
  strError=strError&XMLMorntekDocument.parseerror.line&"
"    
  strError=strError&XMLMorntekDocument.parseerror.filepos&"
"    
  strError=strError&XMLMorntekDocument.parseerror.srcText&"
"    
  response.write   strError    
  end   if    
  end   function    
  
  '————————————————    
  '函数名字:CloseXml()    
  '入口参数:   无    
  '出口参数:   无    
  '————————————————    
  function   CloseXml(XMLMorntekDocument)    
  if   IsObject(XMLMorntekDocument)   then    
  set   XMLMorntekDocument=nothing    
  end   if    
  end   function    
  
  
  '————————————————    
  '函数名字:SelectXmlNodeText(elementname)    
  '入口参数:   elementname   元素的名字    
  '出口参数:   无    
  '————————————————    
  function   SelectXmlNodeText(elementname)      
          elementname="//"&elementname    
          temp=XMLMorntekDocument.selectSingleNode(elementname).text    
          selectXmlNodeText=   server.htmlencode(temp)      
  
  end   function      
  
  '————————————————    
  '函数名字:InsertXmlNodeText(befelementname,elementname,elementtext)    
  '入口参数:   elementname   插入的元素的名字    
  '                     befelementname在此元素的名字前面插入元素    
  '                     elementtext   插入的元素的文本    
  '出口参数:   无    
  '————————————————    
  function   InsertXmlNodeText(befelementname,elementname,elementtext)      
  dim   befelement,element    
  set   befelement=XMLMorntekDocument.selectSingleNode("//"&befelementname)    
  set   element=   XMLMorntekDocument.createelement(elementname)    
  befelement.insertBefore   element,befelement.firstchild    
  element.text=elementtext    
  end   function      
  
  '————————————————    
  '函数名字:UpdateXmlNodeText(elementname,newelementtext)    
  '入口参数:   elementname   元素的名字    
  '                     newelementtext元素的新文本    
  '出口参数:   无    
  '————————————————    
  function   UpdateXmlNodeText(elementname,newelementtext)      
  dim   element    
  set   element=XMLMorntekDocument.selectSingleNode("//"&elementname)    
  element.text=newelementtext    
  end   function      
  
  '————————————————    
  '函数名字:DeleteXmlNodeText(elementname)    
  '入口参数:   elementname   元素的名字    
  '出口参数:   无    
  '————————————————    
  function   DeleteXmlNodeText(elementname)      
  XMLMorntekDocument.selectSingleNode("//"&elementname).text   =""    
  end   function      
  %>  

—————————————————————————-
一个简单不过的xml显示代码
—————————————————————————-
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.Charset="UTF-8"%>

read xml

<%
dim node,i,nodecount
set Doc = CreateObject("Microsoft.XMLDOM")
Doc.async = false
Doc.load(Server.MapPath("data.xml"))
set root = Doc.documentElement
set nodeLis = root.childNodes
nodeCount = nodeLis.length
For i=1 to nodeCount
set node = nodeLis.nextNode()
set cost = node.attributes.getNamedItem("cost")
%>
第 <%=i%> 条记录:












"/>书名出版社价格

<%=node.selectSingleNode("name").text%>

<%=node.selectSingleNode("publisher").text%>

<%= cost.text%>

<%
Next
%>



xml文件:




Dreamweaver
上海科技出版社
img/dw.jpg


Flash
铁道出版社
img/flash.jpg


Firweorks
教育出版社
img/fw.jpg




上一篇: ASP获取汉字拼音
下一篇: ASP读取远程XML并输出相应数据
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 144 | 引用: 0 | 查看次数: 5672
Christie[2019-02-02 12:34 AM | | Mail To:christieathaldo@gmail.com | 168.90.91.22 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Palma[2019-02-01 08:54 PM | | Mail To:palmanickson@gmail.com | 213.6.198.214 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Ewan[2019-02-01 05:06 PM | | Mail To:ewanreis@inbox.com | 37.57.12.231 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Candace[2019-01-24 10:58 AM | | Mail To:candace_bingham@web.de | 188.112.142.182 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Jake[2019-01-22 06:08 PM | | Mail To:jakesharland@arcor.de | 177.44.217.186 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Bryon[2019-01-21 10:22 AM | | Mail To:bryon_sargent@care2.com | 220.132.223.67 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Palma[2019-01-20 06:03 PM | | Mail To:palmabeach@gmail.com | 83.243.66.36 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Deon[2019-01-17 01:25 PM | | Mail To:deonirish@theinternetemail.com | 170.79.177.102 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Damon[2019-01-16 01:12 PM | | Mail To:damoncarone@gmail.com | 170.247.124.32 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Mireya[2019-01-11 09:18 PM | | Mail To:mireyaedgley@googlemail.com | 176.98.95.132 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 关闭 | [img]标签 关闭