繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用ASP随机产生随机数
- ASP
- 深入研究“用ASP上载文件”(一)
- 深入研究“用ASP上载文件”(二)
- 一个投票系统的源程序(coveryourasp.com)
- 一 些 ASP 小 源 程 序
- 用ASP制作个性化的调查板（附源程序）
- 一些源程序 - 获得文件大小和字符串处理
- 用ASP创建日志文件（附源程序）
- 在一个ASP页面停留的多少时间的程序
- 用VB6做一个简单的文件上传组件(一)
- 用VB6做一个简单的文件上传组件(二)
- 构建你的网站新闻自动发布系统之七
- 实 现 滚 动 新 闻
- 网上“店铺”DIY(1)
- 网上“店铺”DIY(2)
- 网上“店铺”DIY(3)
- 负载平衡环境下的ASP会话管理(1)
- 负载平衡环境下的ASP会话管理(2)
- FrontPage创建HTML／ASP混合页面Ⅰ
- FrontPage创建HTML／ASP混合页面Ⅱ
- 在ASP应用中验证用户身份(1)
用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
