<% on error resume next Set docReceived = CreateObject("Microsoft.XMLDOM") docReceived.async = False docReceived.load Request Set rootNode = docReceived.documentElement '获得根元素 data_type=rootNode.getAttribute("id") cpcode=rootNode.childNodes.item(0).getAttribute("value") userid=rootNode.childNodes.item(1).getAttribute("value") encryptflag= rootNode.childNodes.item(2).getAttribute("value") serviceid=rootNode.childNodes.item(3).getAttribute("value") ispack=rootNode.childNodes.item(4).getAttribute("value") sub_type=rootNode.childNodes.item(5).getAttribute("value") disorderdate=rootNode.childNodes.item(6).getAttribute("value") Set docReceived=nothing if data_type="" then Response.Write "没有数据！" else if err.number=0 then if data_type="service_order_to_cp" then Response.Write "" Response.Write "" Response.Write "" else Response.Write "" Response.Write "" Response.Write "" end if else if data_type="service_order_to_cp" then Response.Write "" Response.Write "" Response.Write "" else Response.Write "" Response.Write "" Response.Write "" end if end if end if err.Clear %> <% on error resume next Set docReceived = CreateObject("Microsoft.XMLDOM") docReceived.async = False docReceived.load Request Set rootNode = docReceived.documentElement '获得根元素 data_type=rootNode.getAttribute("id") cpcode=rootNode.childNodes.item(0).getAttribute("value") userid=rootNode.childNodes.item(1).getAttribute("value") encryptflag= rootNode.childNodes.item(2).getAttribute("value") serviceid=rootNode.childNodes.item(3).getAttribute("value") ispack=rootNode.childNodes.item(4).getAttribute("value") sub_type=rootNode.childNodes.item(5).getAttribute("value") disorderdate=rootNode.childNodes.item(6).getAttribute("value") Set docReceived=nothing if data_type="" then Response.Write "没有数据！" else if err.number=0 then if data_type="service_order_to_cp" then Response.Write "" Response.Write "" Response.Write "" else Response.Write "" Response.Write "" Response.Write "" end if else if data_type="service_order_to_cp" then Response.Write "" Response.Write "" Response.Write "" else Response.Write "" Response.Write "" Response.Write "" end if end if end if err.Clear %>