记录集内随机取记录的代码 <% ‘ 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,
