可用的ASP无重复数字随机函数, 数组实现, 并应用于随机显示记录集
2007-03-20 00:00
549 查看
经脚本之家站长测试可用的ASP无重复数字随机函数, 数组实现, 并应用于随机显示记录集
作用:
本函数适用于随机显示小数量的随机不重复数字
本函数适用于显示小数量的随机不重复记录集
为了不影响效率, 上限超过一千, 不建议使用本函数
shawl.qiu
2006-09-06
http://blog.csdn.net/btbtd
主内容: 函数及应用函数随机显示100条记录
linenum
作用:
本函数适用于随机显示小数量的随机不重复数字
本函数适用于显示小数量的随机不重复记录集
为了不影响效率, 上限超过一千, 不建议使用本函数
shawl.qiu
2006-09-06
http://blog.csdn.net/btbtd
主内容: 函数及应用函数随机显示100条记录
linenum
<% dim rs, rNum dim temp set rs=createObject("adodb.recordset") rs.open "select top 100 * from rnd_v1",conn,1 rNum=rs.recordCount-1 for each temp in fRndNoRpt(0,rNum) rs.move temp response.write rs("sbcat") response.write "<br/>" rs.movefirst next rs.close set rs=nothing 'shawl.qiu code' function fRndNoRpt(lwNum,upNum) '''''''''''''''''''''''''''''''''''''''''''' ' ASP 无重复数字随机函数, 数组实现, By shawl.qiu ' 2006-09-06 ' http://blog.csdn.net/btbtd ''''''''''''''''''''''''''''''''' ' 注意: 随机数超过1000, 不建议使用本函数. ''''''''''''''''''''''''''''''''' ' 参数说明: ''''''''''''''''''''''''''''''''' ' lwNum 为 数字数组下限, 如: 1 ' upNum 为 数字数组上限, 如: 100 ''''''''''''''''''''''''''''''''' ' sample call: ''''''''''''''''''''''''''''''''' ' dim t ' for each t in fRndNoRpt(1,100) ' response.write t&"<br/>" ' next '''''''''''''''''''''''''''''''''''''''''''' if upNum<1 or isNull(upNum) or upNum="" or isNumeric(upNum)=false then exit function if lwNum<0 or isNumeric(lwNum)=false then exit function dim num, temp dim ar() redim ar(upNum) dim j:j=0 for temp=lwNum to upNum num=num&"."&temp&"." next randomize do until num="" temp=int((upNum-lwNum+1)*rnd+lwNum) if inStr(num,"."&temp&".")<>0 then num=replace(num,"."&temp&".","") ar(j)=temp j=j+1 end if loop fRndNoRpt=ar erase ar end function 'shawl.qiu code' response.write "<p/>使用随机数函数显示1至100的不重复随机数 1:<br/>-----------------------<br/>" for each temp in fRndNoRpt(1,100) response.write temp&"<br/>" next response.write "<p/>使用随机数函数显示1至100的不重复随机数 2:<br/>-----------------------<br/>" temp=join(fRndNoRpt(1,100),"-") response.write mid(temp,1,len(temp)-1) %>
相关文章推荐
- 可用的ASP无重复数字随机函数, 数组实现, 并应用于随机显示记录集
- ASP 无重复数字随机函数, 数组实现, 并应用于随机显示记录集 By shawl.qiu
- asp下实现 重新排序数字数组的代码
- 请编程实现:产生一个int数组,长度为100,并向其中随机插入1-100,并且不能重复(百度了一下,get一种高性能算法,非递归)
- 在ASP中轻松实现记录集分页显示
- 设计一个算法,要求在20个数字中(0到19)随机选取十个数字,但是这十个数字不能重复(用C语言或者OC实现)
- 使用数组作为返回类型,返回不重复的随机数字
- 关于随机数组产生不重复数字的新手写法
- 编写一个javscript函数 fn,该函数有一个参数 n(数字类型),其返回值是一个数组,该数组内是 n 个随机且不重复的整数,且整数取值范围是 [2, 32]。
- JS实现随机显示一个数组中的数值;
- Java实现-删除排序数组中的重复数字2
- java 一个int数组 长度为100 随机生成100个数 即1-100 将其插入进数组 插入的数字不能重复
- 数据结构与算法分析笔记与总结(java实现)--数组8:数组中重复的数字
- ASP生成不重复随机数字的另类思路
- Java实现随机无重复数字功能
- 生成指定范围内无重复的随机乱序数组(JAVA实现/时间复杂度为O(n))
- js实现生成一个指定长度为n且随机不重复的数组
- java实现list清除重复的字符串;arraylist动态数组;角谷定理最终得1,找出10000以内哪个数字的步骤最长