gpt4 book ai didi

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

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 24 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章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  %>  。

最后此篇关于asp下实现记录集内随机取记录的代码的文章就讲到这里了,如果你想了解更多关于asp下实现记录集内随机取记录的代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com