JSON - ASP 연동하기
JSON과 조상님들이 쓰시던 ASP를 연동할일이 생겨서 써칭해봤는데 실제 연동되는 자료가 별로 없더라,,,
공개된 데이터 셋들을 이용하여 손쉽게 사이트에 연동이 가능하다.
우선 위의 파일을 인쿠르드 시킨다.
sample.asp
<!--#include virtual="json2.asp" -->
'호출 URL
Dim urlPath : urlPath = "XXXXXXXXXXXXXX"
'Parameter
Dim paramStr : paramStr = "dateFlag=W"
'JSON 데이터 불러오기
Dim objHttp : Set objHttp = Server.CreateObject("Microsoft.XMLHTTP")
objHttp.Open "Get", urlPath, False
objHttp.SetRequestHeader "Content-Type", "Text/Html;charset=utf-8"
objHttp.Send paramStr
Dim jsonText : jsonText = objHttp.responseText
Set objHttp = Nothing
'데이터 Parsing
Dim jsonData : Set jsonData = JSON.parse(jsonText)
Dim jsonDataList : Set jsonDataList = jsonData.List
'개별 데이터
Dim jsonTextPart
For i = 0 To jsonDataList.Length - 1
cccid = jsonDataList.Get(i).cccid
secondid = jsonDataList.Get(i).secondeid
samid = jsonDataList.Get(i).samid
%>
--------------------- 반복 반복 ----------------------
<%=cccid%><br>
<%=secondid%><br>
<%=samid%>
<%
Next
'개체 제거
Set jsonData = Nothing
Set jsonDataList = Nothing
%>
JSON ASP 연동하기.
댓글 0개