ASP [a-zA-Z0-9]无错N长度随机数函数 By shawl.qiu

QUOTE:

ASP [a-zA-Z0-9]无错N长度随机数函数 By shawl.qiu

shawl.qiu
2006-8-18
  http://blog.csdn.net/btbtd/

1. linenum
2. <% 
3. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
4. ' 安全类函数     http://blog.csdn.net/btbtd
5. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
6. ' 随机显示字符函数 '''/// response.write  fRndStr(16) ///'''
7. private    function fRndStr(num)
8.         if isNumeric(num)=false then exit function else num=int(num)
9.         dim i, j
10.         dim rndStr(61)
11.         
12.         for j=0 to 9:rndStr(j)=cStr(j):next 
13.         j=10:for i=65 to 90:rndStr(j)=chr(i):j=j+1:next
14.         j=36:for i=97 to 122:rndStr(j)=chr(i):j=j+1:next
15.         
16.         j=0:randomize
17.         do until j=num:fRndStr=fRndStr+rndStr(Int((61 - 0 + 1) * Rnd + 0)):j=j+1:loop
18.         erase rndStr
19.     end function 'shawl.qiu code
20.         response.write fRndStr(10000)
21. %>