TOMMYHU

ASP读取XML，ASP读取XML比.NET要麻烦很多，这里写了个常用节点读取方式，判断是节点否为空或空值等，可以借鉴下
可能返回ServiceSuccess.xml
<?xml version="1.0" encoding="utf-8"?> <response> <service>测试服务</service> <result>   <status>1</status>   <desc>搞定了</desc> </result> </response>
也可能返回ServiceError.xml
<?xml version="1.0" encoding="utf-8"?> <response>   <error>     <errorcode>1</errorcode>     <errordis><![CDATA[HTTP方法错误]]></errordis>   </error> </response>
读取
Function ReadXml()'随机状态     Dim xml,myxml,objNodes,objName,ObjError     Dim status,desc,errorcode,errorStr     Dim ApiSuccess,ApiError     Randomize     Dim num:num = int((10-1)*Rnd()+1)     If num>5 Then       myxml = "ServiceSuccess.xml"     Else         myxml = "ServiceError.xml"     End If   response.write myxml   set xml = server.CreateObject("Microsoft.XMLDOM")   xml.async = "false"   xml.resolveExternals = "false"   xml.setProperty "ServerHTTPRequest", true   xml.load(myxml)   'response.write myxml     Set objName = xml.getElementsByTagName("response")     Set ApiSuccess = objName(0).getElementsByTagName("result")     Set ApiError   = objName(0).getElementsByTagName("error")     If ApiSuccess.length>0 Then 'success         If ApiSuccess(0).selectsingleNode("status").text&"" > "" Then             status = ApiSuccess(0).selectsingleNode("status").text         End If         If ApiSuccess(0).selectsingleNode("desc").text&"" > "" Then             desc = ApiSuccess(0).selectsingleNode("desc").text         End If       ElseIf ApiError.length>0 Then 'error         If ApiError(0).selectsingleNode("errorcode").text&"" > "" Then             errorcode = ApiError(0).selectsingleNode("errorcode").text         End If         If ApiError(0).selectsingleNode("errordis").text&"" > "" Then             errorStr = ApiError(0).selectsingleNode("errordis").text         End If     End If       response.write status     response.write desc     response.write errorcode     response.write errorStr   Set objName = Nothing   set xml = Nothing     End Function
最后编辑： tommyhu 编辑于2011/05/19 07:40