0

AJAX を使用する ASP (クラシック) ページがあり、SMS メッセージを送信しようとすると、メッセージが送信されたことを示すメッセージが返されます。SMS メッセージは送信され、これは機能しますが、ページにはメッセージが表示されるはずです送信されましたが、送信されません。

コード：

   <%
    dim strURLinfo
    strURLinfo = "http://1.1.1.10:9187/sendsms?phone=" & Request.QueryString("phone") & "&password=TESTPASS&text=" & Request.QueryString("text")
'// EXAMPLE URL: http://1.1.1.10:9187/sendsms?phone=4041230207&password=TESTPASS&text=test
    %>
    <html>
    <meta http-equiv="PRAGMA" value="NO-CACHE">
    <head>
    <script type="text/javascript">
    //This is to AUTO resend every 20 seconds DISABLED ---> var int=self.setInterval("loadXMLDoc()",20000);
    function loadXMLDoc()
    {
    if (window.XMLHttpRequest)
      {// code for IE7+, Firefox, Chrome, Opera, Safari
      xmlhttp=new XMLHttpRequest();
      }
    else
      {// code for IE6, IE5
      xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
      }
    xmlhttp.onreadystatechange=function()
      {
      if (xmlhttp.readyState==4 && xmlhttp.status==200)
        {
        document.getElementById("myDiv").innerHTML=xmlhttp.responseText;
        }
      }
    xmlhttp.open("GET","<%=strURLinfo%>",true);
    xmlhttp.send();
    }
    </script>
    </head>
    <body onload="loadXMLDoc();">
    <div id="myDiv" style="width: 100%">
    <h3><center>Sending Message....... Please wait....</center></h3>
    <button type="button" onclick="loadXMLDoc()">Resend Message</button>
    </div>
    </body>
    </html>

ここで、ブラウザのアドレス バーに次のように URL を入力すると、 ---> strURLinfo ( Example: "http://1.1.1.10:9187/sendsms?phone=4041230207&password=TESTPASS&text=test") ページが読み込まれ、SMS メッセージが送信され、「メッセージが送信されました!」と表示されます。ただし、AJAX/xmlhttp 経由では実行されません。

メッセージ送信ページの HTML は次のとおりです。

<html>
<body>
Mesage SENT!<br/>
</body>
</html>

誰かがこれを機能させる方法を教えてください。この例はhttp://www.w3schools.com/ajax/tryit.asp?filename=tryajax_firstから取得しました

エラーは発生しません。メッセージを送信しています......お待ちください... responseText が div メッセージを変更することはありません。

助けてくれてありがとう

4

1 に答える 1

0

このコードを使用して、ASP (クラシック) を使用してこれを機能させることができました。

Dim objXML
Function objXML_onreadystatechange()
    If (objXML.readyState = 4) Then
        If (objXML.status = 200) Then
            Response.Write(objXML.responseText)
            Set objXML = Nothing
        End If
    End If
End Function

Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
    objXML.Open "GET", strURLinfo, false 
    objXML.Send("")
    Response.Write objXML.responseText

いくつかの変更を加えると、これをjavascriptでも機能させることができると確信しています。

于 2012-12-05T19:39:39.200 に答える