Вызов Web-сервиса из Asp

Тема в разделе "HTML, CSS, XML, JavaScript", создана пользователем alkos, 24 сен 2009.

  1. alkos

    alkos Гость

    Добрый день!
    Имеем давно отработанный веб-сервис с методом IPMCreateNewCall(AId, AUserId, ASecureId). Нужнo вызвать его из asp-страницы. Код выглядит вот так:
    [codebox]<html>
    <head>
    <title>Creating a call</title>
    </head>
    <body>
    <%
    If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
    Dim xmlhttp
    Dim DataToSend
    DataToSend="AId="&Request.Form("AId")&"&AUserId="&Request.Form("AUserId")&"&ASecureId="&Request.Form("ASecureId")
    rwb DataToSend
    Dim postUrl
    'If Request.Form.Item("Operation")="Sum" Then
    postUrl = "https://de-chs-dev.ww005.siemens.net/New/restricted/ProcessWebServ/ProcessWebService.asmx/IPMCreateNewCall"
    'else
    'postUrl = "http://localhost/Test_ASP_Service1/Service1.asmx/Subtract"
    'end if
    Set xmlhttp = server.Createobject("MSXML2.XMLHTTP")
    xmlhttp.Open "POST",postUrl,false
    xmlhttp.setRequestHeader "Content-Type","text/xml; charset=utf-8"
    xmlhttp.send DataToSend
    Response.Write DataToSend & "<br>"
    Response.Write(xmlhttp.responseText)
    Else
    Response.Write "Loading for the first Time"
    End If
    %>
    <FORM method=POST name="form1" ID="Form1">
    Enter the Values to perform Operation<BR>

    AId: <INPUT type="text" name="AId" ID="Text1" value="-1">
    <BR> AUserId: <INPUT type="text" name="AUserId" ID="Text2" value="1258">
    <BR>ASecureId: <INPUT type="text" name="ASecureId" ID="Text3" value="SecureId-String">
    <BR><BR>
    <INPUT type="submit" value="GO" name="submit1" ID="Submit1">
    </form>
    </body>
    </html>
    [/codebox]
    Но после нажатия на submit браузер показывает "невозможно отбразить страницу". Не подскажете, в чем ошибка. Несколько часов уже на эти 30 строк убил - все бестолку.

    Заранее премного благодарен!
     
  2. etc

    etc Гость

    Надо все логировать и смотреть что не так, ну и в ие указать на отображение приходящей ошибки. С асп по другому никак.
     
  3. alkos

    alkos Гость

    Есть подозрение, что проблема в сабмите и до сервиса он не доходит
     
  4. etc

    etc Гость

    Try - те, и читайте ошибки.
     
  5. alkos

    alkos Гость

    Проблема решилась: т.к. веб-сервис на удаленном сервере, то нужно вместо

    Set xmlhttp = server.Createobject("MSXML2.XMLHTTP")

    использовать

    Set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP.3.0")

    Правда, возникла другая проблема: IIS возвращает ошибку 401.2, и употребление

    xmlhttp.Open "POST",postUrl,false, strUserName, strPassword

    ничего не дает.
     
  6. alkos

    alkos Гость

Загрузка...
Похожие Темы - Вызов Web сервиса
  1. susinmn
    Ответов:
    1
    Просмотров:
    1.990
  2. vincent_vega
    Ответов:
    0
    Просмотров:
    2.074
  3. imendan
    Ответов:
    13
    Просмотров:
    5.047
  4. k85
    Ответов:
    0
    Просмотров:
    363
  5. alexas1
    Ответов:
    0
    Просмотров:
    509

Поделиться этой страницей