ASP <-> JSON 파서

<script language="javascript" runat="server" src="json2.js"></script>
<%
   Response.AddHeader "Content-Type", "application/json"
 
    'DB 연결
    SbDBConn objConn
 
   sData = "{""date"":[""2015-02-26""], ""data"":["_
            & "{""ID"":""test01"",""NAME"":""홍길동""},{""ID"":""test02"",""NAME"":""보리""}]}"
    'request.form("DATA")
   
   Set sData = JSON.parse(sData)
 
   nCnt = 0
   itemCnt = sData.data.length
   sSalesDay = sData.date
 
   For Each o In sData.data
      Set objCmd = Server.CreateObject("ADODB.Command")
      With objCmd
         .ActiveConnection = objConn
         .CommandType = adCmdStoredProc
         .CommandText = "USP_TEST"
         .Parameters.Append .CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue)
         .Parameters.Append .CreateParameter("@sId", adVarchar, adParamInput, 12, o.ID)
         .Parameters.Append .CreateParameter("@sName", adVarchar, adParamInput, 100, o.NAME)
         .Execute , , adExecuteNoRecords
         nRetValue  = .Parameters("RETURN_VALUE")
      End With
      Set objCmd = Nothing
 
      If nRetValue = "1" Then
         nCnt = nCnt + 1
         IF nCnt = itemCnt THEN
            sJsonText = "{'RESULT':'Y'}"
         ELSE
            sJsonText = "{'RESULT':'T'}"
         END IF
      Else
         sJsonText = "{'RESULT':'E'}"
      End If
 
   Next
 
   'sJsonText = "{'data':'"& sData.data.length &"'}"
    sJsonText = Replace(sJsonText,"'",Chr(34))
    Response.write sJsonText
   
   SbDbClose objConn
%>

그냥 참고용...

어느 분께서 만드셨는데 URL 을 잊어버림 죄송...