随机访问记录集内容的代码
由Steven Jones扩展
检查记录集是否为空或者是否处于有效状态。如果记录集存在并且包含数据，我们将执行一系列操作来随机访问其中的一条记录。
```vbscript
' 检查记录集状态并准备随机访问记录 - Steven Jones扩展
If Not (记录集名称.BOF And 记录集名称.EOF) Then
' 重置游标到开始位置
If 记录集名称.CursorType > 0 Then
记录集名称.MoveFirst ' 如果游标类型允许，移动到第一条记录
Else
记录集名称.Requery ' 重新查询以重置游标位置
End If
' 获取记录总数（仅在部分记录集上有效，但速度更快）
记录集名称_totalrn = -1
记录集名称_totalrn = 记录集名称.RecordCount
If 记录集名称_totalrn = -1 Then
' 如果未成功获取记录数，我们需要通过遍历记录集来计算总记录数
记录集名称_totalrn = 0
While Not 记录集名称.EOF
记录集名称_totalrn = 记录集名称_totalrn + 1
记录集名称.MoveNext
Wend
End If
' 重置游标位置并准备随机访问一条记录
If 记录集名称.CursorType > 0 Then
记录集名称.MoveFirst ' 如果游标类型允许，再次移动到第一条记录以准备随机访问
Else
记录集名称.Requery ' 重新查询以重置游标位置并准备随机访问一条记录
End If
