|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件函数|随机|反复|反复纪录道理:使用一个一时数组保留好随机局限的数据(简称局限数据)索引或标识,用rnd随机天生一时数组的索引。考证一时数组索引所对应的数据,为空则视被纪录过了,将随机数加一后反复考证操纵直光临时数组索引对应的数据不为空,则由一个纪录变量纪录下对应的局限数据标识,并清空此项数据。然落后行下一个随机操纵。
伪函数:
####
##函数参数
## 局限数据数组: 一维数组。
## 随机选择的数据量: 整数。
functionMyRnd(局限数据数组,随机选择的数据量)
################################################################
dim局限数据数组维数
dim轮回标识
dim随机索引
dim随机了局
局限数据数组维数=ubound(局限数据数组)
轮回标识=true
if局限数据数组维数>随机选择的数据量then
假如随机选择的数据量年夜于局限数据数组维数的话就不必随机读取了,全布都列出来就是了
RandomizeTimer
随机索引=fix(rnd*(局限数据数组维数+1))
while轮回标识
if局限数据数组(随机索引mod局限数据数组)""then
数据不为空,则暗示未随机拔取过。
随机索引=局限数据数组(随机索引mod局限数据数组)
if随机了局=""then
随机了局以","分开每一个随机值。
随机了局=随机了局&;","
endif
随机了局=随机了局&;局限数据数组(随机索引)
局限数据数组(随机索引)="" 清空该数据暗示已随机过。
轮回标识=false 停止轮回。
endif
if随机索引>局限数据数组维数*3then
假如随机索引年夜于局限数据数组维数的三倍,暗示已在局限数据数组维数内历遍过三次,跳出,避免逝世轮回。
轮回标识=false
endif
wend
endif
endfunction
使用:
用在随机拔取不反复的数据表纪录。
用getrows将数据表内ID标识换成一个二维数组,然后利用该函数随机拔取指定命量的ID编号以","分开,然后用in前提式将切合随机出来的ID编号的数据读出来便可。
随机拔取不反复的数据。
将一切数据放到一个一维数据,然后用该函数挑随机选择便可。
</p>专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。 |
|