<%
' 랜덤 레코드로 이동 - 스티븐 존스의 확장
Not(레코드 세트 이름.bof 및 레코드 세트 이름.eof)인 경우
' 커서를 처음으로 재설정
If (RecordSetName.CursorType > 0) 그러면
레코드세트 이름.MoveFirst
또 다른
레코드세트 이름.재쿼리
종료 조건
레코드세트 이름_totalrn = -1
RecordsetName_totalrn = RecordsetName.RecordCount ' 일부 레코드세트에서만 작동하지만 훨씬 빠릅니다.
If (recordsetname_totalrn = -1) Then ' 그리고 작동하지 않으면 여전히 레코드 수를 계산해야 합니다.
' 레코드세트를 반복하여 총 레코드 수를 셉니다.
레코드세트 이름_totalrn=0
While(레코드 세트 이름 아님.EOF)
recordsetname_totalrn = recordsetname_totalrn + 1
레코드세트 이름.MoveNext
향하게 하다
' 커서를 처음으로 재설정
If (RecordSetName.CursorType > 0) 그러면
레코드세트 이름.MoveFirst
또 다른
레코드세트 이름.재쿼리
종료 조건
종료 조건
' 이제 최종 조정을 수행하고 임의 기록으로 이동합니다.
recordsetname_totalrn = recordsetname_totalrn - 1
recordsetname_totalrn > 0인 경우
무작위화
레코드세트 이름.Move Int((레코드세트 이름_totalrn + 1) * Rnd)
종료 조건
종료 조건
' 모두 완료되었습니다. 데이터를 표시하기 전에 항상 빈 레코드 세트를 확인해야 합니다.
%>