asp 发起post 请求发送表单数据，设置"Content-Type"为"multipart/form-data" 发送表单数据'billid' => '10019A10000001DJL03J'
返回一个josn的字符串，请循环输出 filepath，返回值如下。


{
    "code": "200",
    "msg": "附件查询成功!",
    "time": "2023-12-20 15:13:10",
    "NCFileNode": [
        {
            "filepath": "10019A10000001DJL03J/附件测试3.pdf",
        },
        {
            "filepath": "10019A10000001DJL03J/XML测试.xml",

        }
    ]
}

以下是一个示例的 ASP 代码，用于发起 POST 请求发送表单数据，并处理返回的 JSON 数据并循环输出 filepath：

<%
Dim url, formData, xmlhttp, responseText, json, i

' 目标 URL
url = "目标URL"

' 表单数据
formData = "------WebKitFormBoundary7MA4YWxkTrZu0gW" & vbCrLf
formData = formData & "Content-Disposition: form-data; name=""billid""" & vbCrLf & vbCrLf
formData = formData & "10019A10000001DJL03J" & vbCrLf
formData = formData & "------WebKitFormBoundary7MA4YWxkTrZu0gW--"

' 创建 XMLHTTP 对象
Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")

' 设置请求方法和 URL
xmlhttp.open "POST", url, False

' 设置请求头
xmlhttp.setRequestHeader "Content-Type", "multipart/form-data; boundary=----WebKitFormBoundary7MA4YWxkTrZu0gW"

' 发送请求
xmlhttp.send formData

' 获取响应文本
responseText = xmlhttp.responseText

' 解析 JSON
Set json = Server.CreateObject("JSONScripting.JSON")

' 将 JSON 字符串转换为 JSON 对象
Set jsonObject = json.Parse(responseText)

' 输出 JSON 数据
Response.Write "code: " & jsonObject("code") & "<br>"
Response.Write "msg: " & jsonObject("msg") & "<br>"
Response.Write "time: " & jsonObject("time") & "<br>"

' 循环输出 filepath
Response.Write "filepath: <br>"
For i = 0 To jsonObject("NCFileNode").Count - 1
    Response.Write jsonObject("NCFileNode")(i)("filepath") & "<br>"
Next

' 释放对象
Set xmlhttp = Nothing
Set json = Nothing
%>