搜索:
首页 >> Asp教程 >> Asp实例教程 >> 8个asp生成随机字符的函数

8个asp生成随机字符的函数

2007-8-4 作者:天空诚 来源:中国Asp之家 网友评论投递文章

呵呵,先说明一下下面的程序大部分收集自网络,因为本人在asp编程中经常使用到随机函数,所以收集了一些这类的函数,并做了些注释,方便使用。首发在中国asp之家。别看小小的随机字符串函数其实作用是很大的,就看你怎么发挥了。比如我们可以用他来在生成静态页面时的文件命名,应该很多的网站的都使用过。还有我们可以用它来生成随机密码等等。

function MyRandc(n) 
’生成随机字符,n为字符的个数 ,该随机函数由大小写字母组成,不含数字
dim thechr
thechr = ""
for i=1 to n
   dim zNum,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.
’功能说明:生成指定长度的随机字符,大小写英文字母加数字
function gen_key(digits)
’定义并初始化数组
dim char_array(80)
’初始化数字
for i = 0 to 9
char_array(i) = cstr(i)
next
’初始化大写字母
for i = 10 to 35
char_array(i) = chr(i + 55)
next
’初始化小写字母
for i = 36 to 61
char_array(i) = 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 "<center>"
response.write gen_key(13) ‘这里可以更改长度
response.write "</center>"

站长工具
人民币金额大写查询:
相关文章
loading 请稍等,评论加载中...

学习Asp到Asp之家(Aspxhome.com)

闽ICP备09044667号-4