简短生成编号的ASP代码

来源:百度知道 编辑:UC知道 时间:2024/05/25 19:56:48
简短生成编号的ASP代码,可以在每次刷新自动生成一组数字我想在添加一个通讯录在编号这里想让他自动生成不重复的序列号码哦!

<%
Dim myarr
For i = 0 To 100
Randomize
no = Int((1000-1+1)*Rnd+1)
For j = 0 To i
If no <> myarr(j) And no <> "" Then
j = j + 1
Else
Exit For
End If
myarr(i) = no
Next
If i = 21 Then
Exit For
End If
Next
%>
这是随机函数.你可以试一下.

随机函数给出的数字也可能是重复的啊,你最好在上面的基础上把年月日小时分秒这些基本信息也加上,在和上面的随机树组合起来,这样应该就不会重复了,year(now())&month(now())&.......这样做比较好