<%'무 작위 레코드 로 이동-Steven Jones'ExtensionIf Not(기록 집합 이름.bof 및 기록 집합 이름.eof)Then'reset the cursor to the beginning If(기록 집합 이름.Cursor Type>0)그런 다음 기록 집합 이름.MoveFirst Else 기록 집합 이름.Requery End 기록 집합 이름 이 있 는 경우totalrn=-1 기록 집 이름totalrn=레코드 집합 이름.RecordCount'ony work on some recordsets,but much fasterIf(레코드 집합 이름totalrn=-1)Then'and if it didn',we still have to count the records.'기록 집합 이름 을 반복 하여 총 기록 을 계산 합 니 다totalrn=0While(Not 레코드 집합 이름.EOF)레코드 집합 이름totalrn=기록 집합 이름totalrn+1 레코드 집합 이름.MoveNextWend'reset the cursor to the beginning If(레코드 집합 이름.Cursor Type>0)Then records 집합 이름.MoveFirst Else 레코드 집합 이름.Requery End IfEnd If'now do final adjustments,and move to the random record records 레코드 집합 이름totalrn=기록 집합 이름totalrn-1If 기록 집합 이름totalrn>0 ThenRandomize 기록 집합 이름.Move Int(기록 집합 이름totalrn + 1) * Rnd)End If End If' all done; you should always check for an empty recordset before displaying data%>