XML包例子
<?xml version= "1.0 " encoding= "UTF-8 "?>
<RequestOrderInfo>
<MDN> 13378514907 </MDN>
<SPCode> 76409 </SPCode>
<ProductCode> 4234795994 </ProductCode>
<FeeType> 6 </FeeType>
<TransactionID> 0000000000000000000000000000000000000000 </TransactionID>
</RequestOrderInfo>
接收代码是按照版主提供的参考代码测试的,但是始终都不成功,大家帮忙看看错误在哪
sub.asp
<%
Dim docRequest
Dim docResult
Dim Mobile '电话号码
Dim SpCode '企业代码
Dim ProductCode '服务代码
Dim FeeType '计费类型
Dim TransID '事务ID
Dim ResStr '返回的xml文件内容的字符串
Dim SvcTypeCode '业务类型(目前没有使用，仅保留)
Dim ErrorCode
Dim vbCRLF
vbCRLF = vbCr & vbLf
ErrorCode= "00000000 "
Set docRequest = CreateObject( "Microsoft.XMLDOM ")
Set docResult = CreateObject( "Microsoft.XMLDOM ")
docRequest.Load Request
Mobile = docRequest.getElementsByTagName( "MDN ").Item(0).getFirstChild().getNodeValue()
SpCode = docRequest.getElementsByTagName( "SPCode ").Item(0).getFirstChild().getNodeValue()
ProductCode = docRequest.getElementsByTagName( "ProductCode ").Item(0).getFirstChild().getNodeValue()
FeeType = docRequest.getElementsByTagName( "FeeType ").Item(0).getFirstChild().getNodeValue()
TransactionID = docRequest.getElementsByTagName( "TransactionID ").Item(0).getFirstChild().getNodeValue()
If docRequest.documentElement.nodeName = "RequestOrderInfo " Then '订购处理
'生成xml内容
ResStr = " <?xml version= " "1.0 " " encoding= " "UTF-8 " "?> " & vbCRLF & _
" <RequestResultInfo> " & vbCRLF & _
" <MDN> " & Mobile & " </MDN> " & vbCRLF & _
" <SPCode> " & SpCode & " </SPCode> " & vbCRLF & _
" <ProductCode> " & ProductCode & " </ProductCode> " & vbCRLF & _
" <FeeType> " & FeeType & " </FeeType> " & vbCRLF & _
" <TransactionID> " & TransID & " </TransactionID> " & vbCRLF & _
" <ErrorCode> " & ErrorCode & " </ErrorCode> " & vbCRLF & _
" </RequestResultInfo> "
ElseIf docRequest.documentElement.nodeName = "CancelOrderInfo " Then '取消订购处理
SvcTypeCode = xmlDoc.selectSingleNode( "//SvcTypeCode ").getAttribute( "value ")
'生成xml内容
ResStr = " <?xml version= " "1.0 " " encoding= " "UTF-8 " "?> " & vbCRLF & _
" <CancelResultInfo> " & vbCRLF & _
" <MDN> " & Mobile & " </MDN> " & vbCRLF & _
" <SPCode> " & SpCode & " </SPCode> " & vbCRLF & _
" <SvcTypeCode> " & SvcTypeCode & " </SvcTypeCode> " & vbCRLF & _
" <ProductCode> " & ProductCode & " </ProductCode> " & vbCRLF & _
" <TransactionID> " & TransID & " </TransactionID> " & vbCRLF & _
" <ErrorCode> " & ErrorCode & " </ErrorCode> " & vbCRLF & _
" </CancelResultInfo> "
End If
docResult.loadXML ResStr '生成应答的xml文档
Response.Write (docResult.xml) '返回结果
%>
报的错误是:
Microsoft VBScript 运行时错误 错误 '800a01a8 '
缺少对象: 'getElementsByTagName(...).Item(...)
