<%
Function QueryToJSON(sql)
Dim rs, jsa
'Set rs = dbc.Execute(sql)
Set rs = DBExec(sql, "study")
Set jsa = jsArray()
While Not (rs.EOF Or rs.BOF)
Set jsa(Null) = jsObject()
For Each col In rs.Fields
jsa(Null)(col.Name) = col.Value
Next
rs.MoveNext
Wend
Set QueryToJSON = jsa
End Function
Function QueryToJSONByDBTarget(sql, DBTarget)
Dim rs, jsa
'Set rs = dbc.Execute(sql)
Set rs = DBExec(sql, DBTarget)
Set jsa = jsArray()
While Not (rs.EOF Or rs.BOF)
Set jsa(Null) = jsObject()
For Each col In rs.Fields
jsa(Null)(col.Name) = col.Value
Next
rs.MoveNext
Wend
Set QueryToJSONByDBTarget = jsa
End Function
%>
'Development > ASP' 카테고리의 다른 글
ASP 자주 쓰는 함수 Mid,Replace,Trim,Len,Left,Right,Lcase,Ucase,FormatNumber,UBound (0) | 2017.04.17 |
---|---|
ASP ajax와 json 같이 사용하기 (0) | 2017.04.07 |
ASP json 객체 사용하기 전 선언 (0) | 2017.04.07 |
ASP asp페이지를 엑셀형태로 불러오기 (0) | 2017.04.07 |
ASP Split 함수 (0) | 2017.04.07 |