문의하기
Classic ASP에서 XMLHTTP를 사용한 JSON 통신: 예제 코드 및 구현 방법
Classic ASP는 오래된 웹 개발 프레임워크이지만 여전히 사용 중인 경우가 많습니다. 그러나 Classic ASP에서 JSON 통신을 구현하는 것은 간단하지는 않습니다. 이번 글에서는 Classic ASP에서 XMLHTTP를 사용해 JSON 통신을 구현하는 방법과 관련 예제 코드를 제공합니다.
☞ 먼저 JSON을 처리하기 위해 사용할 수 있는 적절한 라이브러리를 준비해야 합니다. 여기에서는 json2.asp 라이브러리를 활용하였습니다.
예제코드: OPEN AI API와 통신
아래 코드는 Classic ASP로 작성해 보았습니다.
▼ 예제 코드
<!-- #Include virtual="/asp/inc/json2.asp" -->
<%
' 문자셋 설정
Response.CharSet = "euc-kr"
' 오류 처리 설정
On Error Resume Next
Err.Clear
' 변수 초기화
Dim api_key, api_url, prompt, json_data, responseJSON, blog_content
' API 키 설정
api_key = "sk-xxxxxxxxxxxxxxxxxxxxx"
' API URL 설정
api_url = "https://api.openai.com/v1/engines/davinci-codex/completions"
' 프롬프트 설정
prompt = "prompt 입력"
' JSON 데이터 생성
json_data = "{" _
& """prompt"":""" & prompt & """," _
& """max_tokens"": 2000," _
& """temperature"": 0.3," _
& """top_p"": 1," _
& """frequency_penalty"": 0," _
& """presence_penalty"": 0}"
' XMLHTTP 객체 생성 및 초기화
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
xmlhttp.open "POST", api_url, False
' 요청 헤더 설정
xmlhttp.setRequestHeader "Content-Type", "application/json"
xmlhttp.setRequestHeader "Authorization", "Bearer " & api_key
' 요청 전송
xmlhttp.send json_data
' 응답 JSON 파싱
Set responseJSON = JSON.parse(xmlhttp.responseText)
' 첫 번째 선택 사항의 텍스트 추출
blog_content = responseJSON.choices.get(0).text
' 결과 출력
Response.Write(blog_content)
%>
위 예제 코드는 다음과 같이 동작합니다.
- JSON2.asp 라이브러리를 포함합니다.
- 문자 인코딩을 설정합니다.
- API 키, API URL 및 JSON 데이터를 정의합니다.
- XMLHTTP 객체를 생성하고 POST 요청을 수행합니다.
- 응답을 JSON으로 파싱하고 결과를 출력합니다.
이 글이 도움이 되셨다면 공유를 부탁 드립니다. 다음 글에서 뵙겠습니다!
관련 이전 게시글
JSON과 XML 비교하기: 문법/구조, 장단점, 성능/효율성
