Question

我有一个使用AJAX的ASP（经典）页面，我正在尝试发送短信，然后收到一条消息说消息已发送，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>

现在，如果我要在浏览器的地址栏中输入以下网址：---＆gt; strURLinfo（Example: "http://1.1.1.10:9187/sendsms?phone=4041230207&password=TESTPASS&text=test"）页面将加载，它将发送短信消息，它会说：“消息SENT！” 但它不会通过AJAX / xmlhttp

来实现

发送邮件页面的HTML是：

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

有人可以告诉我如何让这项工作取悦。我从http://www.w3schools.com/ajax/tryit.asp?filename=tryajax_first

得到了这个例子

我没有收到任何错误，只是说：发送消息......请等待...... responseText永远不会更改div消息。

感谢任何帮助

Answer 1

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

简单的AJAX responseText无效

1 个答案: