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:
相关日志:
评论: 122 | 引用: 0 | 查看次数: 5175
Jonathan[2018-12-15 02:22 PM | | Mail To:jonathan.milam@animail.net | 37.32.29.184 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Alphonse[2018-12-14 04:45 PM | | Mail To:alphonse_ciotti@web.de | 170.79.176.146 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Joycelyn[2018-12-14 12:50 AM | | Mail To:joycelynbock@gmail.com | 171.246.248.149 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Verna[2018-12-13 09:26 AM | | Mail To:verna_baskett@gmail.com | 170.233.112.222 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Ivory[2018-12-12 03:52 PM | | Mail To:ivoryquarles@gmail.com | 168.195.183.162 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Debora[2018-12-12 02:12 PM | | Mail To:debora.shumway@live.de | 77.104.246.73 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Silke[2018-12-12 10:51 AM | | Mail To:silkestreeten@freenet.de | 190.85.74.250 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Benny[2018-12-10 08:29 PM | | Mail To:bennydorman@freenet.de | 138.94.189.96 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Jann[2018-12-10 02:38 PM | | Mail To:jann.ridgeway@freenet.de | 171.246.173.119 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
Fredric[2018-12-06 06:41 PM | | Mail To:fredric.dial@web.de | 103.20.189.227 | del | 通过审核 | 回复回复]
[此评论正在审核中,只有博主及评论作者可见]
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 关闭 | [img]标签 关闭