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%><%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"%><%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文档。

XML格式文件的应用与打开方法

XML格式文件的应用与打开方法一、什么是xml格式文件XML是可扩展标记语言（eXtensible Markup Language）的缩写，它是一种用于标记电子文件结构和传输数据的标记语言。

XML文件使用自定义标签来描述数据的结构和含义，可以被用于在不同系统之间进行数据交换和共享。

XML文件可以被解析和处理，使得数据能够被有效地存储、传输和展示。

XML被广泛应用于Web开发、数据交换、配置文件等领域。

二、XML格式文件的应用1. Web开发XML（可扩展标记语言）是用于存储和传输数据的标准标记语言，它与HTML一起被广泛用于创建动态和交互式的网页。

在网页开发中，XML常被用于存储配置信息，如网站的元数据、页面的布局和样式等。

此外，XML还用于在不同系统之间进行数据交换，使得数据能在不同的应用程序和平台上共享和交互。

由于其结构化、灵活性和跨平台性，XML在数据存储和传输领域发挥着不可或缺的作用。

在网页开发中，XML有诸多优势，使得它在数据存储和传输方面成为理想的选择。

首先，XML的结构化特性使得数据易于理解和解析，这对于在不同系统间进行数据交换非常关键。

其次，XML的跨平台性使得数据可以在不同的应用程序和操作系统上共享和交互。

此外，XML还具有灵活性，可以轻松地表示复杂的数据结构，并支持自定义标记，以适应特定应用的需求。

在网页开发中，利用这些优势，XML可以用于存储配置信息、实现数据驱动的动态内容、以及与其他系统进行数据交换等。

通过合理地使用XML，可以提高网页的可维护性、可扩展性和交互性，为创建高性能的网站提供有力支持。

2. 数据交换XML的跨平台性和标准化特性，使其成为不同系统之间进行数据交换的理想选择。

在Web服务中，XML被广泛用于传输数据，使得不同的应用程序能够通过统一的格式进行数据交换。

它能够清晰地表示数据的结构和含义，使得不同系统能够准确解析和解读数据。

此外，XML还可以在不同数据库之间进行数据转换，实现数据的共享和集成。

读取xml的五种方法

123 * @param qName 原始名，如LIT:student
124 * @throws SAXException */
125 public void endElement(String namespaceURI, String localName,String qName) throws SAXException{
28 System.exit(1);
29 }
30 //获得根节点StuInfo
31 Element elmtStuInfo = doc.getDocumentElement();
32 //得到所有student节点
33 NodeList nlStudent = elmtStuInfo.getElementsByTagNameNS(
23 } catch (DOMException dom) {
24Message());
25 System.exit(1);
26 } catch (IOException ioe) {
27 System.err.println(ioe);
在java环境下读取xml文件的方法主要有5种：DOM、SAX、JDOM、JAXB、dom4j
最常用、最好用的dom4j
1. DOM(Document Object Model)
此方法主要由W3C提供，它将xml文件全部读入内存中，然后将各个元素组成一棵数据树，以便快速的访问各个节点。因此非常消耗系统性能，对比较大的文档不适宜采用DOM方法来解析。 DOM API 直接沿袭了 XML 规范。每个结点都可以扩展的基于 Node 的接口，就多态性的观点来讲，它是优秀的，但是在 Java 语言中的应用不方便，并且可读性不强。

读取XML文件的四种方法

xml文件：Xml代码<?xml version="1.0" encoding="GB2312"?><RESULT><VALUE><NO>A1234</NO><ADDR>河南省郑州市</ADDR></VALUE><VALUE><NO>B1234</NO><ADDR>河南省郑州市二七区</ADDR></VALUE></RESULT>第一种 DOM 实现方法：Java代码import java.io.File;import javax.xml.parsers.DocumentBuilder;import javax.xml.parsers.DocumentBuilderFactory;import org.w3c.dom.Document;import org.w3c.dom.NodeList;public class MyXMLReader2DOM {public static void main(String arge[]) {long lasting = System.currentTimeMillis();try {File f = new File("data_10k.xml");DocumentBuilderFactory factory = DocumentBuilderFactory.newInstance();DocumentBuilder builder = factory.newDocumentBuilder();Document doc = builder.parse(f);NodeList nl = doc.getElementsByTagName("VALUE");for (int i = 0; i < nl.getLength(); i++) {System.out.print("车牌号码:"+doc.getElementsByTagName("NO").item(i).getFirstChild().getNodeValue());System.out.println("车主地址:"+doc.getElementsByTagName("ADDR").item(i).getFirstChild().getNodeValue());System.out.println("运行时间：" + (System.currentTimeMillis() - lasting) + "毫秒");}}} catch (Exception e) {e.printStackTrace();}}}第二种，DOM4J实现方法：Java代码import java.io.*;import java.util.*;import org.dom4j.*;import org.dom4j.io.*;public class MyXMLReader2DOM4J {public static void main(String arge[]) {long lasting = System.currentTimeMillis();try {File f = new File("data_10k.xml");SAXReader reader = new SAXReader();Document doc = reader.read(f);Element root = doc.getRootElement();Element foo;for (Iterator i = root.elementIterator("VALUE"); i.hasNext();) {foo = (Element) i.next();System.out.print("车牌号码:" + foo.elementText("NO"));System.out.println("车主地址:" + foo.elementText("ADDR"));}System.out.println("运行时间：" + (System.currentTimeMillis() - lasting) + "毫秒");}} catch (Exception e) {e.printStackTrace();}}}第三种 JDOM实现方法：Java代码import java.io.*;import java.util.*;import org.jdom.*;import org.jdom.input.*;public class MyXMLReader2JDOM {public static void main(String arge[]) {long lasting = System.currentTimeMillis();try {SAXBuilder builder = new SAXBuilder();Document doc = builder.build(new File("data_10k.xml"));Element foo = doc.getRootElement();List allChildren = foo.getChildren();for (int i = 0; i < allChildren.size(); i++) {System.out.print("车牌号码:"+ ((Element)allChildren.get(i)).getChild("NO").getText());System.out.println("车主地址:"+ ((Element)allChildren.get(i)).getChild("ADDR").getText());}System.out.println("运行时间：" + (System.currentTimeMillis() - lasting) + "毫秒");}} catch (Exception e) {e.printStackTrace();}}}第四种SAX实现方法：Java代码import javax.xml.parsers.SAXParser;import javax.xml.parsers.SAXParserFactory;import org.xml.sax.Attributes;import org.xml.sax.InputSource;import org.xml.sax.SAXException;import org.xml.sax.helpers.DefaultHandler;public class MyXMLReader2SAX extends DefaultHandler { java.util.Stack tags = new java.util.Stack();public MyXMLReader2SAX() {super();}public static void main(String args[]) {long lasting = System.currentTimeMillis();try {SAXParserFactory sf = SAXParserFactory.newInstance(); SAXParser sp = sf.newSAXParser();MyXMLReader2SAX reader = new MyXMLReader2SAX();sp.parse(new InputSource("data_10k.xml"), reader);} catch (Exception e) {e.printStackTrace();}System.out.println("运行时间：" + (System.currentTimeMillis() - lasting) + "毫秒");}public void characters(char ch[], int start, int length)throws SAXException {String tag = (String) tags.peek();if (tag.equals("NO")) {System.out.print("车牌号码：" + new String(ch, start, length));}if (tag.equals("ADDR")) {System.out.println("地址:" + new String(ch, start, length));}}public void startElement(String uri, String localName, String qName, Attributes attrs) {tags.push(qName);}}http://localhost:11211/hanvnet.WebClient/contact/contactOrder.aspx。

aspnet 读取配置文件方法汇总

读取配置文件方法读取配置文件方法,需要的朋友可以参考下。

方法1：复制代码代码如下:ValueCollection nvc = (ValueCollectio n)System.Configuration.ConfigurationManager.GetSection(sectionName);string keyValue = nvc.GetValues(keyName)[0].ToString();方法2：复制代码代码如下:System.Web.Configuration.WebConfigurationManager.AppSettings[keyName].ToString();参考下面的文章在C#中如何读取配置文件1. 配置文件概述：应用程序配置文件是标准的XML 文件，XML 标记和属性是区分大小写的。

它是可以按需要更改的，开发人员可以使用配置文件来更改设置，而不必重编译应用程序。

配置文件的根节点是configuration。

我们经常访问的是appSettings，它是由.Net预定义配置节。

我们经常使用的配置文件的架构是象下面的形式。

先大概有个印象，通过后面的实例会有一个比较清楚的认识。

下面的“配置节”可以理解为进行配置一个X ML的节点。

常见配置文件模式：复制代码代码如下:<configuration><configSections> //配置节声明区域，包含配置节和命名空间声明<section> //配置节声明<sectionGroup> //定义配置节组<section> //配置节组中的配置节声明<appSettings> //预定义配置节<Custom element for configuration section> //配置节设置区域2. 只有appSettings节的配置文件及访问方法下面是一个最常见的应用程序配置文件的例子，只有appSettings节。

用asp读取xml文件的技巧

用 asp 读取 xml 文件的技巧
我们为大家收集整理了关于 asp 读取 xml 文件，以方便大家参考。 strSourceFile=Server.MapPath(dataxml&”/Advertisement/”&id&”/a dv.xml”) SetobjXMLoft.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
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 希望大家学业有成，工作顺利
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

Asp 文件的打开、读取与写入

set ts=fso.opentextfile(server.mappath(“index.txt”),1)
do while not ts.AtEndOfStream ‘检查是否到达文件结尾
chars=ts.read(6) ‘读取6个字符，再派给字符串变量chars
response.write chars & “<br />” ‘输出chars的值和强制换行
用途：在文件内写入字符串
范例：ts.Write(“ASP 动态网页设计”)
语法：ts.WriteLine(string)
用途：在文件内写入字符串和换行符
范例：ts.Write(“ASP 动态网页设计”)
语法：ts.WriteBlankLines(num)
用途：在文件内写入Num 个换行字符
loop
ts.close ‘关闭打开的文件
set ts=nothing ‘释放实例对象
set fso=nothing ‘释放实例对象
%>
</body>
</html>
<%
dim fso,ts,aline
set fso = server.createobject("scripting.filesystemobject")
范例：Dim Aline
Aline=ts.ReadLine
Response.Write Aline
<html>
<head></head>
<body>
<%
dim fso,ts,chars

ASP发送和接收XML数据的处理方法简介

‘readstate 读取状态为 4 则成功，继续后面的，不成功当然就不用继续处理了 dim objstream set objstream = Server.CreateObject(“adodb.stream”) ‘定义一个 stream，因为读过来的直接拿出来是乱码的，所以得处理一下 objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write Https.responseBody objstream.Position = 0 objstream.Type = 2 objstream.Charset = “GB2312” html = objstream.ReadText
response.write “不能正确接收数据” & “Description: “ &
xml.parseError.reason & “ Line: “ & xml.parseError.Line End If set blogchild=xml.getElementsByTagName(“misc_command”) ‘the_text=blogchild.item(0).childnodes(1).text ‘the_text=blogchild.item(0).text ‘for i=0 to blogchild.length-1 response.write the_text 相信大家已经学会 ASP 发送和接收 XML 数据的处理方法了吧!
‘转好码，就放到 html 里，好关闭这些对像 objstห้องสมุดไป่ตู้eam.Close set objstream = nothing set https=nothing end if response.write html response.asp ‘创建 DOMDocument 对象 Set xml = Server.CreateObject (“msxml2.DOMDocument”) xml.async = False ‘装载 POST 数据 xml.Load Request If xml.parseError.errorCode ; 0 Then