Javascript 简单AJAX响应文本不工作_Javascript_Ajax_Asp Classic

Javascript 简单AJAX响应文本不工作

javascript ajax asp-classic

Javascript 简单AJAX响应文本不工作,javascript,ajax,asp-classic,Javascript,Ajax,Asp Classic,我有一个使用AJAX的ASP（经典）页面，我试图发送一条短信，然后收到一条消息，说消息已发送，短信已发送，这是可行的，但页面应该说消息已发送，但它没有守则： <% dim strURLinfo strURLinfo = "http://1.1.1.10:9187/sendsms?phone=" & Request.QueryString("phone") & "&password=TESTPASS&text=" & Reque

我有一个使用AJAX的ASP（经典）页面，我试图发送一条短信，然后收到一条消息，说消息已发送，短信已发送，这是可行的，但页面应该说消息已发送，但它没有

守则：

   <%
    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>

有人能告诉我怎么做吗。这个例子是我从

我没有收到任何错误，只是说：发送消息。。。。。。请稍候。。。responseText从不更改div消息

感谢您的帮助

我能够使用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中使用它。

您的浏览器中是否有任何错误消息？您可以显示的服务器端代码吗？听起来好像它没有回复XHRrequest@psema4我希望我有，但我没有。这是安卓手机的地址，而且应用程序不是开源的（是否正在使用浏览器的控制台查找任何错误？是否可以通过它跟踪请求？

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