xmlhttp.status值为500


在页面异步访问WebService时,总时失败xmlhttp.status值为500,说是访问服务器异常,最后才发现需要在WebConfig文件中<ystem.web>加入以下配置 就OK了,原因应该是之前没有声明,所以没有权限吧

     <webServices>

              <protocols>

                   <addname="HttpPost" />

                   <addname="HttpGet" />

              </protocols>

         </webServices>


示例代码如下:

function timepp()

{

  

  var dataLeft=0;

   var xmlhttp = newActiveXObject("Microsoft.XMLHTTP");

   var URL = "WebService/DogCheck.asmx/GetDayLeft";

    

   xmlhttp.Open("GET", URL, false  );

   xmlhttp.send(null);

   var result = xmlhttp.status;

   var x = xmlhttp.responseXML;   

   if (result == 200) {   

       if(x.childNodes[1].text=="" )

       {

            window .clearInterval(interval);

            //修改内容

            //$('#mintbar').slideDown();

            //     $.error( "加密狗信息读取失败,请联系开发商!", "系统提示!");

             location = "Login.aspx";

             return;

       }

       else

       {

          dataLeft=parseInt(x.childNodes[1].text );

       }

   }

   else {

   alert("请求错误:"+ result, "系统提示");

      // $.error("请求错误:" + result, "系统提示");

   } 

 }


if (x == 1){ xmlhttp.open("post", "../cgi-bin/getxml", false); SafeHttpSend(xmlhttp, "cmd=get"+";func=netRTSPCfgEx"); try{ if (xmlhttp.readyState==4 && xmlhttp.status==200){ xmlDoc=xmlhttp.responseXML; RTSPPORT = xmlDoc.getElementsByTagName("rtspport")[0].childNodes[0].nodeValue; } }catch(e) {alert(ALERTGETRTSPPORT);} xmlhttp.open("post", "../cgi-bin/getxml", false); SafeHttpSend(xmlhttp, "cmd=get"+";func=localCfgEx"); try{ if (xmlhttp.readyState==4 && xmlhttp.status==200){ xmlDoc=xmlhttp.responseXML; FILEPATH = xmlDoc.getElementsByTagName("RecPath")[0].childNodes[0].nodeValue; } }catch(e) {alert(ALERTGETFILEPATH);} xmlhttp.open("post", "../cgi-bin/getxml", false); SafeHttpSend(xmlhttp, "cmd=get"+";func=videoEncodingCfgEx"); try{ if (xmlhttp.readyState==4 && xmlhttp.status==200){ xmlDoc=xmlhttp.responseXML; MainType = xmlDoc.getElementsByTagName("encoder")[0].childNodes[0].nodeValue; MainCif = xmlDoc.getElementsByTagName("sys_cif")[0].childNodes[0].nodeValue; Mainfps = xmlDoc.getElementsByTagName("frmrate")[0].childNodes[0].nodeValue; SubType = xmlDoc.getElementsByTagName("encoder2")[0].childNodes[0].nodeValue; SubCif = xmlDoc.getElementsByTagName("sys_cif2")[0].childNodes[0].nodeValue; Subfps = xmlDoc.getElementsByTagName("frmrate2")[0].childNodes[0].nodeValue; ThirdType = xmlDoc.getElementsByTagName("encoder3")[0].childNodes[0].nodeValue; ThirdCif = xmlDoc.getElementsByTagName("sys_cif3")[0].childNodes[0].nodeValue; Thirdfps = xmlDoc.getElementsByTagName("frmrate3")[0].childNodes[0].nodeValue; } }catch(e) {alert(ALERTGETFILEPATH);} }
06-13
### 如何在 VB6.0 中使用 MSXML2.XMLHTTP.6.0 进行网络请求 #### 1. 创建 XMLHTTP 对象 在 VB6.0 中,可以利用 `CreateObject` 方法创建 `MSXML2.XMLHTTP.6.0` 对象。此对象用于发送 HTTP 请求并与服务器交互。 ```vb Dim xmlhttp As Object Set xmlhttp = CreateObject("MSXML2.XMLHTTP.6.0") ' 创建 XMLHTTP 对象[^1] ``` #### 2. 初始化 HTTP 请求 通过调用 `.open` 方法设置请求的方法(如 GET 或 POST)、目标 URL 和其他参数。第三个参数指定是否启用异步模式。如果启用了异步模式,则需要监听状态变化事件;否则可以直接执行后续逻辑。 ```vb xmlhttp.Open "GET", "https://example.com/api/data", False, "", "" ' 初始化 GET 请求[^2] ``` #### 3. 发送请求 调用 `.send` 方法正式向服务器提交数据包。对于简单的 GET 请求来说通常不需要传递额外的内容体;而对于复杂的场景比如上传表单或者 JSON 负载则可能需要用到字符串形式的数据作为输入参数。 ```vb xmlhttp.Send '''' 发送请求不带任何附加信息 ``` #### 4. 处理响应结果 当接收到完整的回复之后可以从多个属性读取相关信息,例如状态码(`Status`)、头部字段集合以及实际主体部分等等。这里展示了一个基本的例子来演示如何访问这些: ```vb If xmlhttp.Status = 200 Then ' 检查HTTP状态码是否成功[^3] Dim responseText As String responseText = xmlhttp.responseText ' 获取文本类型的回应内容[^4] MsgBox responseText ' 显示消息框中的返回 Else MsgBox "Error: " & CStr(xmlhttp.Status) & " - " & xmlhttp.statusText End If ``` 以上就是关于如何在 Visual Basic 6.0 环境下运用最新的版本号为 .6.0 的微软扩展标记语言超文本传输协议组件完成一次标准的互联网资源抓取过程的一个简单介绍及其配套示范程序清单。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值