asp产生随机数
2007-02-12 09:30
435 查看
<%Function gen_key(digits)
'Create and define arraydim 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 seedingrandomize
'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) < digitsnum = char_array(Int((35 - 0 + 1) * Rnd + 0))output = output + numloop
'Set returngen_key = outputEnd Function
'Write the results to the browser, currently setting a 13 digit key
response.write "<pre>" & gen_key(3) & "</pre>" & vbcrlf%>
'Create and define arraydim 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 seedingrandomize
'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) < digitsnum = char_array(Int((35 - 0 + 1) * Rnd + 0))output = output + numloop
'Set returngen_key = outputEnd Function
'Write the results to the browser, currently setting a 13 digit key
response.write "<pre>" & gen_key(3) & "</pre>" & vbcrlf%>
相关文章推荐
- asp产生随机数
- asp随机数 随机产生N位由数字和字母组成的密码
- ASP.NET中随机数的产生
- asp产生个时间随机数适合编号
- ASP.NET中随机数的产生
- asp产生随机数
- Asp.net 产生无重复ID 年月日+三位随机数
- 怎样在asp中产生10个0-99的随机数
- 随机产生N位由数字和字母组成的密码 asp随机数
- 【ASP】在特定的范围内产生N个不同的随机数
- ASP.net产生随机数
- 【ASP】在特定的范围内产生N个不同的随机数
- Asp.net 产生无重复ID 年月日+三位随机数
- ASP产生不重复的随机数(模拟洗牌)
- asp代码--产生随机数柱形图,产生随意数系列函数
- asp随机数 随机产生N位由数字和字母组成的密码
- 各数据库产生随机数
- C语言产生随机数
- 在1到30之间产生7个不重复的随机数,然后从小到大排序,若产生的数只有个位,则在个位前添加0,如01
- 推导:通过均匀分布来产生任意分布随机数