您正在使用IPV4(18.205.176.39)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
深圳小产权房       [公益]文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】热门云产品首单特惠秒杀,2核2G云服务器45元/年      
[公益] 节省一分零钱 献出一份爱心 温暖世间真情      
2022年 儿童节 15
2022年 端午节 17
2023年 元 旦 229
2023年 春 节 250
 
本类新增
本类热门文章
您现在的位置:首页 >> ASP/ASP.net >> 内容
记录集内随机取记录的代码
内容摘要: %'Movingtorandomrecord-StevenJones'ExtensionIfNot(记录集名称.bofand记录集名称.eof)Then'resetthecursortothebeginningIf(记录集名称.CursorType0)Then记录集名称.MoveFirstElse记录集名称.RequeryEndIf记录集名称_totalrn......
<%

'Movingtorandomrecord-StevenJones'Extension

IfNot(记录集名称.bofand记录集名称.eof)Then

'resetthecursortothebeginning

If(记录集名称.CursorType>0)Then

记录集名称.MoveFirst

Else

记录集名称.Requery

EndIf

记录集名称_totalrn=-1

记录集名称_totalrn=记录集名称.RecordCount'onyworksonsomerecordsets,butmuchfaster

If(记录集名称_totalrn=-1)Then'andifitdidn'twork,westillhavetocounttherecords.

'countthetotalrecordsbyiteratingthroughtherecordset

记录集名称_totalrn=0

While(Not记录集名称.EOF)

记录集名称_totalrn=记录集名称_totalrn+1

记录集名称.MoveNext

Wend

'resetthecursortothebeginning

If(记录集名称.CursorType>0)Then

记录集名称.MoveFirst

Else

记录集名称.Requery

EndIf

EndIf

'nowdofinaladjustments,andmovetotherandomrecord

记录集名称_totalrn=记录集名称_totalrn-1

If记录集名称_totalrn>0Then

Randomize

记录集名称.MoveInt((记录集名称_totalrn+1)*Rnd)

EndIf

EndIf

'alldone;youshouldalwayscheckforanemptyrecordsetbeforedisplayingdata

%>

上一篇:ASP常用日期格式化函数 FormatD 下一篇:FileSystem对象常用的文件操作函
发布日期:2022/5/6
手机扫二维码直达本页
发布时间:15:10:35
点击:165
录入:壹家怡园
相关文章
Baidu

YiJiaCMS 6.2.1.220509(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,百度云加速提供加速防护
Copyright©2000-2022