循环发送多个 http post 请求

Sending multiple http post requests in loop

如何在请求 header 中进行请求循环?
我的数据库中存储了一整天的交易。
我的服务器会将所有这些值发送到另一台服务器以更新付款状态。

我的 VBScript 代码。

 do while not abc.eof sUrl = "https:/abc.com"

            sRequest = "ID="&escape(a)&"&CODE="&escape(b)&"&NAME="&(strEncrypted)


            HTTPPost sUrl, sRequest         Function HTTPPost(sUrl, sRequest)
              Set oHTTP=Server.CreateObject("Msxml2.ServerXMLHTTP.6.0")
              oHTTP.setOption 2, 13056
              oHTTP.open "POST", sUrl,false
              oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
              oHTTP.setRequestHeader "Content-Length", Len(sRequest)
              oHTTP.send sRequest
              HTTPPost = oHTTP.responseText
             End Function    abc.movenext      loop

函数 (...) 必须在 Do While (...) 之外