asp处理xml数据的发送、接收类

<%
Option Explicit

Response.buffer = True
Response.Expires=-1
%>
<!--#include file="xmlcls.asp"-->

<%
Const Apisysno = "23498927347234234987"
Const ActionURL = "http://www.shouji138.com/aspnet2/acceptxml.asp" Rem 响应的文件 写url地址

Dim XmlClassObj
Set XmlClassObj = new XmlClass   ''创建对象
XmlClassObj.LoadXmlFromString("<?xml version=""1.0"" encoding=""gb2312""?><root/>") ''用xml字符填充XMLDOC对象，用来发送xml
XmlClassObj.URL =    ActionURL ''设置响应的url

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>

XmlClassObj.NodeValue "sysno",Apisysno,0,False  
XmlClassObj.NodeValue "username","testusername",0,False
XmlClassObj.NodeValue "pwd","pwd",0,False
XmlClassObj.NodeValue "email","web@shouji138.com",0,False
XmlClassObj.NodeValue "pagename","站点",0,False
XmlClassObj.NodeValue "pageurl","http://www.shouji138.com",1,False

 

XmlClassObj.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         ''销毁对象实例