asp下实现记录集内随机取记录的代码

记录集内随机取记录的代码

<% 
' moving to random record - steven jones' extension
if not(记录集名称.bof and 记录集名称.eof) then
' reset the cursor to the beginning
if (记录集名称.cursortype > 0) then
记录集名称.movefirst
else
记录集名称.requery
end if

记录集名称_totalrn = -1
记录集名称_totalrn = 记录集名称.recordcount ' ony works on some recordsets, but much faster
if (记录集名称_totalrn = -1) then ' and if it didn't work, we still have to count the records.

' count the total records by iterating through the recordset
记录集名称_totalrn=0
while (not 记录集名称.eof)
记录集名称_totalrn = 记录集名称_totalrn + 1
记录集名称.movenext
wend

' reset the cursor to the beginning
if (记录集名称.cursortype > 0) then
记录集名称.movefirst
else
记录集名称.requery
end if

end if

' now do final adjustments, and move to the random record 
记录集名称_totalrn = 记录集名称_totalrn - 1
if 记录集名称_totalrn > 0 then
randomize
记录集名称.move int((记录集名称_totalrn + 1) * rnd)
end if 
end if
' all done; you should always check for an empty recordset before displaying data
%>