#12004/9/3 15:10:31
我写了这样一个例子,不知有没有错误,没地方测试
<!--#include file=xml_inc.asp-->
<%
'//---------------------------SyncOrderRelationReq 业务订购关系同步的请求包---------------------
'function CreateReqXML(Send_DeviceType,Send_DeviceID,Dest_DeviceType,Dest_DeviceID,FeeUser_UserIDType,FeeUser_MSISDN,FeeUser_PseudoCode,DestUser_UserIDType,DestUser_MSISDN,DestUser_PseudoCode,LinkID,ActionID,ActionReasonID,SPID,SPServiceID,AccessMode,FeatureStr)
'//---------------------------SubscribeServiceReq SP订购请求包---------------------
'function CreateSubReqXML(Send_DeviceType,Send_DeviceID,Dest_DeviceType,Dest_DeviceID,FeeUser_UserIDType,FeeUser_MSISDN,DestUser_UserIDType,DestUser_MSISDN,ServiceIDType,SPID,SPServiceID)
'//---------------------------UnSubscribeServiceReq 取消服务请求包---------------------
'function CreateUnSubReqXML(Send_DeviceType,Send_DeviceID,Dest_DeviceType,Dest_DeviceID,FeeUser_UserIDType,FeeUser_MSISDN,DestUser_UserIDType,DestUser_MSISDN,ServiceIDType,SPID,SPServiceID)
'----------------示例-------------------
strxml=CreateReqXML("0","0011","400","0","2","1","00116000000286","2","1","00116000000286","SP","1","1","919102","0000000064","3","1")
'response.write xmldoc
url="http://localhost/dsmp/dsmp.wsdl" 'dsmp地址
set objSrvHTTP =server.createobject("MSXML2.XMLHTTP")
objSrvHTTP.open "POST",url, false
objSrvHTTP.setRequestHeader "Content-Type", "text/xml"
objSrvHTTP.send (strxml)
'取得返回的XML信息
TextStr = objSrvHTTP.responseBody
'将返回的XML信息解析并且显示返回值
Set objXML = server.createobject("MSXML2.DOMDocument40")
objXML.loadXML(TextStr)
'---取得hRet的值---
response.write node_value("SyncOrderRelationResp","hRet")
function node_value(rootnode,node_name)
node_value=""
set recordlist=objXML.getElementsByTagName(rootnode)
node_value=recordlist(0).selectSingleNode(node_name).Text
set recordlist=nothing
end function
set objXML=nothing
set objSrvHTTP=nothing
%>