Rs 에 계속 접근하기 보다는 배열에 복사에서 사용하는 것이 DB의 부담을 줄일 수 있다고 한다!!
Set Rs2 = Db.Execute(query2)
Dim arrRs '배열 선언
If Not Rs2.EOF Then arrRS = Rs2.GetRows() '배열에 복사
Rs2.close
Set Rs2 = Nothing
If IsArray(arrRS) Then
For i = LBound(arrRS, 2) To UBound(arrRS, 2)
Response.Write arrRS(0, i)
Response.Write arrRS(1, i)
Next
Erase arrRS
End if
'웹프로그래밍 > ASP' 카테고리의 다른 글
[ ASP ] Dim 변수만 사용하도록 설정 (0) | 2019.11.13 |
---|---|
[ ASP ] POST (0) | 2016.05.09 |
[ ASP ] ASP JSON / ASP JSON 출력 / ASP JSON 생성 (0) | 2015.08.21 |
[ ASP ] ASP EXCEL 불러오기 / ASP EXCEL PARSING / ASP 엑셀 읽어오기 (0) | 2014.09.19 |