没有人见过这种东西吗?
| 学习型 ASP/PHP/ASP.NET 主机 35元/年 | 全能ASP/PHP/ASP.NET主机,支持月付 | 专业 MSSQL 数据库空间,支持月付 | 专业 MySQL 数据库空间,支持月付 |
| 赛孚耐:软件保护加密专家 | 身份认证令牌USB KEY |
没有人见过这种东西吗?


Function getRandomID(RndLen)
Dim TNumAry(100)
Dim RNum
Dim i,temp
RNum=0
For i=0 To 100
TNumAry(i)=i
Next
For i=0 To RndLen
randomize
temp=CInt(100*rnd)
RNum=RNum+TNumAry(temp)*CInt(timer)
Next
getRandomID=RNum
End
个人从网上看的一种随即数无重复生成算法,就是生成指定长度的数组(1-100)的数组。
然后随机取这个数组里的值,并乘以毫秒数最后得到无重复随机数。
