写了两个小程序。。。。
createxml.asp
<%
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)
dim xmldoc
xmldoc="<?xml version=""1.0"" encoding=""utf-8""?>"
xmldoc=xmldoc&"<SOAP-ENV:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"""
xmldoc=xmldoc&" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"""
xmldoc=xmldoc&" xmlns:SOAP-ENV=""http://schemas.xmlsoap.org/soap/envelope/"""
xmldoc=xmldoc&" xmlns:SOAP-ENC=""http://schemas.xmlsoap.org/soap/encoding/"">"
xmldoc=xmldoc&" <SOAP-ENV:Header>"
xmldoc=xmldoc&" <TransactionID xmlns=""http://10.1.2.122/misc/dsmp.xsd"">"&TransactionID&"</TransactionID>"
xmldoc=xmldoc&" </SOAP-ENV:Header>"
xmldoc=xmldoc&" <SOAP-ENV:Body>"
xmldoc=xmldoc&" <SyncOrderRelationReq xmlns=""http://10.1.2.122/misc/dsmp.xsd"">"
xmldoc=xmldoc&" <Version>1.5.0</Version>"
xmldoc=xmldoc&" <MsgType>SyncOrderRelationReq</MsgType>"
xmldoc=xmldoc&" <Send_Address>"
xmldoc=xmldoc&" <DeviceType>"&Send_DeviceType&"</DeviceType>"
xmldoc=xmldoc&" <DeviceID>"&Send_DeviceID&"</DeviceID>"
xmldoc=xmldoc&" </Send_Address>"
xmldoc=xmldoc&" <Dest_Address>"
xmldoc=xmldoc&" <DeviceType>"&Dest_DeviceType&"</DeviceType>"
xmldoc=xmldoc&" <DeviceID>"&Dest_DeviceID&"</DeviceID>"
xmldoc=xmldoc&" </Dest_Address>"
xmldoc=xmldoc&" <FeeUser_ID>"
xmldoc=xmldoc&" <UserIDType>"&FeeUser_UserIDType&"</UserIDType>"
xmldoc=xmldoc&" <MSISDN>"& FeeUser_MSISDN &"</MSISDN>"
xmldoc=xmldoc&" <PseudoCode>"&FeeUser_PseudoCode&"</PseudoCode>"
xmldoc=xmldoc&" </FeeUser_ID>"
xmldoc=xmldoc&" <DestUser_ID>"
xmldoc=xmldoc&" <UserIDType>"&DestUser_UserIDType&"</UserIDType>"
xmldoc=xmldoc&" <MSISDN>"& DestUser_MSISDN &"</MSISDN>"
xmldoc=xmldoc&" <PseudoCode>"&DestUser_PseudoCode&"</PseudoCode>"
xmldoc=xmldoc&" </DestUser_ID>"
xmldoc=xmldoc&" <LinkID>"&LinkID&"</LinkID>"
xmldoc=xmldoc&" <ActionID>"&ActionID&"</ActionID>"
xmldoc=xmldoc&" <ActionReasonID>"&ActionReasonID&"</ActionReasonID>"
xmldoc=xmldoc&" <SPID>"&SPID&"</SPID>"
xmldoc=xmldoc&" <SPServiceID>"&SPServiceID&"</SPServiceID>"
xmldoc=xmldoc&" <AccessMode>"&AccessMode&"</AccessMode>"
xmldoc=xmldoc&" <FeatureStr>"&FeatureStr&"</FeatureStr>"
xmldoc=xmldoc&" </SyncOrderRelationReq>"
xmldoc=xmldoc&" </SOAP-ENV:Body>"
xmldoc=xmldoc&"</SOAP-ENV:Envelope>"
CreateReqXML=xmldoc
set xmldoc=nothing
end function
xmldoc=CreateReqXML("0","0011","400","0","2","1","00116000000286","2","1","00116000000286","SP","1","1","919102","0000000064","3","1")
response.write xmldoc
%>
xmlgetdata.asp
<%
Function bytes2BSTR(vIn)
strReturn = ""
For b = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,b,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,b+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
b = b + 1
End If
Next
bytes2BSTR = strReturn
End Function
function GetData(url)
set objSrvHTTP =server.createobject("MSXML2.XMLHTTP")
objSrvHTTP.open "POST",url, false
objSrvHTTP.send ()
GetData=Bytes2bStr(objSrvHTTP.responseBody)
end function
url="http://localhost/test/createxml.asp"
%>
<%=GetData(url)%>
