1. 레코드세트 객체 생성
희미한 객체MyRst
objMyRst=Server.CreateObject(ADODB.Recordset) 설정
objMyRst.CursorLocation=adUseClientBatch '클라이언트는 일괄 처리할 수 있습니다.
objMyRst.CursorType=adOpenStatic '커서 유형은 정적 유형입니다.
참고: Recordset 개체가 생성하는 Recordset 개체는 adOpenFowardOnly이고 레코드 집합 페이징을 지원하지 않기 때문에 Set objMyRst=Connection.Excute strSQL 문을 사용하여 Recordset 개체를 만들 수 없습니다.
2. 레코드세트 개체 열기
희미한 strSql
strSql=ietable에서 * 선택
objMyRst.Oepn strSql,ActiveConnection,,,adCmdText
3． 레코드세트의 PageSize 속성 설정
objMyRst.PageSize=20
기본 페이지 크기는 10입니다.
4. Recordset의 AbsolutePage 속성 설정
Dim intCurrentPage
intCurrentPage=1
objMyRst.AbsolutePage=intCurrentPage
AbsolutePage는 Recordset 개체의 PageCount 값에 대해 1입니다.
5． 데이터 표시
응답.쓰기(<테이블>)
인쇄 필드 이름(objMyRst)
i=1의 경우 objMyRst.PageSize로
인쇄필드값(objMyRst)
objMyRst.MoveNext
objMyRst.Eof인 경우 종료 대상
다음
응답.쓰기(</table>)
설명하다:
1. adOpenStatic, adUseCilentBatch, adCmdText는 adovbs.inc에 의해 정의된 상수입니다. 이를 사용하려면 adovbs.inc를 현재 디렉터리에 복사하여 프로그램에 포함시킵니다.
<! --#포함 파일=adovbs.inc-->
2. PrintFielName,PrintFieldValue 함수의 코드는 다음과 같습니다.
<%
함수 PrintFieldName(objMyRst)
'objMyRst 매개변수는 레코드세트 개체입니다.
'번호 정의
희미한 객체 필드
응답.쓰기 <tr bgcolor='#CCCCCC'>
objMyRst.Fields의 각 objFld에 대해
응답.쓰기 <td> & objFld.이름 & </td>
다음
응답.쓰기(</tr>)
기능 종료
함수 PrintFieldValue(objMyRst)
'objMyRst 매개변수는 레코드세트 개체입니다.
'번호 정의
희미한 객체 필드
응답.쓰기(<tr>)
objMyRst.Fields의 각 objFld에 대해
'Response.Write <td> & objMyRst.Fields(intLoop).value & </td>
응답.쓰기 <td> & objFld.value & </td>
다음
응답.쓰기(<tr>)
기능 종료