用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
%>

时间： 2024-04-05 23:46:09

用ASP随机产生随机数的相关文章

ASP随机生成汉字的方法

ASP随机生成汉字的方法 <%Dim i     Dim j     Dim HS     Dim HE     Dim LS     Dim LE     dim Result     Result=""     HS = 177     HE = 247     LS = 161     LE = 254     dim Max_Num     Max_num=65536     Randomize       For i = 1 To 4 temp1=dec2bin(Int

asp随机图片显示

随机|显示|随机 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%Function AllPath()Dim Domain,GFilePathDomain = Request.ServerVariables("SERVER_NAME")GFilePath = Request.ServerVariables("PATH_INFO")GFilePath = lcase(left(

ASP随机产生用户密码的实例

随机|随机     说明:通过随机产生密码,然后将密码EMail给注册用户,你可以确认用户的EMail填写是否正确.自动产生的密码往往安全性更高,同时,你可以过滤那些无效的用户.      把下面的代码保存为random.asp文件:      <%   Sub StrRandomize(strSeed)    Dim i, nSeed    nSeed = CLng(0)    For i = 1 To Len(strSeed)    nSeed = nSeed Xor ((256 * ((i

ASP 随机跳转页面的代码

随机|页面 每次访问域名,都会随机跳转到不同的页面. index.asp 为默认首页 代码:<% randomizeNum=(int(rnd()*6)+1)Select Case Numcase 1response.redirect("/book")case 2response.redirect("/webftp")case 3response.redirect("/wish")case 4response.redirect("/

ASP.NET 返回随机数实现代码_实用技巧

复制代码 代码如下: /// <summary> /// 返回随机数 /// </summary> /// <param name="VcodeNum"></param> /// <returns></returns> public string RndNum(int VcodeNum) { string Vchar = "0,1,2,3,4,5,6,7,8,9"; string[] VcArr

asp 随机读取ACCESS数据库记录的方法

检查了一些贴子对于MSSQL数据库教程一般可以采用这样的语句: 方法三:有这样一种方法,我觉的不错: <% yourstr="*1*3*4*6*12*...." sql="select top 10 * form yourdb where instr('*'&id&'*','"&yourstr&"')<>0" %> yourstr可以生成随机数多一点大于所限定抽取的随机数为好,这样可以排除记

C语言中如何写一个简单可移植而又足够随机的随机数生成器

    在C语言中标准库中的随机数产生函数的返回可能不是最优的,因为有些随机数生成器的低位并不随机,而另一些返回随机数的函数实现上又太复杂鸟.所以rand()%N并不是一个好方法,牛人给出的建议是使用: rand()/(RAND_MAX/N+1) 其中RAND_MAX在stdlib.h中定义,而假设N要远远小于RAND_MAX.而PARK和MIller提供的"最小标准"的可移植随机数生成器的C实现如下: #include <stdio.h> #include <std

asp 随机字符串函数_应用技巧

'************************************* 'asp计算随机数 '************************************* Function randomStr(intLength) Dim strSeed, seedLength, pos, Str, i strSeed = "abcdefghijklmnopqrstuvwxyz1234567890" seedLength = Len(strSeed) Str = "&qu

asp.net 生成随机数的几种方法

我们可以使用两种方式初始化一个随机数发生器: ??第一种方法不指定随机种子,系统自动选取当前时间作为随机种子: ??random ro = new Random();     实例 private static char[] constant = { '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',