vbscript/vb6 中实现异步请求

最新推荐文章于 2021-07-17 09:55:07 发布

cangwu_lee

最新推荐文章于 2021-07-17 09:55:07 发布

阅读量5.6k

点赞数

文章标签： xmlhttprequest function class url action ie

本文链接：https://blog.csdn.net/cangwu_lee/article/details/5535652

版权

该博客介绍了如何在VBScript和VB6中使用XMLHttpRequest对象进行异步请求。通过创建XMLHTTP对象并设置onreadystatechange事件处理函数，实现了在FF和IE中的兼容性处理。示例代码中包含了两种处理onreadystatechange事件的方法，一种是通过对象，另一种是使用GetRef()函数。

摘要由CSDN通过智能技术生成

'測試的需要，查了不少資料，有兩种方法，綜合如下

'
Dim strUrl: strUrl="http://localhost:7001/in/issueQry.do"
Dim strDat: strDat="uniQueryCode=1670790000005&action=status"
Dim xmlhttp

Call ajaxme(strUrl)

function ajaxme(url)
   Set xmlhttp=Nothing
   On Error Resume Next
   Set xmlhttp = new XMLHttpRequest 'FF
   if (xmlhttp.overrideMimeType) then
       'xmlhttp.overrideMimeType("text/xml")
   end if
   Err.clear
   On Error Goto 0

   if(xmlhttp Is Nothing) then '// IE
       Set xmlhttp = CreateObject("Msxml2.XMLHTTP")
       if err.number<>0 then
           Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
       end if
   end if
   if (xmlhttp Is Nothing) then
       call msgbox("Giving up, Cann