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:
相关日志:
评论: 62 | 引用: 0 | 查看次数: 4316
Gail[2018-06-14 08:16 PM | | Mail To:gailmcanulty@gmail.com | 154.16.91.44 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Diane[2018-06-14 07:54 PM | | Mail To:diane_badillo@gmail.com | 107.150.71.163 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Carlo[2018-06-05 08:07 PM | | Mail To:carloreynoso@gmail.com | 154.16.91.44 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Star[2018-06-05 00:54 AM | | Mail To:star.zimmermann@gawab.com | 154.16.91.18 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Sergio[2018-06-04 10:27 PM | | Mail To:sergio_schardt@gmail.com | 107.150.71.240 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Charla[2018-06-03 05:29 AM | | Mail To:charlaschiller@gmail.com | 138.128.67.19 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Dillon[2018-05-26 08:31 PM | | Mail To:dillontownsend@zoho.com | 154.16.91.18 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Kelley[2018-05-26 08:05 AM | | Mail To:kelleyweatherburn@gmail.com | 138.128.67.19 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Jocelyn[2018-05-26 00:51 AM | | Mail To:jocelyn.talbot@arcor.de | 138.128.67.20 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Alejandrina[2018-05-22 07:08 AM | | Mail To:alejandrina_holton@fastmail.fm | 107.150.71.163 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 关闭 | [img]标签 关闭