一个获得随机字符串的asp函数

最新推荐文章于 2021-03-07 22:36:41 发布
原创 最新推荐文章于 2021-03-07 22:36:41 发布 · 817 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#asp #function

博客展示了一段ASP代码，通过定义getCode函数获取指定长度的随机字符串。代码中先定义字符数组，利用随机数从数组中选取字符，循环拼接成所需长度的字符串并返回。
response.write getCode(10)   '得到一个长度为10 的随机字符串


Function getCode(iCount)

     Dim arrChar

     Dim j,k,strCode

     arrChar = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

     k=Len(arrChar)

     Randomize

     For i=1 to iCount

          j=Int(k * Rnd )+1

          strCode = strCode & Mid(arrChar,j,1)

     Next

     getCode = strCode

End Function
ASP生成随机字符串(数字+大小写字母)的代码
10-30
ASP生成随机字符串(数字+大小写字母)的代码
ASP页面随机添加字符实现防复制的代码
10-30
ASP页面随机添加字符实现防复制的代码
asp随机数 随机产生N位由数字和字母组成的密码
10-29
随机产生N位由数字和字母组成的密码 asp随机数
用ASP编程语言实现生成随机字符串
zzkxtx的专栏
07-31 671
Function GetRandom(RandomLength) '定义并初始化数组 dim char_array(80) '初始化数字 For i = 0 To 9 char_array(i) = CStr(i) Next '初始化大写字母 For i = 10 To 35 char_array(i) = Chr(i + 55) Next '初始化小写字母 For i =
asp生成随机字符串
weixin_33743248的博客
02-07 298
本文转自http://blog.sina.com.cn/s/blog_658e0d940100i0os.html 首先介绍一下本实例用到的核心函数: Rnd Rnd函数的作用就是返回一个随机数,这里有一个注意点: 因每一次连续调用 Rnd 函数时都用序列中的前一个数作为下一个数的种子，所以对于任何最初给定的种子都会生成相同的数列。 所以在调用 Rnd 之前，先使用无参...
asp 随机字符串函数
10-30
`randomStr`函数就是这样一个用来创建随机字符串的工具，它能生成指定长度的混合小写字母和数字的字符串。在实际应用中，可以根据需求进一步扩展，增加特殊字符或大写字母。 以下是对`randomStr`函数的详细解释： ...
asp字符串加密解密函数
10-30
本文将详细介绍一个用于ASP环境中的字符串加密解密函数，该函数采用了一种简单的对称加密算法实现数据的安全传输与存储。 #### 二、核心功能介绍 ##### 2.1 加密过程 加密过程主要通过异或运算实现，具体步骤如下...
asp生成随机字符的函数[借鉴].pdf
10-11
例如，数组`a(5)`包含了五个字符串，通过`Rnd`函数获取一个介于0和4之间的随机整数`t`，然后`response.Write(a(t))`将输出数组中的一个随机字符串。 4. `Generate_Key` 函数： 这个函数生成一个16位的随机字符串，...
ASP随机生成字符串函数
网络Online
07-27 984
Function getCode(iCount) Dim arrChar Dim j,k,strCode arrChar = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" k=Len(arrChar) Randomize For i=1 to iCount j=Int(k * Rnd )+1 strCode = strCode & Mid(arrChar,j,1) Next getCo
asp生成随机字符
askingneil的专栏
07-15 250
Function RandKey(obj,tit) Dim char_array(80) Dim temp For i = 0 To 9 char_array(i) = Cstr(i) Next For i = 10 To 35 char_array(i) = Chr(i + 55) Next For i = 36 To 61 ...
自定义随机数及字符串
01-26
根据条件产生任意的随机数及字符串，工程为VC6的。
Asp 生成随机字符串13位
Gerry的专栏
03-12 1936
%@ LANGUAGE = VBScript %>html>title>生成随机字符串title>body>%Function gen_key(digits)定义并初始化数组    dim char_array(80) 初始化数字    For i = 0 To 9        char_array(i) = CStr(i)    Next 初始化大写字母    For i = 10 
Asp 生成随机字符串13位(循环输出500次无报错)
Gerry的专栏
03-12 1689
%@   LANGUAGE   =   VBScript   %>    %     参数digits，表示随机数的位数     Function   GetKey(digits)         dim   char_array(36)     dim   output,num     char_array(0)   =   "0"     char_array(1)   =   "1" 
Asp随机抽取记录又一方法
网络Online
04-03 1041
randomize seed=round(rnd*10)Sql="select top 1 Content from WebArtice Where Fenlei=1  order by rnd(-"&seed&"-id-"&seed&")"set totle=O_Con.execute(sql)pencat=totle(0)%>
ASP生成随机字符串
小逗狗的专栏
01-23 703
 function gen_key(digits)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) =
asp 生成随机码，随机数可自定义长度
橙-极纪元-JJYCheng
03-07 1081
<% response.codepage=65001 response.charset="UTF-8" %> <%response.Write(1+1)%> <hr> <h1>案例1-随机码</h1> <% function makePassword(byVal maxLen) Dim strNewPass Dim whatsNext, upper, lower, intCounter Randomize For in...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值