2个回答
展开全部
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位数,由数字和字母组成
我这个实现代码简短,且实宴唤现简单
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位数,由数字和字母组成
我这个实现代码简短,且实宴唤现简单
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
额铅扰,我这边有个你可以试试。
<%
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就可以了。要多少写多少~~~
<%
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就可以了。要多少写多少~~~
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询