以下のCURLリクエストから古典的なASPコードを作成するのを手伝ってもらえますか?古典ASPのCURLリクエスト
curl -H 'Authorization: Token f2210dacd9c6ccb8133606d94ff8e61d99b477fd' "https://cloud.seafile.com/api2/beshared-repos/"
私は以下のサンプルコードを試しましたが、動作しませんでした。
Dim http: Set http = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
Dim url: url = "https://cloud.seafile.com/api2/beshared-repos/"
Dim data: data = "token=f2210dacd9c6ccb8133606d94ff8e61d99b477fd"
With http
Call .Open("GET", url, False)
Call .SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
Call .SetRequestHeader("Authorization", "Token f2210dacd9c6ccb8133606d94ff8e61d99b477fd")
Call .Send()
End With
If Left(http.Status, 1) = 2 Then
'Request succeeded with a HTTP 2xx response, do something...
Else
'Output error
Call Response.Write("Server returned: " & http.Status & " " & http.StatusText)
End If
そして、それはラインCall.Send(で以下のエラーメッセージがスローされます)
WinHttp.WinHttpRequest error '80090326'
The message received was unexpected or badly formatted.
[Documentation](https://manual.seafile.com/develop/web_api.html#shared-libraries)を参考にしてください。 – Lankymart
[私のコードのように見える](https://stackoverflow.com/a/37462944/692942)。正しいContent-Typeを渡したり、いくつかの要件がないためにエラーが発生している可能性があります。 – Lankymart