개발이야기/개발

JSON - ASP 연동하기

2016.08.04 22:23

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



저작자 표시 비영리
신고

작성자

Posted by 구르는石

공유

댓글 0