query_result.asp

机票预定系统 各个模块的设计-ticket reservation systems detailed design system modules of the design

<%
	function TestGetData(City,DateFrom,HTTP,Airways,TimeFrom,PlaneType,Eticket,Bunk,FlagFen,Baoliu)
	'url = "http://220.231.153.132:9876/Service.asmx"
	url = "http://59.39.69.217:9876/Service.asmx"

        SoapRequest="<?xml version="&CHR(34)&"1.0"&CHR(34)&" encoding="&CHR(34)&"utf-8"&CHR(34)&"?>"& _
        "<soap:Envelope xmlns:xsi="&CHR(34)&"http://www.w3.org/2001/XMLSchema-instance"&CHR(34)&" "& _
        "xmlns:xsd="&CHR(34)&"http://www.w3.org/2001/XMLSchema"&CHR(34)&" "& _
        "xmlns:soap="&CHR(34)&"http://schemas.xmlsoap.org/soap/envelope/"&CHR(34)&">"& _
        "<soap:Body>"& _

        "<Query  xmlns="&CHR(34)&"http://tempuri.org/"&CHR(34)&">"& _
              "<City>"&City&"</City>"& _
              "<DateFrom>"&DateFrom&"</DateFrom>"& _
              "<HTTP>"&HTTP&"</HTTP>"& _
			  "<Airways>"&Airways&"</Airways>" & _
			  "<TimeFrom>"&TimeFrom&"</TimeFrom>" & _
			  "<PlaneType>"&PlaneType&"</PlaneType>" & _
			  "<Eticket>"&Eticket&"</Eticket>" & _
			  "<Bunk>"&Bunk&"</Bunk>" & _
			  "<FlagFen>"&FlagFen&"</FlagFen>" & _
			  "<Baoliu>"&Baoliu&"</Baoliu>" & _
        "</Query >"& _
        "</soap:Body>"& _
        "</soap:Envelope>"
		'on error resume next
		Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
		Set xmlDoc = server.CreateObject("Msxml2.DOMDocument")
		xmlDoc.ValidateOnParse = False
		xmlDoc.async = false
		xmlDoc.resolveExternals = false
		xmlhttp.Open "POST",url,false

		xmlhttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
		'xmlhttp.setRequestHeader "HOST","220.231.153.132"
		xmlhttp.setRequestHeader "HOST","59.39.69.217"
		xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest)
		xmlhttp.setRequestHeader "SOAPAction", "http://tempuri.org/Query" 	
		xmlhttp.Send(SoapRequest)
		strvas = xmlhttp.responseText	
		xmlDoc.loadXML(strvas)
		strvas = xmlDoc.text
		Set xmlhttp = Nothing
		TestGetData = strvas
	end function
	
	function errmsg(str)
		select case (str)
		case "200"
			errmsg="200错误:密码或者查询的地址不能为空"
		case "201"
			errmsg="201错误:查询的帐号无效"
		case "202"
			errmsg="202错误:密码验证有误"
		case "203"
			errmsg="203错误:非法查询地址"
		case "204"
			errmsg="204错误:使用接口有效期已过"
		case "205"
			errmsg="205错误:查询的帐号未激活"
		case else
			errmsg=""
		end select
		if errmsg<>"" then
			errclose(""&errmsg&"")
 			response.End()
		end if
	end function
%>