asp读取xml文件的方法
如何读取XML文件？
如何读取XML文件？具体实现代码见下：<%@ Import Namespace="System.IO" %>' 引用System.IO Namespace<%@ Import Namespace="System.Data" %><%@ Import Namespace="System.Data.ADO" %><script Language="VB" runat="server">Dim ds As DataSet = new DataSet()Sub Page_Load(sender As Object, e As EventArgs)Dim fs As FileStreamDim reader As StreamReaderDim Path As StringPath = Server.MapPath( "chunfeng.xml" )' chunfeng.xml为要读取的XML文件名fs = New FileStream(Path, FileMode.Open, FileAccess.Read)reader = New StreamReader(fs, Encoding.Default)ds.ReadXml(reader)' 将得到的StreamReader对象传入DataSet对象的ReadXml方法，以读取XML数据Grid1.DataSource = ds.Tables("纯平彩电一览表").DefaultViewGrid1.DataBind()End SubSub ChangePage(sender As Object, e As DataGridPageChangedEventArgs) Grid1.DataSource = ds.Tables("纯平彩电一览表").DefaultViewGrid1.DataBind()End Sub</script><html><body BgColor="White"><H3>精彩春风之读取XML文件<HR></H3><form runat="server"><asp:DataGridAllowPaging="True"PageSize="10"OnPageIndexChanged="ChangePage"PagerStyle-HorizontalAlign="Right"PagerStyle-NextPageText="下一页"PagerStyle-PrevPageText="上一页"HeaderStyle-BackColor="#AAAADD"AlternatingItemStyle-BackColor="#FFFFC0"BorderColor="green"CellPadding="2"CellSpacing="0"id="Grid1" runat="server"/></form></body></html>。
PHP读写XML文件的四种方法
PHP读写XML⽂件的四种⽅法 PHP对XML⽂件进⾏读写操作的⽅法⼀共有四种，分别是：字符串⽅式直接读写、DOMDocument读写、XMLWrite写和XMLReader读、SimpleXML读写，本⽂将依次对这四种⽅法进⾏介绍。
介绍之前⾸先对本⽂例⼦使⽤的数据和⽂件进⾏说明。
本⽂写XML⽂件的例⼦都是从MySQL中读取数据然后写⼊到XML⽂件中，读XML⽂件的例⼦都是从XML⽂件中读取数据后组装成数组的格式，数组中每个元素对应数据库中的⼀条记录。
MySQL中的数据：XML⽂件：<?xml version="1.0" encoding="utf8"?><studentcareer><period><starttime>2000</starttime><endtime>2002</endtime><school>培新⼩学</school></period><period><starttime>2002</starttime><endtime>2006</endtime><school>览表东阳学校</school></period><period><starttime>2006</starttime><endtime>2009</endtime><school>惠来慈云实验中学</school></period><period><starttime>2009</starttime><endtime>2012</endtime><school>惠来⼀中</school></period><period><starttime>2012</starttime><endtime>2016</endtime><school>华南师范⼤学</school></period></studentcareer>读取XML⽂件后组装成的数据格式： 下⾯的例⼦使⽤的数据、⽂件都是以上所列数据、⽂件，介绍各个⽅法时不再赘述，直接贴代码。
ASP+XML
xml常规应用之asp读写文档本站整理网络搜集 2008-07-07 点击：75 字体：大中小我要评论xml一个简单的新闻发布系统的说起：首先，我们建立一个XML文档，命名为nnDB.xml：---------------------------------------nnDB.xml---------------------------------------<?xml version="1.0" encoding="GB2312"?><data><news></news></data>---------------------------------------nnDB.xml---------------------------------------接着，做一个发布的页面，这个发布页面连带了有新闻的显示列表，把他命名为post.asp 吧！---------------------------------------post.asp---------------------------------------<style>#news_list { width: 430px; float: left; border: 1px solid #CFCFCF; }#tt { width: 300px; float: left; border-top: 2px solid #CFCFCF; }#pt { width: 129px; float: right; border-top: 2px solid #CFCFCF; }#ct { width: 430px; float: left; border-top: 1px solid #CFCFCF; }#news_list li span { font-size: 12px; letter-spacing: 1px; font-family: Tahoma; }#c1 { width: 40px; float: left; padding: 5px 0px 5px 0px; background-color: #EFEFEF; font-weight: bold; color: #666; text-align: center; border: 1px solid#FFF; }#c2 { float: left; padding: 5px; font-size: 12px; color: #333; text-align: center; letter-spacing: 1px; border: 1px solid #FFF; }#c3 { width: 380px; float: right; margin: 0px 5px 0px 5px; padding: 3px 0px 3px 0px; text-align: right; color: #CCC; border-top: 1px dotted #CFCFCF; } </style><%Set XMLOBJ = Server.CreateObject("Microsoft.XMLDOM")XMLOBJ.async = FalseXMLOBJ.load Server.MapPath("nnDB.xml")Set news_root = XMLOBJ.documentElement.selectSingleNode("news")news_count = news_root.childNodes.lengthHTML_CODE = "<div id=""news_list"">"for i = 0 to news_count - 1Set temp_news = news_root.childNodes.item(i).childNodesHTML_CODE = HTML_CODE & "<li id=""tt""><span id=""c1"">标题</span><span id=""c2"">" & temp_news.item(3).text & "</span></li><liid=""pt""><span id=""c1"">作者</span><span id=""c2"">" &temp_news.item(4).text & "</span></li>"HTML_CODE = HTML_CODE & "<li id=""ct""><span id=""c1"">内容</span><span id=""c2"">" & temp_news.item(5).text & "</span><spanid=""c3"">发表时间：" & temp_news.item(2).text & "点击量：" &temp_news.item(6).text & "</span></li>"nextHTML_CODE = HTML_CODE & "</div>"Response.write HTML_CODE%><form id="form1" name="form1" method="post" action="save_DB.asp"> <p>新闻标题：<input type="text" name="tt" /></p><p>新闻作者：<input type="text" name="pt" /></p><p>新闻内容：<textarea name="ct" cols="50"rows="12"></textarea></p><p><input type="submit" name="Submit" value="提交" /><inputtype="reset" name="Submit2" value="重置" /></p></form>---------------------------------------post.asp---------------------------------------最后就是save_DB.asp，写入XML的页面：---------------------------------------save_DB.asp---------------------------------------<%' tt 作者pt 发布人ct 新闻内容tt = trim(Request.Form("tt")) ' trim 去空格pt = trim(Request.Form("pt"))ct = trim(Request.Form("ct"))time_now = now()' 抓时间，作为新闻条目的区别检索D_y = year(time_now)D_m = month(time_now)D_d = day(time_now)D_hr = hour(time_now)D_mi = minute(time_now)D_se = second(time_now)' PS：为何要用日期时间做新闻区别呢？我们假设，这个发布后台，只有你一个人可以访问，那么可以肯定一样东西：同一时间内，只可能发布一篇文章。
ASP.NET中对XML的访问技术
中对XML的访问技术
闫瑞峰;赵化启;刘辉
【期刊名称】《佳木斯大学学报（自然科学版）》
【年(卷),期】2005(023)003
【摘要】主要就中对XML的访问方法,进行了研究和探索.介绍如何在中,采用DataSet的方式来使用XML,通过DataSet对XML的良好支持,可以将数据在XML与DataSet之间进行转移,这种方式是把XML作为数据表来使用.采用DataSet的方式来使用XML,使得开发过程更加灵活.
【总页数】4页(P388-391)
【作者】闫瑞峰;赵化启;刘辉
【作者单位】佳木斯大学,黑龙江,佳木斯,154007;佳木斯大学,黑龙江,佳木
斯,154007;北京创科迅盈科技有限公司,北京,100011
【正文语种】中文
【中图分类】TP312
【相关文献】
（C#）中通过GridView控件对XML数据进行管理 [J], 李金峰;邹军华;胡江峰
数据库访问技术在开发中的研究与应用 [J], 方开红
3.基于XML的数据库访问技术在图书馆自动化建设中的应用 [J], 李茉莉
4.浅析中的数据库访问技术 [J], 曹功坤;曾金发
中基于XML的数据访问技术和对XML结构化数据的加密 [J], 王涛;杨德明
因版权原因，仅展示原文概要，查看原文内容请购买。
读写XML权限
方案一：1.启动Internet 服务管理器。
或者启动IIS 管理单元。
2.单击以展开“* server name”，其中server name是服务器的名称。
3.右键单击要为用户授予访问权限的网站、虚拟目录、文件夹或文件，然后单击属性。
4.根据您的具体情况单击下列选项卡之一：o主目录o虚拟目录o目录o文件5.单击以选中或清除下列任何一个对应要授予的Web 权限级别的复选框（如果存在）：o脚本资源访问：授予此权限将允许用户访问源代码。
“脚本资源访问”包含脚本的源代码，如Active Server Pages (ASP) 程序中的脚本。
注意，此权限只有在授予“读取”或“写入”权限时才可用。
注意：如果单击脚本资源访问，用户将可以从ASP 程序的脚本中查看到敏感信息，例如用户名和密码。
他们还将能够更改您的服务器上运行的源代码，这会严重影响服务器的安全和性能。
建议您使用单个的Windows 帐户和更高级别的身份验证（如集成的Windows 身份验证）来处理对此类信息和这些功能的访问。
o读取：授予此权限将允许用户查看或下载文件或文件夹及其相关属性。
“读取”权限默认情况下是选中的。
o写入：授予此权限将允许用户把文件及其相关属性上载到服务器中启用的文件夹，或允许用户更改启用了写入权限的文件的内容或属性。
o“目录浏览”：授予此权限将允许用户查看虚拟目录中的文件和子文件夹的超文本列表。
请注意，文件夹列表中并不显示虚拟目录；用户必须知道虚拟目录的别名。
注意：如果下列两个条件都满足，则当用户试图访问服务器上的文件或文件夹时，Web 服务器将在用户的Web 浏览器中显示一条“Access Forbidden”（禁止访问）错误信息：▪目录浏览被禁用。
- 并且-▪用户未在地址框中指定文件名，如Filename.htm。
o“记录访问”：授予此权限可在日志文件中记录对此文件夹的访问。
只有在为网站启用了日志记录时才会记录日志条目。
ASP读取XML数据的实现
ＡＳＰ读取ＸＭＬ数据的实现作者：吴永光王晓岩来源：《硅谷》2009年第09期[摘要]ASP读取XML数据是开发过程中经常遇到的一个难题，具体介绍ASP读取XML 数据的实现方法。
[关键词]ASP 读取 XML 方法中图分类号：TP3文献标识码：A文章编号：1671－7597（2009）0510032－01一、引言ASP是Web服务器端的开发环境，利用它可以产生和执行动态的、互动的、高性能的Web服务应用程序，在ASP文件中访问数据库是最常用的操作，而扩展标记语言XML从本质上看就是数据库，它是自描述性的，可交换的，能够以树状或图形结构描述数据。
用XML文件存取数据，可以减少额外的服务器负荷，而且XML文件编写、备份和下载都很容易。
ASP 读取XML数据有多种方法。
二、ASP读取XML数据的方法（一）创建MSXML对象，并且将XML文档载入DOM。
为了在ASP中使用DOM，需要创建一个DOM对象，然后加载XML文档。
在XML文档加载之前，需设置validateOnParse 属性为true，这可确保被加载的文档为有效的XML文档，从而可以避免后面遇到的各种麻烦，实例代码片段如下：Set objxml=Server.CreateObject(＂MicrosoftXMLDOM＂)Objxml.validateOnParse=trueObjxml.load(Server.Mappath(＂example.xml＂))Set objrootelement=objxml.documentElement（二）使用服务器端嵌入。
服务器端嵌入可用于将XML文档代码插入ASP页面，如同处理任何其它基于文本的文档一样。
使用这种方法的唯一问题是，XML代码不是在服务器端分析，而是作为XML直接发送至客户端。
如果有意在客户端创建一个XML数据岛，这种方法是可以接受的。
但在大多数情况下，浏览器忽略这种标记，因此，分析结果将毫无用处。
asp处理xml数据的发送、接收类
asp处理xml数据的发送、接收类本asp类可以用来处理xml包的发送与接收。
可用于各种异构系统之间API接口间通讯，以及处理Web Service的调用与接收。
属性：URL : 发送xml的接收地址String只写Message : 系统错误信息String只读XmlNode:获取发送包XML中节点的值String只读参数：Str:节点名称GetXmlData: 获取返回XML数据对象XMLDom只读方法：LoadXmlFromFile : 从外部xml文件填充XmlDoc对象参数Path:xml路径VoidLoadXmlFromString : 用字符串填充XmlDoc对象参数Str:xml字符串VoidNodeValue 设置node的参数参数NodeName 节点名NodeText 值NodeType 保存类型[text=0,cdata=1]blnEncode 是否编码[true,false]VoidSendHttpData : 发送xml包PrintSendXmlData : 打印发送请求XML数据PrintGetXmlData : 打印返回XML数据SaveSendXmlDataToFile : 保存发送请求xml数据到文件，文件名为sendxml_日期.txtSaveGetXmlDataToFile : 保存返回XML数据到文件，文件名为getxml_日期.txtGetSingleNode : 获取返回xml的节点信息参数Nodestring：节点名AcceptHttpData : 接收XML包，错误信息通过Message对象获取AcceptSingleNode: 返回接收XML包节点信息参数Nodestring：节点名PrintAcceptXmlData : 打印接收端接收到的XML数据SaveAcceptXmlDataToFile : 保存接收的XML包数据到文件，文件名为acceptxml_日期.txtSaveDebugStringToFile : 保存调试数据到文件，文件名为debugnote_日期.txt参数Debugstr：调试信息代码:xmlcls.asp<%Rem 处理xml数据的发送、接收类'--------------------------------------------------'转载的时候请保留版权信息'作者:walkman'网址:手机主题网:'版本:ver1.0'--------------------------------------------------Class XmlClassRem 变量定义Private XmlDoc,XmlHttpPrivate MessageCode,SysKey,XmlPathPrivate m_GetXmlDoc,m_urlPrivate m_XmlDocAcceptRem 初始化Private Sub Class_Initialize()On Error Resume NextMessageCode = ""XmlPath = ""Set XmlDoc = Server.CreateObject("msxml2.FreeThreadedDOMDocument.3.0") XmlDoc.ASYNC = FalseEnd SubRem 销毁对象Private Sub Class_Terminate()If IsObject(XmlDoc) Then Set XmlDoc = NothingIf IsObject(m_XmlDocAccept) Then Set m_XmlDocAccept = NothingIf IsObject(m_GetXmlDoc) Then Set m_GetXmlDoc = NothingEnd Sub'公共属性定义开始--------------------------Rem 错误信息Public Property Get Message()Message = MessageCodeEnd PropertyRem 发送xml的地址Public Property Let URL(str)m_url = strEnd Property'公共属性定义结束--------------------------'私有过程、方法开始--------------------------Rem 加载xmlPrivate Sub LoadXmlData()If XmlPath <> "" ThenIf Not XmlDoc.Load(XmlPath) ThenXmlDoc.LoadXml "<?xml version=""1.0"" encoding=""gb2312""?><root/>"End IfElseXmlDoc.LoadXml "<?xml version=""1.0"" encoding=""gb2312""?><root/>" End IfEnd SubRem 字符转化Private Function AnsiToUnicode(ByVal str)Dim i, j, c, i1, i2, u, fs, f, pAnsiToUnicode = ""p = ""For i = 1 To Len(str)c = Mid(str, i, 1)j = AscW(c)j = j + 65536End IfIf j >= 0 And j <= 128 ThenIf p = "c" ThenAnsiToUnicode = " " & AnsiToUnicodep = "e"End IfAnsiToUnicode = AnsiToUnicode & cElseIf p = "e" ThenAnsiToUnicode = AnsiToUnicode & " "p = "c"End IfAnsiToUnicode = AnsiToUnicode & ("&#" & j & ";")End IfNextEnd FunctionRem 字符转化Private Function strAnsi2Unicode(asContents)Dim len1,i,varchar,varascstrAnsi2Unicode = ""len1=LenB(asContents)If len1=0 Then Exit FunctionFor i=1 to len1varchar=MidB(asContents,i,1)varasc=AscB(varchar)If varasc > 127 ThenIf MidB(asContents,i+1,1)<>"" ThenstrAnsi2Unicode = strAnsi2Unicode & chr(ascw(midb(asContents,i+1,1) & varchar)) End Ifi=i+1ElsestrAnsi2Unicode = strAnsi2Unicode & Chr(varasc)End IfNextRem 往文件中追加字符Private Sub WriteStringToFile(filename,str)On Error Resume NextDim fs,tsSet fs= createobject("scripting.filesystemobject")If Not IsObject(fs) Then Exit SubSet ts=fs.OpenTextFile(Server.MapPath(filename),8,True) ts.writeline(str)ts.closeSet ts=NothingSet fs=NothingEnd Sub'私有过程、方法结束--------------------------'公共方法开始--------------------------'''''''''''发送xml部分开始Rem 从外部xml文件填充XmlDoc对象Public Sub LoadXmlFromFile(path)XmlPath = Server.MapPath(path)LoadXmlData()End SubRem 用字符串填充XmlDoc对象Public Sub LoadXmlFromString(str)XmlDoc.LoadXml strEnd SubRem 设置node的参数如NodeValue "appID",AppID,1,False '--------------------------------------------------'参数：'NodeName 节点名'NodeText 值'NodeType 保存类型[text=0,cdata=1]'blnEncode 是否编码[true,false]'--------------------------------------------------Public Sub NodeValue(Byval NodeName,Byval NodeText,Byval NodeType ,Byval blnEncode)Dim ChildNode,CreateCDATASectionNodeName = Lcase(NodeName)If XmlDoc.documentElement.selectSingleNode(NodeName) is nothing ThenSet ChildNode = XmlDoc.documentElement.appendChild(XmlDoc.createNode(1,NodeName,"")) ElseSet ChildNode = XmlDoc.documentElement.selectSingleNode(NodeName)End IfIf blnEncode = True ThenNodeText = AnsiToUnicode(NodeText)End IfIf NodeType = 1 ThenChildNode.Text = ""Set CreateCDATASection = XmlDoc.createCDATASection(Replace(NodeText,"]]>","]]>")) ChildNode.appendChild(createCDATASection)ElseChildNode.Text = NodeTextEnd IfEnd Sub'--------------------------------------------------'获取发送包XML中节点的值'参数：'Str 节点名'--------------------------------------------------Public Property Get XmlNode(Byval Str)If XmlDoc.documentElement.selectSingleNode(Str) is Nothing ThenXmlNode = "Null"ElseXmlNode = XmlDoc.documentElement.selectSingleNode(Str).textEnd If'--------------------------------------------------'获取返回XML数据对象'例：'当GetXmlData不为NULL时，GetXmlData为XML对象'--------------------------------------------------Public Property Get GetXmlData()Set GetXmlData = m_GetXmlDocEnd Property'--------------------------------------------------'发送xml包'--------------------------------------------------Public Sub SendHttpData()Dim i,GetXmlDoc,LoadAppidSet Xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")Set GetXmlDoc = Server.CreateObject("msxml2.FreeThreadedDOMDocument.3.0") ' 返回xml包XmlHttp.Open "POST", m_url, falseXmlHttp.SetRequestHeader "content-type", "text/xml"XmlHttp.Send XmlDoc'Response.Write strAnsi2Unicode(xmlhttp.responseBody)If GetXmlDoc.load(XmlHttp.responseXML) ThenSet m_GetXmlDoc = GetXmlDocElseMessageCode = "请求数据错误！"Exit SubEnd IfSet GetXmlDoc = NothingSet XmlHttp = NothingEnd Sub'--------------------------------------------------'打印发送请求XML数据'--------------------------------------------------Public Sub PrintSendXmlData()Response.ContentType = "text/xml"Response.CharSet = "gb2312"Response.Expires = 0Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"&vbNewLine Response.Write XmlDoc.documentElement.XMLEnd Sub'--------------------------------------------------'打印返回XML数据'--------------------------------------------------Public Sub PrintGetXmlData()Response.ClearResponse.ContentType = "text/xml"Response.CharSet = "gb2312"Response.Expires = 0If IsObject(m_GetXmlDoc) ThenResponse.Write "<?xml version=""1.0"" encoding=""gb2312""?>"&vbNewLine Response.Write m_GetXmlDoc.documentElement.XMLElseResponse.Write "<?xml version=""1.0"" encoding=""gb2312""?><root></root>" End IfEnd SubRem 保存发送请求xml数据到文件，文件名为sendxml_日期.txtPublic Sub SaveSendXmlDataToFile()Dim filename,strfilename = "sendxml_" & DateValue(now) & ".txt"str = ""str = str & ""& Now() & vbNewLinestr = str & "---------------------------------------------"& vbNewLinestr = str & "<?xml version=""1.0"" encoding=""gb2312""?>" & vbNewLinestr = str & XmlDoc.documentElement.XML & vbNewLinestr = str & "---------------------------------------------"& vbNewLinestr = str & vbNewLine & vbNewLine & vbNewLineWriteStringToFile filename,strEnd SubRem 保存返回XML数据到文件，文件名为getxml_日期.txtPublic Sub SaveGetXmlDataToFile()Dim filename,strfilename = "getxml_" & DateValue(now) & ".txt"str = ""str = str & ""& Now() & vbNewLinestr = str & "---------------------------------------------"& vbNewLineIf IsObject(m_GetXmlDoc) Thenstr = str & "<?xml version=""1.0"" encoding=""gb2312""?>" & vbNewLinestr = str & m_GetXmlDoc.documentElement.XMLElsestr = str & "<?xml version=""1.0"" encoding=""gb2312""?>" & vbNewLine & "<root>" & vbNewLine & "</root>" End Ifstr = str & vbNewLinestr = str & "---------------------------------------------"& vbNewLinestr = str & vbNewLine & vbNewLine & vbNewLineWriteStringToFile filename,strEnd Sub'--------------------------------------------------'获取返回xml的节点信息'XmlClassObj.GetSingleNode("//msg")'--------------------------------------------------Public Function GetSingleNode(nodestring)If IsObject(m_GetXmlDoc) ThenGetSingleNode = m_GetXmlDoc.documentElement.selectSingleNode(nodestring).textElseGetSingleNode = ""End IfEnd Function''''''''''''''''''发送xml部分结束''''''''''''''''''接收xml部分开始'--------------------------------------------------'接收XML包，错误信息通过Message对象获取'--------------------------------------------------Public Function AcceptHttpData()Dim XMLdomSet XMLdom = Server.CreateObject("Microsoft.XMLDOM")XMLdom.Async = FalseXMLdom.Load(Request)If XMLdom.parseError.errorCode <> 0 ThenMessageCode = "不能正确接收数据" & "Description: " & XMLdom.parseError.reason & "<br>Line: " & XMLdom.parseError.Line Set m_XmlDocAccept = NullElseSet m_XmlDocAccept = XMLdomEnd IfEnd Function'--------------------------------------------------'返回接收XML包节点信息'XmlClassObj.GetSingleNode("//msg")'--------------------------------------------------Public Function AcceptSingleNode(nodestring)If IsObject(m_XmlDocAccept) ThenAcceptSingleNode = m_XmlDocAccept.documentElement.selectSingleNode(nodestring).textElseAcceptSingleNode = ""End IfEnd Function'--------------------------------------------------'打印接收端接收到的XML数据'--------------------------------------------------Public Sub PrintAcceptXmlData()Response.ClearResponse.ContentType = "text/xml"Response.CharSet = "gb2312"Response.Expires = 0If IsObject(m_XmlDocAccept) ThenResponse.Write "<?xml version=""1.0"" encoding=""gb2312""?>"&vbNewLineResponse.Write m_XmlDocAccept.documentElement.XMLElseResponse.Write "<?xml version=""1.0"" encoding=""gb2312""?><root></root>"End IfEnd SubRem 保存接收的XML包数据到文件，文件名为acceptxml_日期.txtPublic Sub SaveAcceptXmlDataToFile()Dim filename,strfilename = "acceptxml_" & DateValue(now) & ".txt"str = ""str = str & ""& Now() & vbNewLinestr = str & "---------------------------------------------"& vbNewLineIf IsObject(m_XmlDocAccept) Thenstr = str & "<?xml version=""1.0"" encoding=""gb2312""?>" & vbNewLinestr = str & m_XmlDocAccept.documentElement.XMLElsestr = str & "<?xml version=""1.0"" encoding=""gb2312""?>" & vbNewLine & "<root>" & vbNewLine & "</root>" End Ifstr = str & vbNewLinestr = str & "---------------------------------------------"& vbNewLinestr = str & vbNewLine & vbNewLine & vbNewLineWriteStringToFile filename,strEnd Sub''''''''''''''''''接收xml部分结束Rem 保存调试数据到文件，文件名为debugnote_日期.txtPublic Sub SaveDebugStringToFile(debugstr)Dim filename,strfilename = "debugnote_" & DateValue(now) & ".txt"str = ""str = str & ""& Now() & vbNewLinestr = str & "---------------------------------------------"& vbNewLinestr = str & debugstr & vbNewLinestr = str & "---------------------------------------------"str = str & vbNewLine & vbNewLine & vbNewLineWriteStringToFile filename,strEnd Sub'公共方法结束--------------------------End Class%>测试用例：sendxml.asp<%Option ExplicitResponse.buffer = TrueResponse.Expires=-1%><!--#include file="xmlcls.asp"--><%Const Apisysno = "23498927347234234987"Const ActionURL = "/aspnet2/acceptxml.asp" Rem 响应的文件写url地址Dim XmlClassObjSet XmlClassObj = new XmlClass '创建对象XmlClassObj.LoadXmlFromString("<?xml version=""1.0"" encoding=""gb2312""?><root/>") '用xml字符填充XMLDOC对象，用来发送xml XmlClassObj.URL = ActionURL '设置响应的urlRem xml格式Rem "<?xml version="1.0" encoding="gb2312"?>Rem <root>Rem <sysno></sysno>Rem <username></username>Rem <pwd></pwd>Rem <email></email>Rem <pagename></pagename>Rem <pageurl></pageurl>Rem </root>XmlClassObj.NodeValue "sysno",Apisysno,0,FalseXmlClassObj.NodeValue "username","testusername",0,FalseXmlClassObj.NodeValue "pwd","pwd",0,FalseXmlClassObj.NodeValue "email","web@",0,FalseXmlClassObj.NodeValue "pagename","站点",0,FalseXmlClassObj.NodeValue "pageurl","",1,FalseXmlClassObj.SaveSendXmlDataToFile() '将发送的xml数据库包存入txt文件XmlClassObj.SendHttpData() '开始发送xml数据'XmlClassObj.PrintGetXmlData() '打印接收到的xml数据'response.write XmlClassObj.Message '打印错误信息XmlClassObj.SaveGetXmlDataToFile() '将接收到的xml数据库存入txt文件response.write XmlClassObj.GetSingleNode("//message") '显示收到的xml数据的msg节点的值Set XmlClassObj = Nothing '销毁对象实例%>acceptxml.asp<%Rem Api用户注册接口%><%Response.Expires= -1Response.Addheader "pragma","no-cache"Response.AddHeader "cache-control","no-store"%><!--#Include File="xmlcls.asp"--><%Rem xml格式Rem "<?xml version="1.0" encoding="gb2312"?>Rem <root>Rem <sysno></sysno>Rem <username></username>Rem <pwd></pwd>Rem <email></email>Rem <pagename></pagename>Rem <pageurl></pageurl>Rem </root>Const Apisysno = "23498927347234234987"On Error Resume NextDim XmlClassObjSet XmlClassObj = new XmlClass '创建对象XmlClassObj.AcceptHttpData() '接收xml数据XmlClassObj.SaveAcceptXmlDataToFile() '将接收到的xml数据存入txt文件Err.clearDim messageDim sysno,username,pwd,email,PageName,PageURLsysno = XmlClassObj.AcceptSingleNode("//sysno")username = XmlClassObj.AcceptSingleNode("//username")pwd = XmlClassObj.AcceptSingleNode("//pwd")email = XmlClassObj.AcceptSingleNode("//email")PageName = XmlClassObj.AcceptSingleNode("//pagename")PageURL = XmlClassObj.AcceptSingleNode("//pageurl")XmlClassObj.SaveDebugStringToFile("sysno=" & sysno) '存入debug日志文件If Err Thenmessage = message & Err.DescriptionElseErr.clearIf sysno <> Apisysno Thenmessage = "请务非法使用！"Elsemessage = regUser(username,pwd,email,PageName,PageURL)End IfEnd If'XmlClassObj.SaveDebugStringToFile("message=" & message) '将message值存入debug日志文件Set XmlClassObj = Nothing '销毁对象实例Response.ContentType = "text/xml" '输出xml数据流给发送端Response.Charset = "gb2312"Response.ClearResponse.Write "<?xml version=""1.0"" encoding=""gb2312""?>" & vbnewlineResponse.Write "<root>" & vbnewlineResponse.Write "<message>" & message & "</message>" & vbnewlineResponse.Write "<nowtime>" & Now() & "</nowtime>" & vbnewlineResponse.Write "</root>" & vbnewlineFunction regUser(username,pwd,email,PageName,PageURL)'''''''''''''''''''''''''''''''''''''''''''''''''''''''操作数据库注册用户'''''''''''''''''''''''''''''''regUser = "OK" End Function。
读写XML的四种方法
读写XML的四种方法XML（eXtensible Markup Language）是一种用于表示和传输数据的标记语言。
它具有良好的可读性和扩展性，被广泛应用于Web开发、数据交换和配置文件等领域。
在读写和处理XML数据时，有许多方法可供选择。
本文将介绍四种常见的读写XML的方法：DOM、SAX、JDOM、和XMLStreamReader/XMLStreamWriter。
1. DOM（Document Object Model）：DOM是一种基于树形结构的解析器，它将整个XML文档加载到内存中，并将其表示为一个对象树。
在DOM中，每个XML元素都被表示为一个节点（Node），可以通过节点的属性和方法对其进行操作。
读取XML文档时，可以使用DOM解析器将其转换为一个DOM树，然后通过节点的方法访问和修改树结构。
写入XML文档时，可以通过创建和修改节点来构建DOM树，并使用DOM解析器将其保存为XML文档。
使用DOM读取XML文档的基本步骤如下：- 创建一个DocumentBuilderFactory对象。
- 根据DocumentBuilderFactory对象创建一个DocumentBuilder对象。
- 使用DocumentBuilder对象解析XML文档，并返回一个Document对象。
- 通过Document对象的方法遍历和操作XML文档的节点。
使用DOM写入XML文档的基本步骤如下：- 创建一个DocumentBuilderFactory对象。
- 根据DocumentBuilderFactory对象创建一个DocumentBuilder对象。
- 使用DocumentBuilder对象创建一个Document对象。
- 通过Document对象的方法创建和添加元素节点、属性节点等。
- 使用TransformerFactory和Transformer对象将Document对象保存为XML文档。
DOM的优点是易于使用和理解，可以方便地遍历和修改XML文档。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
大家知道 asp 读取 xml 文件吗?下面我们就给大家详细介绍一下吧!我们 积累了一些经验，在此拿出来与大家分享下，请大家互相指正。 strSourceFile=Server.MapPath(dataxml&”/Advertisement/”&id&”/a dv.xml”) SetobjXML=Server.CreateObject(“Microsoft.XMLDOM”)'创建一个 XML 对像 objXML.load(strSourceFile)'把 XML 文件读入内存 Setxml=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 ifadvertvirtualvalue>;=1then xml.childNodes.item(3).text=2 objXML.save(strSourceFile) endif endif Setxml=nothing SetobjXML=nothing 相信大家已经学会 asp 读取 xm