MSXML2.serverXMLHTTP
currencyRateAjaxUrl=Request.ServerVariables("Server_name")
currencyRateAjaxUrl="http://"¤cyRateAjaxUrl&"/mis.net/hotelmis/CurrencyRate/getCurrencyRateForAjax.aspx?currency="¤cy_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
49

被折叠的 条评论
为什么被折叠?



