ASP随机组合函数如何写?

来源：百度知道 编辑：UC知道 时间：2024/06/03 02:36:59
如何取得一组数字和字母的组合?
并且可以控制多少位?
请高手给出相关函数,谢谢
就像网站登陆的验证码类似的,随机之后形成的字符串是数字和字母的组合,并且还有大小写,求此函数

可以定义一个字符串来做种子，再利用Rnd、Mid等函数来实现随机抽取。
'// 取得随机字符串
Public Function GetRndString(ByVal intNum)
If intNum <= 0 Then Exit Function

Dim i
Dim intLength
'// 这些字符用来做种子
Const STRINGSOURCE = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
intLength = Len(STRINGSOURCE)-1

Randomize
For i = 1 To intNum
'// 利用 Mid Rnd 函数每次从种子字符串中随机抽取一个字符
GetRndString = GetRndString & Mid(STRINGSOURCE,Int(Rnd * intLength + 1),1)
Next
End Function

'// 调用
Response.write GetRndString(10)

把所有要组合的东西放到一个数组里然后 rnd() ...?

数字
比如3位的
a=rnd()*900+100
即随机生成100到999
如生成字母的4位
for i=1 to4
a=a & chr(rnd()*26 + 65)
next
大概就是这个意思，工作原理很明白了，自己想吧