用ASP随机产生随机数

各位好今天我要告诉大家的是如何用ASP产生随机数。大家都知道大多数网站注册后

提供用户名和一个随机密码,但这个密码是如何产生的,现在我就向大家来介绍一下

请看下面的例子,用户可自行增加或减少随机的字符或数量。

 1   
 2Function gen_key(digits)   
 3  
 4'Create and define array   
 5dim char_array(50)   
 6char_array(0) = "0"   
 7char_array(1) = "1"   
 8char_array(2) = "2"   
 9char_array(3) = "3"   
10char_array(4) = "4"   
11char_array(5) = "5"   
12char_array(6) = "6"   
13char_array(7) = "7"   
14char_array(8) = "8"   
15char_array(9) = "9"   
16char_array(10) = "A"   
17char_array(11) = "B"   
18char_array(12) = "C"   
19char_array(13) = "D"   
20char_array(14) = "E"   
21char_array(15) = "F"   
22char_array(16) = "G"   
23char_array(17) = "H"   
24char_array(18) = "I"   
25char_array(19) = "J"   
26char_array(20) = "K"   
27char_array(21) = "L"   
28char_array(22) = "M"   
29char_array(23) = "N"   
30char_array(24) = "O"   
31char_array(25) = "P"   
32char_array(26) = "Q"   
33char_array(27) = "R"   
34char_array(28) = "S"   
35char_array(29) = "T"   
36char_array(30) = "U"   
37char_array(31) = "V"   
38char_array(32) = "W"   
39char_array(33) = "X"   
40char_array(34) = "Y"   
41char_array(35) = "Z"   
42  
43'Initiate randomize method for default seeding   
44randomize   
45  
46'Loop through and create the output based on the the variable passed to   
47'the function for the length of the key.   
48do while len(output) < digits   
49num = char_array(Int((35 - 0 + 1) * Rnd + 0))   
50output = output + num   
51loop   
52  
53'Set return   
54gen_key = output   
55End Function   
56  
57'Write the results to the browser, currently setting a 13 digit key   
58response.write "

<pre>" &amp; gen_key(13) &amp; "</pre>

1" & vbcrlf   
Published At
Categories with Web编程
Tagged with
comments powered by Disqus