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

<% ‘ Moving to random record – Steven Jones’ ExtensionIf Not(记录集名称.bof and 记录集名称.eof) Then‘ reset the cursor to the beginningIf (记录集名称.CursorType > 0) Then记录集名称.MoveFirstElse记录集名称.RequeryEnd If记录集名称_totalrn = -1记录集名称_totalrn = 记录集名称.RecordCount ‘ ony works on some recordsets, but much fasterI