개발 참고자료

<!-- #include file="json2.asp" -->
<%
dim Info : set Info = JSON.parse(join(array( _
"{", _
" ""out_course_name"":""C1"",", _
" ""in_course_name"":""C2"",", _
" ""teeoff_time"":""09:05"",", _
" ""complete"":true,", _
" ""out_start"":""10:00"",", _
" ""out_end"":""11:00"",", _
" ""in_start"":""12:00"",", _
" ""in_end"":""13:00"",", _
" ""teeoff_no"":12345,", _
" ""players"":[", _
" {", _
" ""name"":""홍길동"",", _
" ""gender"":""M"",", _
" ""scoreData"":{", _
" ""1"":{", _
" ""score"":6", _
" },", _
" ""2"":{", _
" ""score"":11", _
" },", _
" ""3"":{", _
" ""score"":4", _
" }", _
" }", _
" },", _
" {", _
" ""name"":""고길동"",", _
" ""gender"":""M"",", _
" ""scoreData"":{", _
" ""1"":{", _
" ""score"":6", _
" },", _
" ""2"":{", _
" ""score"":11", _
" }", _
" }", _
" }", _
" ]", _
" }" _
)))


Dim ll_players_Cnt
Dim ll_scoreData_cnt
Dim iTemp


Response.write("out_course_name :: " + Info.out_course_name & vbNewline) %></br><%
Response.write("in_course_name :: " + Info.in_course_name & vbNewline) %></br><%
Response.write("teeoff_time :: " + Info.teeoff_time & vbNewline) %></br><%
Response.write("complete :: " + CStr(Info.complete) & vbNewline) %></br><%
Response.write("out_start :: " + Info.out_start & vbNewline) %></br><%
Response.write("out_end :: " + Info.out_end & vbNewline) %></br><%
Response.write("in_start :: " + Info.in_start & vbNewline) %></br><%
Response.write("in_end :: " + Info.in_end & vbNewline) %></br><%
Response.write("teeoff_no :: " + CStr(Info.teeoff_no) & vbNewline) %></br><%


'Response.write("players.수 :: " + Cstr(Info.players.length) & vbNewline)
'll_players_Cnt = Info.players.length - 1


ll_players_Cnt = Ubound(Info.players.Keys())
Response.write("players.수 :: " + Cstr(ll_players_Cnt + 1)) %></br><%
For i = 0 To ll_players_Cnt
If i = 0 Then
Response.write( "=========================" )%></br><%
End If

Response.write("players.name :: " + Info.players.get(i).name & vbNewline) %></br><%
Response.write("players.gender :: " + Info.players.get(i).gender & vbNewline) %></br><%

ll_scoreData_cnt = UBound(Info.players.get(i).scoreData.keys())
Response.write("scoreData.수 :: " + Cstr( ll_scoreData_cnt + 1 )) %></br><%


For j = 0 To ll_scoreData_cnt
iTemp = j + 1
Response.write( CStr(j + 1) + "홀 :: " + Cstr(Info.players.get(i).scoreData.get(iTemp).score ) & vbNewline) %></br><%
Next



'dim key : for each key in Info.players.get(i).scoreData.keys()
' Response.write( key & vbNewline )%></br><%
'next
Response.write( "=========================" )%></br><%


Next



'Response.write("1홀 :: " + Cstr(Info.players.get(0).[scoreData].[1].score ) & vbNewline) %></br><%
'Response.write("1홀 :: " + Cstr(Info.players.get(0).scoreData.get(1).score) & vbNewline) %></br><%
'Response.write("2홀 :: " + Cstr(Info.players.get(0).scoreData.get(2).score) & vbNewline) %></br><%
'Response.write("3홀 :: " + Cstr(Info.players.get(0).scoreData.get(3).score) & vbNewline) %></br><%



%>