生成随机字符串的一个ASP函数,指定生成字符串的范围,然后定义生成字符串的长度,使用For循环遍历生成,可用于生成随机密码、验证码等模块中。
<% Function RndCode() Dim CodeSet,AmountSet CodeSet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" AmountSet = 62 ' 字符串长度 Randomize Dim vCode(10), vCodes,i For i = 0 To 9 vCode(i) = Int(Rnd * AmountSet) vCodes = vCodes & Mid(CodeSet, vCode(i) + 1, 1) Next RndCode=vCodes End Function %>