[求助]如何给游客信息发布者一个号码,让他能修改自己发布的信息呢?
有个信息发布系统,游客可以发布房屋出租或其他信息,怎么样在他成功发布消息的同时给出一个帐号和密码让他能修改自己发布的消息呢?就是下面的形式
您的信息已经发布成功! 请记住您的修改帐号 12345 密码 13453
之前想过用随机数来做,但这个帐号不应该可以重复的,随机数可能会重复。我看见有的网站上有上面这个功能,但不知道怎么做的?哪位大哥知道怎么做呢?
没有人见过这种东西吗?
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)的数组。
然后随机取这个数组里的值,并乘以毫秒数最后得到无重复随机数。