经移动技术网站长测试可用的asp无重复数字随机函数, 数组实现, 并应用于随机显示记录集
<%
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)
%>
我要评论
网友评论