Web-сервис за 10 минут

Листинг 2. Код потребителя Web-сервиса

<%  
'------------------------------  
' Currency Service Consumer  
'------------------------------  
   
 Set HTTPReq = Server.CreateObject("MSXML2.ServerXMLHTTP")  
 Set XMLDoc  = Server.CreateObject("MSXML2.DOMDocument")  
   
 HTTPReq.Open "POST", "http://jupiter/demos/service/server.asp" & _    
   "?Amount=200&From=FRF&To=USD", False  
 HTTPReq.Send  
   
 XMLDoc.LoadXML HTTPReq.ResponseText  
   
 Set Node = XMLDoc.selectSingleNode("/conversion/text")   
 Response.Write Node.Text  
   
 Set Node    = Nothing  
 Set HTTPReq = Nothing  
 Set XMLDoc  = Nothing  
   
%>  

возврат

Наш канал на Youtube

1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10 11 12
2001 1 2 3 4 5 6 7 8 9 10 11 12
2002 1 2 3 4 5 6 7 8 9 10 11 12
2003 1 2 3 4 5 6 7 8 9 10 11 12
2004 1 2 3 4 5 6 7 8 9 10 11 12
2005 1 2 3 4 5 6 7 8 9 10 11 12
2006 1 2 3 4 5 6 7 8 9 10 11 12
2007 1 2 3 4 5 6 7 8 9 10 11 12
2008 1 2 3 4 5 6 7 8 9 10 11 12
2009 1 2 3 4 5 6 7 8 9 10 11 12
2010 1 2 3 4 5 6 7 8 9 10 11 12
2011 1 2 3 4 5 6 7 8 9 10 11 12
2012 1 2 3 4 5 6 7 8 9 10 11 12
2013 1 2 3 4 5 6 7 8 9 10 11 12
Популярные статьи
КомпьютерПресс использует