블로그 검색 rest api 전송문의 curl to ASP

검색 API
1

아래는 카카오에서 제공하는 블로그 검색 영역 api 문서 입니다.

'curl -v -X GET “https://dapi.kakao.com/v2/search/blog”
'–data-urlencode “query=https://brunch.co.kr/@tourism 집짓기”
'-H “Authorization: KakaoAK kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk”

클래식 ASP 로 개발하기위하여 CreateObject(“Msxml2.ServerXMLHTTP.3.0”) 과 아래 사용된 winhttp 를 이용하여 전송해본 결과 똑같은 오류 결과값으로 send 행에서 오류를 반환하였습니다.
메시지는 아래와 같습니다.

==========================================================
WinHttp.WinHttpRequest 오류 ‘80090326’

예기치 않은 메시지를 받았거나 메시지의 형식이 잘못되었습니다.

/rest.asp, 줄 15

=======================================================

현재 아래의 소스로 테스트 하였으며 문제점을 모르겠습니다
도와주세요.

Dim http: Set http = Server.CreateObject(“WinHttp.WinHttpRequest.5.1”)
Dim url: url = "https://dapi.kakao.com/v2/search/blog"
Dim data: data = Server.UrlEncode( “query=https://brunch.co.kr/@tourism 집짓기”)

With http
Call .Open(“Get”, url, False)
Call .SetRequestHeader(“Content-Type”, “application/x-www-form-urlencoded”)
Call .SetRequestHeader(“Host”, “dapi.kakao.com”)
Call .SetRequestHeader(“Authorization”, “KakaoAK 본인의 인증키로 대체함”)
Call .Send(data)
End With

strResponse = http.responseText
response.write strResponse

2 
Set xmlHttp = Server.Createobject("MSXML2.ServerXMLHTTP")
xmlHttp.Open "POST", parm_url, False
xmlHttp.setRequestHeader "User-Agent", "asp httprequest"
xmlHttp.setRequestHeader "Authorization", "Basic "& Base64encode("키코드값")
xmlHttp.setRequestHeader "content-type", "application/x-www-form-urlencoded"
xmlHttp.Send parm_post
SendPOST = xmlHttp.responseText
xmlHttp.abort()
set xmlHttp = Nothing   
response.Write SendPOST

############################################
또 다른 방법
parm_url = "http://wwww.kr/all?name=0���%&sss=1111
Response.Write get_HttpString(parm_url)

Function get_HttpString(url)
Dim http, Content

Set http = Server.CreateObject("Microsoft.xmlHttp")
http.Open "POST", url, False
http.setRequestHeader "Content-Type","Text/xml"
http.setRequestHeader "Accept-Language", "Ko"
http.Send

If http.Status = 200 Then
    Content = http.responseText
Else
    Content = "error"
End if

Set http = Nothing   
get_HttpString = Content

End Function

늦었는지모르겠지만 써봐요. 다른분 도음되라고…
벤드에서 사용했던 방법입니다.

1개의 좋아요