0

我有一个使用 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>

现在，如果我要在浏览器的地址栏中输入 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 回答