繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用ASP随机产生随机数
- ASP
- 用EasyMailObject组件处理Exchange邮件源代码(6)
- 用EasyMailObject组件处理Exchange邮件源代码(7)
- 利用ASP和Access数据库制作局域网网上答题系统
- 用ASP开发试题库与在线考试系统(1)
- 用ASP开发试题库与在线考试系统(2)
- 用ASP开发试题库与在线考试系统(3)
- 用ASP开发试题库与在线考试系统(4)
- 用ASP开发试题库与在线考试系统(5)
- 用ASP开发试题库与在线考试系统(6)
- 用ASP开发试题库与在线考试系统(7)
- 用ASP开发试题库与在线考试系统(8)
- 综合的判断用户输入的合法性的函数
- 三层动态下拉菜单的例子
- 将你的网站设置为客户的信任站点--VB方案
- 论坛中有新贴子功能的实现
- ASP 编程中 15 个非常有用的例子
- 一个的无组件上传的ASP代码
- 利用ASP实现三个强大功能之一
- 利用ASP实现三个强大功能之二
- 利用ASP实现三个强大功能之三
用ASP随机产生随机数
提供用户名和一个随机密码，但这个密码是如何产生的，现在我就向大家来介绍一下
请看下面的例子，用户可自行增加或减少随机的字符或数量。
<%
Function gen_key(digits)
'Create and define array
dim char_array(50)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
char_array(10) = "A"
char_array(11) = "B"
char_array(12) = "C"
char_array(13) = "D"
char_array(14) = "E"
char_array(15) = "F"
char_array(16) = "G"
char_array(17) = "H"
char_array(18) = "I"
char_array(19) = "J"
char_array(20) = "K"
char_array(21) = "L"
char_array(22) = "M"
char_array(23) = "N"
char_array(24) = "O"
char_array(25) = "P"
char_array(26) = "Q"
char_array(27) = "R"
char_array(28) = "S"
char_array(29) = "T"
char_array(30) = "U"
char_array(31) = "V"
char_array(32) = "W"
char_array(33) = "X"
char_array(34) = "Y"
char_array(35) = "Z"
'Initiate randomize method for default seeding
randomize
'Loop through and create the output based on the the variable passed to
'the function for the length of the key.
do while len(output) < digits
num = char_array(Int((35 - 0 + 1) * Rnd + 0))
output = output + num
loop
'Set return
gen_key = output
End Function
'Write the results to the browser, currently setting a 13 digit key
response.write "<pre>" & gen_key(13) & "</pre>" & vbcrlf
%>
评论 (0) All
