导航

« LOGO设计中的思维方式和方法(有搞笑的狗狗)asp 分页代码示例  »

asp创建、读取Xml文件方法示例 分享

XML

扩展标记语言XML是一种简单的数据存储语言,使用一系列简单的标记描述数据,以下两个例子演示了用asp创建和读取Xml的方法。把其中的代码放入Asp环境测试即可。

一些简单说明:对于文本,空格chr(32),双引号chr(34),Tab 键chr(9)

1.asp创建Xml文件

<%
 
 dim fso,ts,dqm
 set fso=server.createobject("scripting.filesystemobject")
 set ts=fso.opentextfile(server.mappath("xmltest.xml"),2,true)
 dqm=chr(34)  '双引号
 t=chr(9)  'tab键
 ts.writeline("<?xml version="& chr(34)&"1.0"& chr(34)& " encoding="& chr(34)&"gb2312"& chr(34)&"?>")
  ts.writeline("<books>") 
  ts.writeline(t&"<book>") 
  ts.writeline(t&t&"<title>落日故乡</title>") 
  ts.writeline(t&t&"<url>www.spersky.com</url>") 
  ts.writeline(t&t&"<author>小牛</author>") 
  ts.writeline(t&t&"<description>普通的个人博客</description>") 
  ts.writeline(t&"</book>") 
  ts.writeline("</books>") 
 
 ts.close
 set ts=nothing
 set fso=nothing

%>

2. asp读取Xml文件

<%
  Dim oXML
  '创建一个XMLDOM实例
  Set oXML = Server.CreateObject("Microsoft.XMLDOM")
  oXML.load (Server.MapPath("xmltest.xml")) '载入XML文件
  Set oXMLRoot = oXML.documentElement '创建文档元素
  '选择title节点,注意,标签前加//
  Set title = oXMLRoot.selectSingleNode("//title")
  'response.write title.text '打印出<title></title>之间的内容
  vtitle=title.text


  Set title = nothing '销毁
  Set oXMLRoot = nothing '销毁
  Set xml = Nothing '销毁
  response.write vtitle

%>

 

  • 顶一下



  • 相关文章:


原创文章如转载,请注明:转载自落日故乡

本文链接地址:http://www.spersky.com/post/createreadXml1.html

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

内容搜索


常用链接

最新评论及回复

Powered By Z-Blog

Copyright spersky All Rights Reserved.Theme Moonlight,Calf modified.