JSON - ASP 연동하기

JSON과 조상님들이 쓰시던 ASP를 연동할일이 생겨서 써칭해봤는데 실제 연동되는 자료가 별로 없더라,,,

공개된 데이터 셋들을 이용하여 손쉽게 사이트에 연동이 가능하다.

json2.asp

우선 위의 파일을 인쿠르드 시킨다.

sample.asp  

source.txt

<!--#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 연동하기.