asp에서 json 텍스트를 받아서 파싱 데이터 처리

asp에서 json 텍스트를 받아서 파싱 데이터 처리

asp 에서 json 형태의 텍스트를 받아서 처리하는 샘플입니다. 

예를들어서 아래와 같은 json 텍스트를 여러레코드를 배열형태로 넘어왔을때, 이를 파싱해서 데이터를 처리할 수 있는 형태로 처리하도록 하겠습니다.  

[ 

{"name" : "홍길동", "age" : "25"}, {"name" : "선동렬", "age" : "32"}, {"name" : "박찬호", "age" : "48"} 

] 

먼저 json 모듈을 다운로드 받아서 적당한 위치에 파일을 위치하도록 합니다.

aspJSON1.17.asp   

	Dim jsonText

	jsonText = jsonText & vbcrlf & "["
	jsonText = jsonText & vbcrlf & " {""name"" : ""홍길동"", ""age"" : ""25""}, "
	jsonText = jsonText & vbcrlf & " {""name"" : ""김향숙"", ""age"" : ""32""}, "
	jsonText = jsonText & vbcrlf & " {""name"" : ""박찬호"", ""age"" : ""48""} "
	jsonText = jsonText & vbcrlf & "]"

	If Trim(jsonText)<>"" Then
		Set oJSON = New aspJSON
		jsonText = "{""list"" : " & jsonText & "}"
		oJSON.loadJSON(jsonText)
	For Each row In oJSON.data("list")
		Set this = oJSON.data("list").item(row)

		'//아래 this.item("name") 변수값을 가지고 디비 입력등을 처리하시면 됩니다.
		Response.write "
[" & row & "]"
		Response.write "
name : "  & this.item("name")
		Response.write "
age : "  & this.item("age")
	Next

	Set oJSON = Nothing
	End If