如何取得一组数字和字母的组合?
并且可以控制多少位?
请高手给出相关函数,谢谢
參考答案:可以定义一个字符串来做种子，再利用Rnd、Mid等函数来实现随机抽取。
'// 取得随机字符串
Public Function GetRndString(ByVal intNum)
If intNum <= 0 Then Exit Function
Dim i
Dim intLength
'// 这些字符用来做种子
Const STRINGSOURCE = "***********ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
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)