httprequest服务器端调用版

MSXML2.serverXMLHTTP

currencyRateAjaxUrl=Request.ServerVariables("Server_name")
   currencyRateAjaxUrl="http://"&currencyRateAjaxUrl&"/mis.net/hotelmis/CurrencyRate/getCurrencyRateForAjax.aspx?currency="&currency_id
   Dim   serverXMLHTTP  
   Set   serverXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
   serverXMLHTTP.open   "GET",currencyRateAjaxUrl,false  
   serverXMLHTTP.send  
   serverXMLHTTPresult=serverXMLHTTP.responseText
   If(serverXMLHTTPresult="" And serverXMLHTTPresult=null) Then
    GetExchangeRateByCurrencyType=1
   Else
    GetExchangeRateByCurrencyType=serverXMLHTTPresult
   End if