Question

求 asp指定格式随机数程序...

求一长度16位数字(2-9) + 大写英文字母(去掉 I 和0)，每4位是数字的 asp 随机数程序...例如:"3KZ5 JH98 6DJ3 3A74" ...最好是能一次随即生成多条并且没有重复的....
我说的每4位是数字可能说的不明白...就是第4、8、12、16位是数字不能是大写字母

Answer 1

count控制位数，l控制多少组

<%
arrstr=Split("A|B|C|D|E|F|G|H|J|K|L|M|N|P|Q|R|S|T|U|V|W|X|Y|Z|2|3|4|5|6|7|8|9","|")
arrnum=Split("2|3|4|5|6|7|8|9","|")

count=16 '字符串长度
'l=request.querystring("l")
l=20
If l<>"" then
'l=CInt(l)
For j=1 To l
temp=""
Randomize
For i=1 To count
If i Mod 4<>0 Then c=arrstr(rnd*UBound(arrstr)) Else c=arrnum(rnd*UBound(arrnum))&" "
temp=temp&c
Next
response.write temp & "<br />"
Next
End if
%>

追问

非常感谢...发现个小问题在一次生成40组的时候发现很多重复数据...能否再加个判断重复值的判断...

追答

那你用这个吧，从网上找了一个清除重复值的函数
0 then
if not IsNumeric(cxstr3) then
array_no = "对不起，参数3类型必需为数字"
Exit Function
end if
else
array_no = "对不起，参数3类型必需为数字"
Exit Function
end if
if isarray(cxstr1) then
array_no = "对不起，参数1不能为数组"
Exit Function
end if
if cxstr1 = "" or isempty(cxstr1) then
array_no = "没有数据"
Exit Function
end if
ss = split(cxstr1,cxstr2)
cxs=cxstr2&ss(0)&cxstr2
sss=cxs
for m = 0 to ubound(ss)
cc = cxstr2&ss(m)&cxstr2
if instr(sss,cc)=0 then
sss = sss&ss(m)&cxstr2
end if
next
array_no = right(sss,len(sss)-len(cxstr2))
array_no = left(array_no,len(array_no)-len(cxstr2))
if cxstr3 0 then
cx_sp = split(array_no,cxstr2)
if cxstr3 > ubound(cx_sp) then
array_no = cx_sp(ubound(cx_sp))
else
array_no = cx_sp(cxstr3)
end if
end if
end Function

arrstr=Split("A|B|C|D|E|F|G|H|J|K|L|M|N|P|Q|R|S|T|U|V|W|X|Y|Z|2|3|4|5|6|7|8|9","|")
arrnum=Split("2|3|4|5|6|7|8|9","|")

count=16 '字符串长度
'l=request.querystring("l")
l=200
s=""
If l"" then
l=CInt(l)
For j=1 To l
temp=""
Randomize
For i=1 To count
If i Mod 40 Then c=arrstr(rnd*UBound(arrstr)) Else c=arrnum(rnd*UBound(arrnum))&" "
temp=temp&c
Next
s=s&temp&""
'response.write temp & ""
Next
response.write array_no(s,"",0)
End if
%>