Asp生成十三位随机字符串
2008-05-29 00:45
330 查看
<%@ LANGUAGE = VBScript %>
<html>
<title>
生成随机字符串
</title>
<body>
<%
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 Timer'初始化随机数生成器。
do while len(output) < digits
num = char_array(Int((62 - 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>"
%>
</body>
</html>
<html>
<title>
生成随机字符串
</title>
<body>
<%
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 Timer'初始化随机数生成器。
do while len(output) < digits
num = char_array(Int((62 - 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>"
%>
</body>
</html>
相关文章推荐
- asp生成随机字符串
- Asp 生成随机字符串13位
- ASP生成随机字符串(数字+大小写字母)的代码
- Asp 生成随机字符串13位(循环输出500次无报错)
- ASP生成随机字符串
- ASP生成随机字符串(数字+大小写字母)的代码
- 用ASP编程语言实现生成随机字符串
- 【RFS】【robotframework_1】生成随机数字和随机字符串
- Java回炉重造(五)使用Apache Commons Text生成随机字符串
- 生成随机字符串
- vector基本操作|随机生成乱序字符串
- 随机生成指定长度字符串
- 生成随机字符串
- c#生成随机位数的汉字字符串
- Excel生成随机字符串(数字大小写混合)
- C#中随机生成一串字母+数字的字符串
- C# 随机字符串生成程序
- 随机生成多种语言文化字符串及基于RFC822协议的邮件
- php生成随机字符串和验证码的类
- [代码示例]如何在ASP.NET中获取随机生成的cookie加密与验证密钥