<%@CODEPAGE=65001%> 无标题文档 <% function PadLeft(AStr,ALen,AChar) ResultStr = trim(AStr) for i = 0 to (ALen - Len(ResultStr) - 1) ResultStr = AChar & ResultStr next PadLeft = ResultStr end function years=request("year") months=request("month") method=request("method") if method = "sdata" then Yhh=PadLeft(request("Yhh"),8,0) end if %> <% dim url,soaprequest,retvalue url = "http://192.168.1.122/JD/qfcx.asmx/GetService" soaprequest="YHH="+Yhh+"" '测试时可输出下面验证参数是否正确 'response.Write(soaprequest) set xmlhttp = server.createobject("msxml2.xmlhttp") xmlhttp.open "post",url,false xmlhttp.setrequestheader "content-type", "application/x-www-form-urlencoded" xmlhttp.setrequestheader "host","192.168.1.122" '服务主机IP xmlhttp.setrequestheader "content-length",len(soaprequest) On Error Resume Next xmlhttp.send(soaprequest) if xmlhttp.status = 200 then set xmldoc = server.createobject("msxml2.domdocument") xmldoc.load(xmlhttp.responsexml) 'xmldoc是接收了webservice返回的xml内容,如果webservice返回的不是xml,就用xmlhttp.responsetext '可一次性读出所有的值 'Set root=xmldoc.documentElement.childNodes.nextNode() '根目录的东西,注释在这里,root本例中没有实用 Set xmlItem=xmldoc.getElementsByTagName("RECORD") '直接查找RECORD标签 if isnull(xmlItem) then response.Write("读取失败") response.End() end if %>
用户编号: 用户名: 欠费笔数: 查询时间:
<% if xmlItem.length=0 then %> <% else for i=0 to xmlItem.length-1 '取出符合条件的元素 set elements =xmldoc.documentElement.selectSingleNode("/MSG/BODY/RECORD["&i&"]") %> <% next %> <% end if Set xmlhttp = Nothing end if %>
序号 抄表日期 本期示数 上期示数 增减用量 本期用量 用水单价1 用水单价2 比例1 比例2 计费金额 违约金 应收金额
没有找到和查询条件相符合的数据!输入或者选择查询条件来查找你想要的数据。
<%=elements.getAttribute("XH")%> <%=formatdatetime(elements.getAttribute("CBRQ"),2)%> <%=elements.getAttribute("BYSS")%> <%=elements.getAttribute("SYSS")%> <%=elements.getAttribute("ZJYL")%> <%=elements.getAttribute("YL")%> <%=elements.getAttribute("DJ1")%> <%=elements.getAttribute("DJ2")%> <%=elements.getAttribute("BL1")%> <%=elements.getAttribute("BL2")%> <%=elements.getAttribute("ZJE")%> <%=elements.getAttribute("ZNJ")%> <%=elements.getAttribute("SSJE")%>
合计: <% response.Write(xmldoc.documentElement.selectSingleNode("/MSG/BODY/QFJE").text) %>