您正在使用IPV4(18.207.129.133)访问本站 您本次共访问本站 1 次
用户名: 用QQ登录本站
密 码:
验证码:
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

[公益] 节省一分零钱 献出一份爱心 温暖世间真情       【腾讯云】618云上GO!云服务器限时秒杀,1核2G首年95元!      
广告位招租中
2021年 建军节 8
2021年 七夕节 21
2022年 元 旦 161
2022年 春 节 192
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> ASP >> 内容
    注册帐号时密码随机生成的ASP代码
    内容摘要: ASP生成随机密码的两个函数:函数一%function makePassword(byVal maxLen)Dim strNewPassDim whatsNext, upper, lower, intCounterRandomizeFor intCounter = 1 To maxLenwhatsNext = Int((1 - 0 + 1) * Rnd + ......

    ASP生成随机密码的两个函数:

    函数一

    <%

    function makePassword(byVal maxLen)

    Dim strNewPass

    Dim whatsNext, upper, lower, intCounter

    Randomize

    For intCounter = 1 To maxLen

    whatsNext = Int((1 - 0 + 1) * Rnd + 0)

    If whatsNext = 0 Then

    'character

    upper = 90

    lower = 65

    Else

    upper = 57

    lower = 48

    End If

    strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))

    Next

    makePassword = strNewPass

    end function

    %>

    makePassword(str) 'str 密码的位数

    函数二

    <% Function gen_key(digits)

    dim char_array(35)

    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"

    randomize

    do while len(output) < digits

    num = char_array(Int(35 * Rnd + 0))

    output = output + num

    loop

    gen_key = output

    End Function

    %>

    gen_key(str) 'str为密码位数

    这个函数还可以扩展。。如果你还要加上“大小写敏感区分大小写”特性的话,修改数组大小为char_array(50),然后在后面列出所有可能的小写字符。例如:

    char_array(36) = "a"

    char_array(37) = "b"

    ...............类推

    版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
    上一篇:判断远程图片是否存在 下一篇:asp生成html静态页面不更新的解决办法
    发布日期:2021/6/15
    手机扫二维码直达本页
    发布时间:12:34:56
    点击:161
    录入:齐天大圣
    相关文章
    Baidu

    YiJiaCMS V5.9 Build 21.7.20(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    ©2000-2021