asp Dictionary 와 키 밸유 사용

  'string으로 변환된 결과전문을 가공하여 저장할 수 있도록 전문가공

  'arrStrData = Split(Trim(strData), "&")

  'Response.write("배열의 크기 : " & UBound(arrStrData) & " <br>")

  

  'Dim d

  'Set d=Server.CreateObject("Scripting.Dictionary")

  

  'For i=0 To UBound(arrStrData)

    'Dim s

    's = InStr(Trim(arrStrData(i)), "=")

    'key1 = Mid(arrStrData(i), 1, s-1)

    'value1 = Mid(arrStrData(i), s+1)

    

    'Response.write(key1 & "=" & value1 & "<br>")

    'd.Add key1, value1

  'Next

  

  '배열에 저장된값 불러오는 방법 예시

  'IF(d.Exists("P_STATUS")) THEN ' 배열에 저장된값 존재유무 확인

    'P_STATUS = d.Item("P_STATUS") ' 저장된 결과값 변수로 저장

    'Response.write("<br>dddd   P_STATUS = " & P_STATUS & "")

  'End IF