《2022年asp生成随机字符的函数[借 .pdf》由会员分享，可在线阅读，更多相关《2022年asp生成随机字符的函数[借 .pdf（6页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、8 个 asp 生成随机字符的函数2009-07-22 20:47 呵呵，先说明一下下面的程序大部分收集自网络，因为本人在 asp 编程中经常使用到随机函数， 所以收集了一些这类的函数，并做了些注释， 方便使用。 首发在中国 asp 之家。别看小小的随机字符串函数其实作用是很大的，就看你怎么发挥了。比如我们可以用他来在生成静态页面时的文件命名，应该很多的网站的都使用过。还有我们可以用它来生成随机密码等等。function MyRandc(n) 生成随机字符， n 为字符的个数，该随机函数由大小写字母组成，不含数字dim thechr thechr = for i=1 to n dim zNum
2、,zNum2 Randomize zNum = cint(25*Rnd) zNum2 = cint(10*Rnd) if zNum2 mod 2 = 0 then zNum = zNum + 97 else zNum = zNum + 65 end if thechr = thechr & chr(zNum) next MyRandc = thechr end function 使用方法：MyRandc(n) 生成随机字符， n 为字符的个数，如：response.write MyRandn(10) 输出 10 个随机英文字母字符2. 功能说明：生成指定长度的随机字符，大小写英文字母加数字fu
3、nction gen_key(digits) 定义并初始化数组dim char_array(80) 初始化数字for i = 0 to 9 char_array(i) = cstr(i) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 6 页 - - - - - - - - - next 初始化大写字母for i = 10 to 35 char_array(i) = chr(i + 55) next 初始化小写字母for i = 36 to 61 char_array(i
4、) = chr(i + 61) next randomize 初始化随机数生成器。do while len(output) digits num = char_array(int(61 - 0 + 1) * rnd + 0) output = output + num loop 设置返回值gen_key = output end function使用方法：把结果返回给浏览器response.write 本实例生成的十三位随机字符串为: response.write response.write gen_key(13) 这里可以更改长度response.write 3. 这个虽然不是函数， 也不
5、是常规的随机函数， 但是当我们想让它随机输出我们指定的字符时，可以用到下面的方法。dim a(5) randomize t=int(rnd*5) a(0)=yingyu a(1)=laoda a(2)=wangzhan a(3)=maiwangzhan a(4)=hehe 使用方法：response.Write(a(t) 4. 功能说明：返回 16 位随机字符，大小写英文字母加数字public function Generate_Key() Randomize 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - -
6、 - - - - - 第 2 页，共 6 页 - - - - - - - - - do num = Int(75 * Rnd)+48) found = false if num = 58 and num =91 and num =96 then found = true end if end if if found = false then RSKey = RSKey+Chr(num) end if loop until len(RSKey)=16 Generate_Key=RSKey end function 使用方法： Response.Write Generate_Key() 5. 功能
7、说明：返回指定长度的随机字符，大小写英文字母加数字组成function makePassword(byVal maxLen) Dim strNewPass Dim whatsNext, upper, lower, intCounter Randomize For intCounter = 1 To maxLen whatsNext = Int(1 - 0 + 1) * Rnd + 0) If whatsNext = 0 Then upper = 90 lower = 65 Else upper = 57 lower = 48 End If strNewPass = strNewPass & C
8、hr(Int(upper - lower + 1) * Rnd + lower) Next makePassword = strNewPass end function使用方法： dim radpass response.write makePassword(6) 6位字符名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 6 页 - - - - - - - - - 6. 功能说明：生成任意位随机数的函数strLong是随机数字的位数，返回指定长度的数字串，不含字母Funct
9、ion rndNum (strLong) Dim temNum Randomize Do While Len(RndNum) 3,false-003 Function rndNumber(iLessCount,iMostCount,iLessNumber,iMostNumber,cutZero) If iLessCount = 0 OR iMostCount iLessCount OR NOT _ isnumeric(iLessCount) OR NOT isnumeric(iMostCount) OR NOT _ isnumeric(iLessNumber) OR NOT isnumeric
10、(iMostNumber) _ OR (iLessNumber = iMostNumber) Then Exit Function 最少个数零、最大个数小于最小个数、4 个参数不为数字、最小数等于最大数就退出函数 Randomize Dim iRnd,sZero Dim sOutput Dim iLength Dim sTempOutput Dim i Dim iCount iCount = int(rnd*(iMostCount-iLessCount+1)+iLessCount计算随机取几个数 iLength = len(iMostNumber)*iCount+(iCount*2) 长度为最
11、大数长度乘以随机个数加上随机个数乘以2（每个数前后各一个逗号，用来全字匹配）名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 6 页 - - - - - - - - - Do While len(sOutput) iLength输出小于长度时循环 iRnd = int(rnd*(iMostNumber-iLessNumber+1)+iLessNumber 取随机数If Len(iRnd) len(iMostNumber) Then随机数长度小于取最大数长度 For i =
12、1 To len(iMostNumber) - len(iRnd) 那么就要在首位加缺少的零 sZero = sZero & 0 Next End If iRnd = sZero & iRnd把零加在随机数前面sZero = empty 清空首位零，循环后还要调用If Instr(sOutput,&iRnd&,) 1 Then不在输出变量中就放进去 0 sOutput = sOutput & , & iRnd & , End If Loop sOutput = mid(sOutput,2,len(sOutput)-2)去掉首尾逗号sOutput = Replace(sOutput,)把双逗号替
13、换成单逗号If cutZero = true Then如果要去除首位多余的零sTempOutput = split(sOutput,)拆分为数组 sOutput = empty清空，后面要重新放入For i = 0 To Ubound(sTempOutput)逐个转换成数值后放入 sOutput = sOutput & Clng(sTempOutput(i) & , Next sOutput = mid(sOutput,1,len(sOutput)-1)去掉末尾逗号 End If rndNumber = sOutput 输出End Function 使用方法：Response.Write rn
14、dNumber(1,3,5,15,false) 8. 功能说明：生成随机字符串，包括大小写字母，数字，和其它符合，常用于干扰码。参数说明： stars-干扰码最小长度， ends- 干扰码最大长度function rndcode(byVal stars,byVal ends) by 天空诚 from: dim rndlen,i randomize 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 6 页 - - - - - - - - - rndLen = int(star
15、s*rnd+ends-stars) for i = 1 to rndLen randomize rndcode = rndcode & chr(int(127*rnd+1) next end function 使用方法： response.write rndcode(20,100) 效果图：上面介绍了 8 种方法，相信能够满足大部分多随机字符的使用了！http:/ /item/61e1d67f61fb0b310dd7da1d.html 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 6 页 - - - - - - - - -