：经典ASP如何调用API？

您可以使用 VBScript 配合 ServerXMLHTTP 对象（或 MSXML2.ServerXMLHTTP）发送 HTTP 请求。

<%
    Dim url, apiKey, appId, userContent
    url = "http://192.168.0.20/api/"
    apiKey = "Bearer xxx-xxx"
    appId = "abcd1234"
    userContent = "测试内容"


    ' 构造请求体
    Dim requestBody
    requestBody = "{""appId"":""" & appId & """,""messages"":[{""role"":""user"",""content"":""" & Replace(userContent, """", "\""") & """}]}"


    ' 创建 ServerXMLHTTP 对象
    Dim http
    Set http = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")
    http.Open "POST", url, False
    http.setRequestHeader "Content-Type", "application/json"
    http.setRequestHeader "Authorization", apiKey
    http.send requestBody


    ' 获取响应
    If http.Status = 200 Then
        Response.Write http.responseText
    Else
        Response.Write "请求失败，状态码：" & http.Status
    End If


    Set http = Nothing
%>

​