帮我搞定这个web services,给300分，关于汇率的。：）

[global_boy]

WSDL描述http://www.xmethods.net/sd/CurrencyExchangeService.wsdl

以下是获取汇率的函数。

Public Function GetXchangeRate(ByVal strCountry1, _
ByVal strCountry2) ' As String
On Error Resume Next
' SOAP Function
Dim WSDL_URL 'As String
WSDL_URL = "http://www.xmethods.net/sd/CurrencyExchangeService.wsdl"
Dim objSOAPClient
Dim strResult 'As String
Set objSOAPClient = CreateObject("MSSOAP.SoapClient")
objSOAPClient.ClientProperty("ServerHTTPRequest") = True

objSOAPClient.mssoapinit WSDL_URL


strResult = objSOAPClient.GetRate(CStr(strCountry1), _
CStr(strCountry2)) ' As String

If Err <> 0 Then
GetXchangeRate = "ERROR: Could Not Get Exchange Rate (Error # " & CStr(Err.Number) & " " & Err.Description & " in " & Err.Source & ")"
'GetXchangeRate = "ERROR"
Set objSOAPClient = Nothing
Err.Clear
Exit Function
End If

Set objSOAPClient = Nothing
GetXchangeRate = strResult
End Function

[wanghui0380]

sorry!没装SOAP tool kit 没办法调试，不知道那里有误！
看代码应该没错误拉，不过If Err <> 0 Then 写成If Err.Number <> 0 Then 更好点

[useresu]

不懂,
帮忙up

[y2002]

学习webservices中，希望各位大虾多多交流呵呵

[dh20156]

好慢哦，半天打不开。