레코드 세트의 랜덤 레코드 코드
<%
'MovingTorandomRecord-stevenjones'extension
ifnot (레코드 세트 이름 .bofand record set name.eof)
'ResettheCursortoTheBeginning
if (recordset name.cursortype> 0) 그러면
레코드 세트 이름 .moveFirst
또 다른
RecordSet Name.Requery
endif
레코드 세트 name_totalrn = -1
레코드 세트 name_totalrn = recordset name.recordCount'OnyWorksOnsomerEcordsets, butMuchfaster
if (레코드 세트 name_totalrn = -1) westillHavetOcountTherecords.
'CountTheTalRecordsByiteratingThroughThereCordset
레코드 세트 name_totalrn = 0
while (레코드 설정 이름 .eof)
레코드 세트 name_totalrn = 레코드 세트 name_totalrn+1
레코드 세트 이름 .movenext
향하게 하다
'ResettheCursortoTheBeginning
if (recordset name.cursortype> 0) 그러면
레코드 세트 이름 .moveFirst
또 다른
RecordSet Name.Requery
endif
endif
'지금은 dofinalAdjustments 및 movetotherAndAmrecord
레코드 세트 name_totalrn = 레코드 세트 name_totalrn-1
레코드 세트 인 경우 name_totalrn> 0then
무작위 화
레코드 세트 이름.
endif
endif
'모두; 당신은 chouldalwayscheckforanemptyRecordsetBeforeSplayingData입니다
%>