作用:
本函数适用于随机显示小数量的随机不重复数字
本函数适用于显示小数量的随机不重复记录集
为了不影响效率, 上限超过一千, 不建议使用本函数
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:
'''''''''''''''''''''''''''''''''
内容版权声明：除非注明，否则皆为本站原创文章。