在asp中调用wcf服务

[tourist_tsl]

在asp中怎样调用wcf服务呢（急）
服务地址如下：http://10.245.113.35:10089/BusinessServices/WebHost/Mzone?wsdl

[hztgcl1986]

先占个沙发

[littlelam]

  <%   
          url1   =   "http://192.168.0.30/lkcrm/WS_crm.asmx/Get_menu"     
          Set   obj   =   CreateObject("Microsoft.XMLHTTP")   
          SendData   =   "vsState=1"           
  '注:   上面这这行是把   Get_men   的参数   vsState   赋值为1.   
          Call   obj.Open("POST",   url1,   False)   
          Call   obj.setRequestHeader("Content-Type",   "application/x-www-form-urlencoded")   
          Call   obj.setRequestHeader("Content-Length",   Len(SendData))   
          Dim   myXML     
          Set   myXML   =Server.CreateObject("MSXML.DOMDocument")     
    
          Call   obj.send(SendData)   
          myXML.load(obj.responseXML)     
    
  Dim   nodesId     
  Dim   nodesName     
  Dim   NumOfNodes     
  dim   layerNum   
  Dim   i     
  dim   fId   
    
  Dim   nodesId2   
  Dim   nodesName2     
  Dim   nodesURL2     
  Dim   nodesNote2     
  Dim   nodesImage2   
    
  Dim   NumOfNodes2     
  dim   layerNum2   
  Dim   i2     
  dim   fId2   
  dim   fUrl2   
  dim   fNote2   
  dim   fImage2   
    
  Set   nodesId=myXML.documentElement.selectNodes("//fId")     
  Set   nodesName=myXML.documentElement.selectNodes("//fName")     
  NumOfNodes   =   nodesId.Length     
  layerNum=NumOfNodes   
  dim   fname()   
  redim   fname(layerNum)   
  redim   fid(layerNum)   
  dim   fname2()   
  redim   fname2(1)   
      
  For   i   =   0   to   layerNum-1     
  fid(i)=nodesId(i).text   
  fname(i)=nodesName(i).text   
  next     
  Set   nodesId   =   Nothing     
  Set   nodesName   =   Nothing     
  Set   myXML   =   Nothing     
  set   obj   =   nothing   
  %>

你根据这个改改就可以了

[littlelam]

你的Webservice是内网的，我们看不到所以没办法调用，你自己看着修改