Question

ASP生成字母、数字组合随机数. 求帮助~~~

ASP可以生成6位字母和数字混合的随机数.用来做验证的!!!

Answer 1

Const stringmodarr = "0123456789qwertyuioplkjhgfdsazxcvbnm"
dim randarr,strlength
strlength = Len(stringmodarr)
Randomize timer
For i = 1 To 6 '// 利用 Mid Rnd 函数每次从种子字符串中随机抽取一个字符

randarr = randarr&Mid(stringmodarr,Int(Rnd * strlength + 1),1)
Next

这里的randarr 就是一个随机的6位数，由数字和字母组成

我这个实现代码简短，且实现简单

Answer 2

额，我这边有个你可以试试。
<%
Function make50file(NumLong)
dim a()
Redim
a(NumLong-1)
For j=0 to NumLong-1
Do
Randomize
asciicode=Int((122 -
48 + 1) * Rnd + 48)
Loop Until asciicode<=57 or (65<=asciicode and
asciicode<=90) or
97<=asciicode
a(j)=chr(asciicode)
Next
make50file=Join(a,"")
End
Function
%>
<%=make50file(8)%>
希望楼主早日解决疑惑，如果有什么不明白的可以HI百度我~~~

make50file(8)里面的8改为6就可以了。要多少写多少~~~