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

记录集内随机取记录的代码 % ''Movingtorandomrecord-StevenJones''Extension IfNot(记录集名称.bofand记录集名称.eof)Then ''resetthecursortothebeginning If(记录集名称.CursorType0)Then 记录集名称.MoveFirst Else 记录集名称.Requery EndIf 记录集名称_totalrn=-1 记录集名称_totalrn=记录集名称.RecordCount''onyworks

作者: 来源: 时间: 17-11-23 15:43:03

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

<% 
'' 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
%> 

  
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们