asp处理xml数据的发送接收类Word文档下载推荐.docx

1、NodeValueNodeName 节点名 NodeText 值 NodeType 保存类型 text=0,cdata=1 blnEncode 是否编码 true,false设置node的参数SendHttpData发送xml包PrintSendXmlData打印发送请求XML数据PrintGetXmlData打印返回XML数据SaveSendXmlDataToFile保存发送请求xml数据到文件，文件名为sendxml_日期.txtSaveGetXmlDataToFile保存返回XML数据到文件，文件名为getxml_日期.txtGetSingleNodeNodestring：节点名获取返回

2、xml的节点信息AcceptHttpData接收XML包，错误信息通过Message对象获取AcceptSingleNode返回接收XML包节点信息PrintAcceptXmlData打印接收端接收到的XML数据SaveAcceptXmlDataToFile保存接收的XML包数据到文件，文件名为acceptxml_日期.txtSaveDebugStringToFileDebugstr：调试信息保存调试数据到文件，文件名为debugnote_日期.txt本asp类可以用来处理xml包的发送与接收。可用于各种异构系统之间API接口间通讯，以及处理Web Service的调用与接收。属性：URL :

3、 发送xml的接收地址Message : 系统错误信息XmlNode:参数：GetXmlData: 获取返回XML数据对象LoadXmlFromFile : 从外部xml文件填充XmlDoc对象参数 Path:LoadXmlFromString : 用字符串填充XmlDoc对象参数 Str:NodeValue 设置node的参数 NodeName 节点名NodeText 值NodeType 保存类型 text=0,cdata=1 blnEncode 是否编码 true,falseSendHttpData : 发送xml包PrintSendXmlData : 打印发送请求XML数据PrintGe

4、tXmlData : 打印返回XML数据SaveSendXmlDataToFile : 保存发送请求xml数据到文件，文件名为sendxml_日期.txtSaveGetXmlDataToFile : 保存返回XML数据到文件，文件名为getxml_日期.txtGetSingleNode : 获取返回xml的节点信息参数 Nodestring：AcceptHttpData : 接收XML包，错误信息通过Message对象获取AcceptSingleNode: 返回接收XML包节点信息PrintAcceptXmlData : 打印接收端接收到的XML数据SaveAcceptXmlDataToFil

5、e : 保存接收的XML包数据到文件，文件名为acceptxml_日期.txtSaveDebugStringToFile : 保存调试数据到文件，文件名为debugnote_日期.txt参数 Debugstr：代码:xmlcls.asp%Rem 处理xml数据的发送、接收类-转载的时候请保留版权信息作者:walkman公司:步步为赢科技有限责任公司网址:版本:ver1.0Class XmlClassRem 变量定义Private XmlDoc,XmlHttpPrivate MessageCode,SysKey,XmlPathPrivate m_GetXmlDoc,m_urlPrivate m_

6、XmlDocAcceptRem 初始化 Private Sub Class_Initialize（） On Error Resume Next MessageCode = XmlPath = Set XmlDoc = Server.CreateObject（msxml2.FreeThreadedDOMDocument.3.0） XmlDoc.ASYNC = FalseEnd SubRem 销毁对象Private Sub Class_Terminate（） If IsObject（XmlDoc） Then Set XmlDoc = Nothing If IsObject（m_XmlDocAcce

7、pt） Then Set m_XmlDocAccept = Nothing If IsObject（m_GetXmlDoc） Then Set m_GetXmlDoc = Nothing 公共属性定义开始-Rem 错误信息Public Property Get Message（） Message = MessageCodeEnd PropertyRem 发送xml的地址Public Property Let URL（str） m_url = str 公共属性定义结束-私有过程、方法开始- Rem 加载xmlPrivate Sub LoadXmlData（） If XmlPath Then If

8、 Not XmlDoc.Load（XmlPath） Then XmlDoc.LoadXml ?xml version=1.0 encoding=gb2312root/ End If Else End If Rem 字符转化Private Function AnsiToUnicode（ByVal str） Dim i, j, c, i1, i2, u, fs, f, p AnsiToUnicode = p = For i = 1 To Len（str） c = Mid（str, i, 1） j = AscW（c） If j = 0 And j 127 Then If MidB（asContent

9、s,i+1,1）,> ChildNode.appendChild（createCDATASection） ChildNode.Text = NodeTextStr 节点名Public Property Get XmlNode（Byval Str） If XmlDoc.documentElement.selectSingleNode（Str） is Nothing Then XmlNode = Null XmlNode = XmlDoc.documentElement.selectSingleNode（Str）.text例：当GetXmlData不为NULL时，GetXmlData为XML

10、对象Public Property Get GetXmlData（） Set GetXmlData = m_GetXmlDoc发送xml包 Public Sub SendHttpData（） Dim i,GetXmlDoc,LoadAppid Set Xmlhttp = Server.CreateObject（MSXML2.ServerXMLHTTP.3.0 Set GetXmlDoc = Server.CreateObject（） 返回xml包 XmlHttp.Open POST, m_url, false XmlHttp.SetRequestHeader content-type, tex

11、t/xml XmlHttp.Send XmlDoc Response.Write strAnsi2Unicode（xmlhttp.responseBody） If GetXmlDoc.load（XmlHttp.responseXML） Then Set m_GetXmlDoc = GetXmlDoc请求数据错误！ Exit Sub Set GetXmlDoc = Nothing Set XmlHttp = NothingPublic Sub PrintSendXmlData（） Response.Clear Response.ContentType = Response.CharSet = R

12、esponse.Expires = 0 Response.Write vbNewLine Response.Write XmlDoc.documentElement.XMLPublic Sub PrintGetXmlData（） If IsObject（m_GetXmlDoc） Then Response.Write m_GetXmlDoc.documentElement.XMLroot/rootRem 保存发送请求xml数据到文件，文件名为sendxml_日期.txtPublic Sub SaveSendXmlDataToFile（） Dim filename,str filename =

13、sendxml_ DateValue（now） &.txt str = str = str & Now（） & vbNewLine- XmlDoc.documentElement.XML & vbNewLine & WriteStringToFile filename,strRem 保存返回XML数据到文件，文件名为getxml_日期.txtPublic Sub SaveGetXmlDataToFile（）getxml_ m_GetXmlDoc.documentElement.XMLXmlClassObj.GetSingleNode（/msgPublic Function GetSingleNode（nodestring） GetSingleNode = m_GetXmlDoc.documentElement.selectSingleNode（nodestring）.text GetSingleNode = End Function 发送xml部分结束接收xml部分开始Public Function AcceptHttpData（） D