呵呵，先说明一下下面的程序大部分收集自网络，因为本人在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>"
站长工具
相关文章
请稍等，评论加载中...