반응형 Developer/asp25 asp Dictionary 와 키 밸유 사용 'string으로 변환된 결과전문을 가공하여 저장할 수 있도록 전문가공 'arrStrData = Split(Trim(strData), "&") 'Response.write("배열의 크기 : " & UBound(arrStrData) & " ") '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 & " ") 'd.Add key1, valu.. 2017. 12. 15. Dictionary 사용법 결재관련 많은 데이터를 넘기고 받을때 여러번 코딩 하는것이 굉장히 피곤한 일이다. 그렇게 되어 있는 것을 바로 잡아야 하는데 .... 쉽지가 않다. 그래서 여러번 코딩하는거라도 막아보려고 dictionary 를 사용해서 처리한 소스를 발견했다. LG 데이콤의 웹표준 결재 모듈 소스인데 asp로 된 아주 깜찍한 잘 정리된 소스라 재사용 하기로 햇다. The Dictionary object stores information in name/value pairs. 일단 객체를 생성해 준다. lg는 세션에 Dic 를 담았다. set Session("PAYREQ_MAP") = payReqMap 이렇게 처리하면 사용자가 뒤로가기 해도 입력했던 값을 db 핸들링 없이 다시 표기 할수있고... 아래처럼 처리해서 form.. 2017. 10. 11. IsArray 레코드셋 처리 Function GetRSArray(strSQL) Set objRS = Conn.Execute(strSQL) If Not objRS.EOF Then arrRS = objRS.GetRows() Set objRS = Nothing GetRSArray = arrRS End Function arrRS = GetRSArray("SELECT ID, Name FROM users;") If IsArray(arrRS) Then For i = LBound(arrRS, 2) To UBound(arrRS, 2) ID = arrRS(0, i) Name = arrRS(1, i) Response.Write("" & Name & " (" & ID & ")" & vbCrLf) Next Erase arrRS End If 2017. 8. 28. VBScript 문자형(string)으로 형변환 VBScript 문자형(string)으로 형변환 or Object형으로 형변환 VBScript 문자형으로 형변환 바꿔보란 얘기에 구글 검색하니 나오는게 아래와같다 VBScript : CStr() method will convert the value IN the object to a string. 2017. 7. 12. 이전 1 2 3 4 5 6 7 다음 반응형